780 lines
62 KiB
COBOL
780 lines
62 KiB
COBOL
00001 IDENTIFICATION DIVISION. 03/22/06
|
|
00002 PROGRAM-ID. DTSBR112. DTSBR112
|
|
00003 AUTHOR. MT DEPT OF LABOR/UI PROGRAMMING SECTION LV028
|
|
00004 DATE-WRITTEN. AUGUST 1994. DTSBR112
|
|
00005 DATE-COMPILED. DTSBR112
|
|
00006 SKIP3 DTSBR112
|
|
00007 ***** DTSBR112
|
|
00008 * DTSBR112
|
|
00009 * CALLING SEQUENCE: DTSBD400 CALLS DTSBR112
|
|
00010 * DTSBD311 WHICH UPDATES DTSIR112 DTSBR112
|
|
00011 * DTSBR112 READS DTSIR112 RECORDS. DTSBR112
|
|
00012 * DTSBR112
|
|
00013 * FUNCTION: NOTICE OF SUBJECTIVITY (UI-47) DTSBR112
|
|
00014 * DTSBR112
|
|
00015 * DTSBR112
|
|
00016 * MODIFICATION HISTORY: DTSBR112
|
|
00017 * DTSBR112
|
|
00018 * 12-10-2001 INITIAL DEVELOPMENT . COPIED FROM DTSBR112. DTSBR112
|
|
00019 * REFERENCE RFP: HOUSEHOLD AUTHOR OF CHANGE - ZL1 DTSBR112
|
|
00020 * DTSBR112
|
|
00021 * 03-02-2006 MODIFIED FOR NEW VERSION OF BU109. DTSBR112
|
|
00022 * REFERENCE RFP: ADMIN ASSESS AUTHOR OF CHANGE - GD DTSBR112
|
|
00023 * DTSBR112
|
|
00024 * DESCRIPTION: DTSBR112
|
|
00025 * DTSBR112
|
|
00026 * THIS MODULE PRINTS A NOTICE TO EMPLOYERS TELLING THEM DTSBR112
|
|
00027 * THEY HAVE BEEN DETERMINED SUBJECT TO THE REPORTING DTSBR112
|
|
00028 * PROVISIONS OF THE MONTANA UNEMPLOYMENT INSURANCE LAW. DTSBR112
|
|
00029 * DTSBR112
|
|
00030 * DTSBR112
|
|
00031 * RECORDS READ: DTSBR112
|
|
00032 * DTSBR112
|
|
00033 * NONE. DTSBR112
|
|
00034 * DTSBR112
|
|
00035 * DTSBR112
|
|
00036 * PRINTED OUTPUTS: DTSBR112
|
|
00037 * DTSBR112
|
|
00038 * 112R1 NOTICE OF SUBJECTIVITY (UI-47) FOR QTRLY FILERS DTSBR112
|
|
00039 * NOTICE OF SUBJECTIVITY (UI-47) FOR ANNUAL FILERS DTSBR112
|
|
00040 * DTSBR112
|
|
00041 * DTSBR112
|
|
00042 * RECORDS WRITTEN: DTSBR112
|
|
00043 * DTSBR112
|
|
00044 * NONE. DTSBR112
|
|
00045 * DTSBR112
|
|
00046 * DTSBR112
|
|
00047 * MODULES CALLED: DTSBR112
|
|
00048 * DTSBR112
|
|
00049 * DTSBU001 DATE EDIT/CONVERSION MODULE DTSBR112
|
|
00050 * DTSBU004 QTR EDIT/CONVERSION MODULE DTSBR112
|
|
00051 * DTSBU006 RATING YEAR PERIOD START/END MODULE DTSBR112
|
|
00052 * DTSBU056 RATE DISPLAY MODULE DTSBR112
|
|
00053 * DTSBU057 EMPLOYER DIV CODE EDIT/DESCRIPTION MODULE DTSBR112
|
|
00054 * DTSBU071 NAME EDIT/CONVERSION MODULE DTSBR112
|
|
00055 * DTSBU082 OPERATOR ID EDIT/LOOKUP MODULE DTSBR112
|
|
00056 * DTSBU090 PARAGRAPH FORMATTING MODULE DTSBR112
|
|
00057 * DTSBU109 AFT RATE LOOKUP MODULE DTSBR112
|
|
00058 * DTSBU119 AGENCY FACTS MODULE DTSBR112
|
|
00059 * DTSBR112
|
|
00060 * DTSBR112
|
|
00061 ***** DTSBR112
|
|
00062 EJECT DTSBR112
|
|
00063 ENVIRONMENT DIVISION. DTSBR112
|
|
00064 SKIP2 DTSBR112
|
|
00065 CONFIGURATION SECTION. DTSBR112
|
|
00066 SPECIAL-NAMES. C01 IS TOP-OF-PAGE. DTSBR112
|
|
00067 SKIP1 DTSBR112
|
|
00068 INPUT-OUTPUT SECTION. DTSBR112
|
|
00069 SKIP1 DTSBR112
|
|
00070 FILE-CONTROL. DTSBR112
|
|
00071 SELECT PRT-FILE1 ASSIGN TO RPT112R1. DTSBR112
|
|
00072 SKIP3 DTSBR112
|
|
00073 DATA DIVISION. DTSBR112
|
|
00074 SKIP3 DTSBR112
|
|
00075 FILE SECTION. DTSBR112
|
|
00076 SKIP2 DTSBR112
|
|
00077 FD PRT-FILE1 DTSBR112
|
|
00078 RECORDING MODE IS F DTSBR112
|
|
00079 BLOCK CONTAINS 0 RECORDS DTSBR112
|
|
00080 LABEL RECORDS ARE OMITTED. DTSBR112
|
|
00081 01 XEROX-REPORT. DTSBR112
|
|
00082 05 FILLER PIC X(1). DTSBR112
|
|
00083 05 XEROX-RPT PIC X(132). DTSBR112
|
|
00084 DTSBR112
|
|
00085 EJECT DTSBR112
|
|
00086 WORKING-STORAGE SECTION. DTSBR112
|
|
000865 77 PAN-VALET PICTURE X(24) VALUE '028DTSBR112 03/22/06'. DTSBR112
|
|
00087 SKIP3 DTSBR112
|
|
00088 01 WRK-AREA. DTSBR112
|
|
00089 05 WRK-ABEND-CD PIC S9(04) COMP VALUE +112.DTSBR112
|
|
00090 05 SLASH PIC X(01) VALUE '/'. DTSBR112
|
|
00091 05 FIRST-TIME-IND PIC X(01) VALUE 'Y'. DTSBR112
|
|
00092 05 LAST-RATE-PERIOD-FOUND-IND PIC X(01). DTSBR112
|
|
00093 88 LAST-RATE-PERIOD-FOUND-88 VALUE 'Y'. DTSBR112
|
|
00094 05 WS-SUB PIC S9(04) COMP. DTSBR112
|
|
00095 05 WS-OP-ID-HOLD PIC X(08) VALUE SPACES. DTSBR112
|
|
00096 05 WS-LAST-NOTICE-QTR PIC S9(05) COMP-3. DTSBR112
|
|
00097 05 WS-UI-RATE-HOLD PIC S9(01)V9(04) DTSBR112
|
|
00098 COMP-3. DTSBR112
|
|
00099 05 WS-ANN-DUE-DATE PIC 9(08) VALUE ZEROS. DTSBR112
|
|
00100 05 WS-ANN-DUE-DATE-X REDEFINES WS-ANN-DUE-DATE. DTSBR112
|
|
00101 10 WS-ANN-DUE-YY PIC 9(04). DTSBR112
|
|
00102 10 WS-ANN-DUE-MM PIC 9(02). DTSBR112
|
|
00103 10 WS-ANN-DUE-DD PIC 9(02). DTSBR112
|
|
00104 DTSBR112
|
|
00105 05 WS-PROGRAM-VOICE. DTSBR112
|
|
00106 10 WS-PRGM-VOICE-AREA PIC X(03) VALUE SPACES. DTSBR112
|
|
00107 10 WS-PRGM-VOICE-1 PIC X(03) VALUE SPACES. DTSBR112
|
|
00108 10 WS-PRGM-VOICE-2 PIC X(04) VALUE SPACES. DTSBR112
|
|
00109 10 WS-PRGM-VOICE-EXT PIC X(04) VALUE SPACES. DTSBR112
|
|
00110 DTSBR112
|
|
00111 05 WS-PROGRAM-FAX. DTSBR112
|
|
00112 10 WS-PRGM-FAX-AREA PIC X(03) VALUE SPACES. DTSBR112
|
|
00113 10 WS-PRGM-FAX-1 PIC X(03) VALUE SPACES. DTSBR112
|
|
00114 10 WS-PRGM-FAX-2 PIC X(04) VALUE SPACES. DTSBR112
|
|
00115 10 WS-PRGM-FAX-EXT PIC X(04) VALUE SPACES. DTSBR112
|
|
00116 DTSBR112
|
|
00117 SKIP1 DTSBR112
|
|
00118 05 WS-AGENCY-FACTS. DTSBR112
|
|
00119 10 WS-AGY-NAMEB1-CAPS PIC X(40) VALUE SPACES. DTSBR112
|
|
00120 10 WS-AGY-NAMEB2-CAPS PIC X(40) VALUE SPACES. DTSBR112
|
|
00121 10 WS-PROGRAM-NAME-CAPS PIC X(50) VALUE SPACES. DTSBR112
|
|
00122 * 10 WS-PROGRAM-VOICE PIC X(14) VALUE SPACES. DTSBR112
|
|
00123 * 10 WS-PROGRAM-FAX PIC X(14) VALUE SPACES. DTSBR112
|
|
00124 10 WS-PROGRAM-TDD PIC X(14) VALUE SPACES. DTSBR112
|
|
00125 SKIP1 DTSBR112
|
|
00126 05 WS-IND-BASED-RATE-FOUND-IND PIC X(01). DTSBR112
|
|
00127 88 WS-IND-BASED-RATE-FOUND-88 VALUE 'Y'. DTSBR112
|
|
00128 05 WS-YOUR-INDUSTRY-CLASS-IS PIC X(31) VALUE SPACES. DTSBR112
|
|
00129 05 WS-DIV-DSCR-LINE1 PIC X(70) VALUE SPACES. DTSBR112
|
|
00130 05 WS-DIV-DSCR-LINE2 PIC X(70) VALUE SPACES. DTSBR112
|
|
00131 SKIP1 DTSBR112
|
|
00132 05 WS-RATE-PERIOD-COMPARE-FIELDS. DTSBR112
|
|
00133 10 WS-RATE-YRQ-LB-9 PIC S9(05) COMP-3. DTSBR112
|
|
00134 10 WS-RATE-YRQ-UB-9 PIC S9(05) COMP-3. DTSBR112
|
|
00135 10 WS-UI-RATE-9 PIC S9(01)V9(04) COMP-3. DTSBR112
|
|
00136 05 WS-RATE-LINE-TABLE-INIT PIC X(234) VALUE SPACES. DTSBR112
|
|
00137 05 WS-RATE-LINE-TABLE REDEFINES WS-RATE-LINE-TABLE-INIT. DTSBR112
|
|
00138 10 WS-RATE-LINE-OCCURS OCCURS 6 TIMES. DTSBR112
|
|
00139 15 WS-RATE-YRQ-LB PIC 9999/9. DTSBR112
|
|
00140 15 WS-RATE-YRQ-LB-X REDEFINES WS-RATE-YRQ-LB DTSBR112
|
|
00141 PIC X(06). DTSBR112
|
|
00142 15 WS-RATE-YRQ-DASH PIC X(01). DTSBR112
|
|
00143 15 WS-RATE-YRQ-UB PIC 9999/9. DTSBR112
|
|
00144 15 WS-RATE-YRQ-UB-X REDEFINES WS-RATE-YRQ-UB DTSBR112
|
|
00145 PIC X(06). DTSBR112
|
|
00146 15 WS-UI-RATE-AREA PIC X(12). DTSBR112
|
|
00147 15 FILLER REDEFINES WS-UI-RATE-AREA. DTSBR112
|
|
00148 20 FILLER PIC X(01). DTSBR112
|
|
00149 20 WS-UI-RATE-DISPLAY DTSBR112
|
|
00150 PIC X(07). DTSBR112
|
|
00151 20 FILLER PIC X(04). DTSBR112
|
|
00152 10 FILLER PIC X(84). DTSBR112
|
|
00153 DTSBR112
|
|
00154 01 VSCA-LINE. DTSBR112
|
|
00155 05 VSCA-DATA PIC X(133) VALUE SPACES. DTSBR112
|
|
00156 DTSBR112
|
|
00157 EJECT DTSBR112
|
|
00158 01 L001-LINK-AREA. DTSBR112
|
|
00159 ++INCLUDE DTSIL001 DTSBR112
|
|
00160 EJECT DTSBR112
|
|
00161 01 L002-LINK-AREA. DTSBR112
|
|
00162 ++INCLUDE DTSIL002 DTSBR112
|
|
00163 EJECT DTSBR112
|
|
00164 01 L004-LINK-AREA. DTSBR112
|
|
00165 ++INCLUDE DTSIL004 DTSBR112
|
|
00166 EJECT DTSBR112
|
|
00167 01 L006-LINK-AREA. DTSBR112
|
|
00168 ++INCLUDE DTSIL006 DTSBR112
|
|
00169 EJECT DTSBR112
|
|
00170 01 L056-LINK-AREA. DTSBR112
|
|
00171 ++INCLUDE DTSIL056 DTSBR112
|
|
00172 EJECT DTSBR112
|
|
00173 01 L057-LINK-AREA. DTSBR112
|
|
00174 ++INCLUDE DTSIL057 DTSBR112
|
|
00175 EJECT DTSBR112
|
|
00176 01 L071-LINK-AREA. DTSBR112
|
|
00177 ++INCLUDE DTSIL071 DTSBR112
|
|
00178 EJECT DTSBR112
|
|
00179 01 L082-LINK-AREA. DTSBR112
|
|
00180 ++INCLUDE DTSIL082 DTSBR112
|
|
00181 EJECT DTSBR112
|
|
00182 01 L090-LINK-AREA. DTSBR112
|
|
00183 ++INCLUDE DTSIL090 DTSBR112
|
|
00184 EJECT DTSBR112
|
|
00185 01 L109-LINK-AREA. DTSBR112
|
|
00186 ++INCLUDE DTSIL109 DTSBR112
|
|
00187 EJECT DTSBR112
|
|
00188 01 L119-LINK-AREA. DTSBR112
|
|
00189 ++INCLUDE DTSIL119 DTSBR112
|
|
00190 EJECT DTSBR112
|
|
00191 DTSBR112
|
|
00192 01 ROUTE-INFO-LINE12. DTSBR112
|
|
00193 05 FILLER PIC X(03) VALUE SPACES. DTSBR112
|
|
00194 05 FILLER PIC X(40) DTSBR112
|
|
00195 VALUE ALL '*'. DTSBR112
|
|
00196 05 FILLER PIC X(90) VALUE SPACES. DTSBR112
|
|
00197 01 ROUTE-INFO-LINE13. DTSBR112
|
|
00198 05 FILLER PIC X(03) VALUE SPACES. DTSBR112
|
|
00199 05 FILLER PIC X(40) DTSBR112
|
|
00200 VALUE '* ROUTE REPORT RPT112R1 TO: *'. DTSBR112
|
|
00201 05 FILLER PIC X(90) VALUE SPACES. DTSBR112
|
|
00202 01 ROUTE-INFO-LINE14. DTSBR112
|
|
00203 05 FILLER PIC X(03) VALUE SPACES. DTSBR112
|
|
00204 05 FILLER PIC X(01) DTSBR112
|
|
00205 VALUE '*'. DTSBR112
|
|
00206 05 FILLER PIC X(03) VALUE SPACES. DTSBR112
|
|
00207 05 WS-NAME-INFO PIC X(32) VALUE SPACES. DTSBR112
|
|
00208 05 FILLER PIC X(03) VALUE SPACES. DTSBR112
|
|
00209 05 FILLER PIC X(01) DTSBR112
|
|
00210 VALUE '*'. DTSBR112
|
|
00211 05 FILLER PIC X(90) VALUE SPACES. DTSBR112
|
|
00212 01 ROUTE-INFO-LINE15. DTSBR112
|
|
00213 05 FILLER PIC X(03) VALUE SPACES. DTSBR112
|
|
00214 05 FILLER PIC X(01) DTSBR112
|
|
00215 VALUE '*'. DTSBR112
|
|
00216 05 FILLER PIC X(03) VALUE SPACES. DTSBR112
|
|
00217 05 WS-UNIT-NAME-INFO PIC X(30) VALUE SPACES. DTSBR112
|
|
00218 05 FILLER PIC X(05) VALUE SPACES. DTSBR112
|
|
00219 05 FILLER PIC X(01) DTSBR112
|
|
00220 VALUE '*'. DTSBR112
|
|
00221 05 FILLER PIC X(90) VALUE SPACES. DTSBR112
|
|
00222 01 ROUTE-INFO-LINE16. DTSBR112
|
|
00223 05 FILLER PIC X(03) VALUE SPACES. DTSBR112
|
|
00224 05 FILLER PIC X(40) DTSBR112
|
|
00225 VALUE ALL '*'. DTSBR112
|
|
00226 05 FILLER PIC X(90) VALUE SPACES. DTSBR112
|
|
00227 SKIP2 DTSBR112
|
|
00228 01 REPORT-LINES. DTSBR112
|
|
00229 05 RPT-LINE-1. DTSBR112
|
|
00230 10 FILLER PIC X(13) VALUE SPACES. DTSBR112
|
|
00231 10 RPT-MAIL-DATE PIC X(18). DTSBR112
|
|
00232 10 FILLER PIC X(58) VALUE SPACES. DTSBR112
|
|
00233 SKIP3 DTSBR112
|
|
00234 05 RPT-LINE-2. DTSBR112
|
|
00235 10 FILLER PIC X(13) VALUE SPACES. DTSBR112
|
|
00236 10 FILLER PIC X(13) VALUE DTSBR112
|
|
00237 'ACCOUNT NO: '. DTSBR112
|
|
00238 10 RPT-EMP-NO PIC 999B999. DTSBR112
|
|
00239 10 FILLER PIC X(35) VALUE SPACES. DTSBR112
|
|
00240 10 FILLER PIC X(48) VALUE SPACES. DTSBR112
|
|
00241 05 RPT-LINE-3. DTSBR112
|
|
00242 10 FILLER PIC X(13) VALUE SPACES. DTSBR112
|
|
00243 10 RPT-ADDR1 PIC X(40). DTSBR112
|
|
00244 10 FILLER PIC X(30) VALUE SPACES. DTSBR112
|
|
00245 05 RPT-LINE-4. DTSBR112
|
|
00246 10 FILLER PIC X(13) VALUE SPACES. DTSBR112
|
|
00247 10 RPT-ADDR2 PIC X(40). DTSBR112
|
|
00248 10 FILLER PIC X(30) VALUE SPACES. DTSBR112
|
|
00249 05 RPT-LINE-5. DTSBR112
|
|
00250 10 FILLER PIC X(13) VALUE SPACES. DTSBR112
|
|
00251 10 RPT-ADDR3 PIC X(40). DTSBR112
|
|
00252 10 FILLER PIC X(30) VALUE SPACES. DTSBR112
|
|
00253 05 RPT-LINE-6. DTSBR112
|
|
00254 10 FILLER PIC X(13) VALUE SPACES. DTSBR112
|
|
00255 10 RPT-ADDR4 PIC X(40). DTSBR112
|
|
00256 10 FILLER PIC X(30) VALUE SPACES. DTSBR112
|
|
00257 05 RPT-LINE-7. DTSBR112
|
|
00258 10 FILLER PIC X(13) VALUE SPACES. DTSBR112
|
|
00259 10 RPT-ADDR5 PIC X(40). DTSBR112
|
|
00260 10 FILLER PIC X(30) VALUE SPACES. DTSBR112
|
|
00261 05 RPT-LINE-7A. DTSBR112
|
|
00262 10 FILLER PIC X(13) VALUE SPACES. DTSBR112
|
|
00263 10 RPT-RATE PIC X(40) VALUE DTSBR112
|
|
00264 'YOUR REGISTRATION RATE IS:'. DTSBR112
|
|
00265 05 RPT-LINE-7B. DTSBR112
|
|
00266 10 FILLER PIC X(13) VALUE SPACES. DTSBR112
|
|
00267 10 RPT-RATE PIC X(40) VALUE DTSBR112
|
|
00268 'YOUR REGISTRATION RATES ARE:'. DTSBR112
|
|
00269 05 RPT-LINE-8. DTSBR112
|
|
00270 10 FILLER PIC X(40) VALUE SPACES. DTSBR112
|
|
00271 10 RPT-RATE-YRQ-LB-X-1 PIC X(06). DTSBR112
|
|
00272 10 FILLER PIC X(01) VALUE SPACE. DTSBR112
|
|
00273 10 RPT-RATE-YRQ-DASH-1 PIC X(01). DTSBR112
|
|
00274 10 FILLER PIC X(01) VALUE SPACE. DTSBR112
|
|
00275 10 RPT-RATE-YRQ-UB-X-1 PIC X(06). DTSBR112
|
|
00276 10 FILLER PIC X(20) VALUE SPACES. DTSBR112
|
|
00277 10 RPT-UI-RATE-AREA-1 PIC X(12). DTSBR112
|
|
00278 05 RPT-LINE-9. DTSBR112
|
|
00279 10 FILLER PIC X(40) VALUE SPACES. DTSBR112
|
|
00280 10 RPT-RATE-YRQ-LB-X-2 PIC X(06). DTSBR112
|
|
00281 10 FILLER PIC X(01) VALUE SPACE. DTSBR112
|
|
00282 10 RPT-RATE-YRQ-DASH-2 PIC X(01). DTSBR112
|
|
00283 10 FILLER PIC X(01) VALUE SPACE. DTSBR112
|
|
00284 10 RPT-RATE-YRQ-UB-X-2 PIC X(06). DTSBR112
|
|
00285 10 FILLER PIC X(20) VALUE SPACES. DTSBR112
|
|
00286 10 RPT-UI-RATE-AREA-2 PIC X(12). DTSBR112
|
|
00287 05 RPT-LINE-10. DTSBR112
|
|
00288 10 FILLER PIC X(40) VALUE SPACES. DTSBR112
|
|
00289 10 RPT-RATE-YRQ-LB-X-3 PIC X(06). DTSBR112
|
|
00290 10 FILLER PIC X(01) VALUE SPACE. DTSBR112
|
|
00291 10 RPT-RATE-YRQ-DASH-3 PIC X(01). DTSBR112
|
|
00292 10 FILLER PIC X(01) VALUE SPACE. DTSBR112
|
|
00293 10 RPT-RATE-YRQ-UB-X-3 PIC X(06). DTSBR112
|
|
00294 10 FILLER PIC X(20) VALUE SPACES. DTSBR112
|
|
00295 10 RPT-UI-RATE-AREA-3 PIC X(12). DTSBR112
|
|
00296 05 RPT-LINE-11. DTSBR112
|
|
00297 10 FILLER PIC X(40) VALUE SPACES. DTSBR112
|
|
00298 10 RPT-RATE-YRQ-LB-X-4 PIC X(06). DTSBR112
|
|
00299 10 FILLER PIC X(01) VALUE SPACE. DTSBR112
|
|
00300 10 RPT-RATE-YRQ-DASH-4 PIC X(01). DTSBR112
|
|
00301 10 FILLER PIC X(01) VALUE SPACE. DTSBR112
|
|
00302 10 RPT-RATE-YRQ-UB-X-4 PIC X(06). DTSBR112
|
|
00303 10 FILLER PIC X(20) VALUE SPACES. DTSBR112
|
|
00304 10 RPT-UI-RATE-AREA-4 PIC X(12). DTSBR112
|
|
00305 05 RPT-LINE-12. DTSBR112
|
|
00306 10 FILLER PIC X(40) VALUE SPACES. DTSBR112
|
|
00307 10 RPT-RATE-YRQ-LB-X-5 PIC X(06). DTSBR112
|
|
00308 10 FILLER PIC X(01) VALUE SPACE. DTSBR112
|
|
00309 10 RPT-RATE-YRQ-DASH-5 PIC X(01). DTSBR112
|
|
00310 10 FILLER PIC X(01) VALUE SPACE. DTSBR112
|
|
00311 10 RPT-RATE-YRQ-UB-X-5 PIC X(06). DTSBR112
|
|
00312 10 FILLER PIC X(20) VALUE SPACES. DTSBR112
|
|
00313 10 RPT-UI-RATE-AREA-5 PIC X(12). DTSBR112
|
|
00314 05 RPT-LINE-13. DTSBR112
|
|
00315 10 FILLER PIC X(40) VALUE SPACES. DTSBR112
|
|
00316 10 RPT-RATE-YRQ-LB-X-6 PIC X(06). DTSBR112
|
|
00317 10 FILLER PIC X(01) VALUE SPACE. DTSBR112
|
|
00318 10 RPT-RATE-YRQ-DASH-6 PIC X(01). DTSBR112
|
|
00319 10 FILLER PIC X(01) VALUE SPACE. DTSBR112
|
|
00320 10 RPT-RATE-YRQ-UB-X-6 PIC X(06). DTSBR112
|
|
00321 10 FILLER PIC X(20) VALUE SPACES. DTSBR112
|
|
00322 10 RPT-UI-RATE-AREA-6 PIC X(12). DTSBR112
|
|
00323 05 RPT-LINE-14. DTSBR112
|
|
00324 10 FILLER PIC X(41) VALUE SPACES. DTSBR112
|
|
00325 10 RPT-ANN-CAL-YEAR PIC 9(04). DTSBR112
|
|
00326 10 FILLER PIC X(11). DTSBR112
|
|
00327 10 RPT-ANN-JAN-DATE PIC 9(04). DTSBR112
|
|
00328 10 FILLER PIC X(01). DTSBR112
|
|
00329 05 RPT-LINE-15. DTSBR112
|
|
00330 10 FILLER PIC X(22) VALUE SPACES. DTSBR112
|
|
00331 10 RPT-ANN-DUE-MM PIC X(02). DTSBR112
|
|
00332 10 RPT-SLASH1 PIC X(01) VALUE SPACES. DTSBR112
|
|
00333 10 RPT-ANN-DUE-DD PIC X(02). DTSBR112
|
|
00334 10 RPT-SLASH2 PIC X(01) VALUE SPACES. DTSBR112
|
|
00335 10 RPT-ANN-DUE-YY PIC X(04). DTSBR112
|
|
00336 10 FILLER PIC X(12). DTSBR112
|
|
00337 ++INCLUDE DTSXL112 DTSBR112
|
|
00338 EJECT DTSBR112
|
|
00339 LINKAGE SECTION. DTSBR112
|
|
00340 SKIP3 DTSBR112
|
|
00341 01 LRCM-LINK-AREA. DTSBR112
|
|
00342 ++INCLUDE DTSILRCM DTSBR112
|
|
00343 EJECT DTSBR112
|
|
00344 01 R112-REC. DTSBR112
|
|
00345 ++INCLUDE DTSIR112 DTSBR112
|
|
00346 EJECT DTSBR112
|
|
00347 PROCEDURE DIVISION USING LRCM-LINK-AREA DTSBR112
|
|
00348 R112-REC. DTSBR112
|
|
00349 SKIP2 DTSBR112
|
|
00350 IF FIRST-TIME-IND = 'Y' DTSBR112
|
|
00351 PERFORM I1000-INITIATE THRU I1000-EXIT DTSBR112
|
|
00352 MOVE 'N' TO FIRST-TIME-IND. DTSBR112
|
|
00353 SKIP1 DTSBR112
|
|
00354 IF LRCM-EOR-88 DTSBR112
|
|
00355 PERFORM T1000-TERMINATE THRU T1000-EXIT DTSBR112
|
|
00356 ELSE DTSBR112
|
|
00357 PERFORM P1000-PROCESS THRU P1000-EXIT. DTSBR112
|
|
00358 SKIP2 DTSBR112
|
|
00359 GOBACK. DTSBR112
|
|
00360 EJECT DTSBR112
|
|
00361 I1000-INITIATE. DTSBR112
|
|
00362 SKIP1 DTSBR112
|
|
00363 OPEN OUTPUT PRT-FILE1. DTSBR112
|
|
00364 MOVE SPACES TO XEROX-REPORT. DTSBR112
|
|
00365 MOVE SPACES TO WS-OP-ID-HOLD. DTSBR112
|
|
00366 MOVE ZEROES TO WS-RATE-YRQ-UB-9. DTSBR112
|
|
00367 SKIP1 DTSBR112
|
|
00368 SET L119-REQ-CAPS-88 TO TRUE. DTSBR112
|
|
00369 SET L119-REQ-NO-UNIT-88 TO TRUE. DTSBR112
|
|
00370 PERFORM S119-AGENCY-FACTS THRU S119-EXIT. DTSBR112
|
|
00371 MOVE L119-UC-OFFICE-VOICE TO WS-PROGRAM-VOICE. DTSBR112
|
|
00372 MOVE L119-UC-OFFICE-FAX TO WS-PROGRAM-FAX. DTSBR112
|
|
00373 SKIP1 DTSBR112
|
|
00374 WRITE XEROX-REPORT FROM XEROX-CNTL-LINE DTSBR112
|
|
00375 AFTER ADVANCING TOP-OF-PAGE. DTSBR112
|
|
00376 I1000-EXIT. DTSBR112
|
|
00377 EXIT. DTSBR112
|
|
00378 EJECT DTSBR112
|
|
00379 P1000-PROCESS. DTSBR112
|
|
00380 SKIP1 DTSBR112
|
|
00381 IF R112-OP-ID = WS-OP-ID-HOLD DTSBR112
|
|
00382 NEXT SENTENCE DTSBR112
|
|
00383 ELSE DTSBR112
|
|
00384 MOVE R112-OP-ID TO WS-OP-ID-HOLD DTSBR112
|
|
00385 L082-OP-ID DTSBR112
|
|
00386 PERFORM S082-OP-ID-INFO THRU S082-EXIT DTSBR112
|
|
00387 MOVE L082-NAME TO L071-NAM DTSBR112
|
|
00388 MOVE 2 TO L071-NAME-FORMAT DTSBR112
|
|
00389 PERFORM S071-DESLASH-NAME THRU S071-EXIT DTSBR112
|
|
00390 DTSBR112
|
|
00391 MOVE L071-NAM TO WS-NAME-INFO DTSBR112
|
|
00392 MOVE L082-UNIT-NAME TO WS-UNIT-NAME-INFO DTSBR112
|
|
00393 WRITE XEROX-REPORT FROM VSCA-LINE DTSBR112
|
|
00394 AFTER ADVANCING TOP-OF-PAGE DTSBR112
|
|
00395 WRITE XEROX-REPORT FROM VSCA-LINE AFTER ADVANCING 9 DTSBR112
|
|
00396 WRITE XEROX-REPORT FROM ROUTE-INFO-LINE12 DTSBR112
|
|
00397 WRITE XEROX-REPORT FROM ROUTE-INFO-LINE13 DTSBR112
|
|
00398 WRITE XEROX-REPORT FROM ROUTE-INFO-LINE14 DTSBR112
|
|
00399 WRITE XEROX-REPORT FROM ROUTE-INFO-LINE15 DTSBR112
|
|
00400 WRITE XEROX-REPORT FROM ROUTE-INFO-LINE16. DTSBR112
|
|
00401 DTSBR112
|
|
00402 SKIP1 DTSBR112
|
|
00403 MOVE R112-RUN-DATE TO L001-FED-8-DATE-9. DTSBR112
|
|
00404 SET L001-FROM-FED-8 TO TRUE. DTSBR112
|
|
00405 PERFORM S001-DATE THRU S001-EXIT. DTSBR112
|
|
00406 SKIP1 DTSBR112
|
|
00407 *****MOVE R112-RUN-DATE TO L004-DATE. DTSBR112
|
|
00408 *****SET L004-FROM-DATE TO TRUE. DTSBR112
|
|
00409 *****PERFORM S004-CONVERT-QTR THRU S004-EXIT. DTSBR112
|
|
00410 *****MOVE L004-QTR-5-9 TO L006-YRQ. DTSBR112
|
|
00411 *****SET L006-FROM-QTR TO TRUE. DTSBR112
|
|
00412 *****MOVE R112-EMP-CLASS TO L006-EMP-CLASS. DTSBR112
|
|
00413 *****PERFORM S006-RATING-PERIOD THRU S006-EXIT. DTSBR112
|
|
00414 *****IF R112-LAST-LIAB-YRQ < L006-RTE-YR-END-YRQ DTSBR112
|
|
00415 *********MOVE R112-LAST-LIAB-YRQ TO WS-LAST-NOTICE-QTR DTSBR112
|
|
00416 *****ELSE DTSBR112
|
|
00417 *********MOVE L006-RTE-YR-END-YRQ TO WS-LAST-NOTICE-QTR. DTSBR112
|
|
00418 SKIP1 DTSBR112
|
|
00419 IF R112-RATE-CNT > +0 DTSBR112
|
|
00420 MOVE R112-RATE-END-YRQ (R112-RATE-CNT) DTSBR112
|
|
00421 TO WS-LAST-NOTICE-QTR DTSBR112
|
|
00422 ELSE DTSBR112
|
|
00423 MOVE R112-LAST-RATE-END-YRQ TO WS-LAST-NOTICE-QTR. DTSBR112
|
|
00424 DTSBR112
|
|
00425 IF R112-LAST-LIAB-YRQ < WS-LAST-NOTICE-QTR DTSBR112
|
|
00426 MOVE R112-LAST-LIAB-YRQ TO WS-LAST-NOTICE-QTR. DTSBR112
|
|
00427 SKIP1 DTSBR112
|
|
00428 MOVE SPACES TO WS-RATE-LINE-TABLE-INIT DTSBR112
|
|
00429 WS-YOUR-INDUSTRY-CLASS-IS DTSBR112
|
|
00430 WS-DIV-DSCR-LINE1 DTSBR112
|
|
00431 WS-DIV-DSCR-LINE2. DTSBR112
|
|
00432 MOVE 'N' TO WS-IND-BASED-RATE-FOUND-IND. DTSBR112
|
|
00433 PERFORM P2000-SET-RATE-LINE-TABLE THRU P2000-EXIT. DTSBR112
|
|
00434 SKIP1 DTSBR112
|
|
00435 IF WS-IND-BASED-RATE-FOUND-88 DTSBR112
|
|
00436 PERFORM P1050-SET-DESCRIPTION THRU P1050-EXIT. DTSBR112
|
|
00437 SKIP1 DTSBR112
|
|
00438 PERFORM P3000-PRINT-NOTICE-PAGE THRU P3000-EXIT. DTSBR112
|
|
00439 SKIP2 DTSBR112
|
|
00440 P1000-EXIT. DTSBR112
|
|
00441 EXIT. DTSBR112
|
|
00442 EJECT DTSBR112
|
|
00443 P1050-SET-DESCRIPTION. DTSBR112
|
|
00444 SKIP1 DTSBR112
|
|
00445 * MOVE R112-SIC-DIVISION TO L057-DIVISION-CODE. DTSBR112
|
|
00446 * PERFORM S057-DIV-DESCRIPTION THRU S057-EXIT. DTSBR112
|
|
00447 * MOVE 'YOUR INDUSTRY CLASSIFICATION IS' DTSBR112
|
|
00448 * TO L090-PHRASE-TABLE (1). DTSBR112
|
|
00449 * MOVE L057-DESCRIPTION1 DTSBR112
|
|
00450 * TO L090-PHRASE-TABLE (2). DTSBR112
|
|
00451 * IF L057-DESCRIPTION2 = SPACES DTSBR112
|
|
00452 * MOVE '.' TO L090-PHRASE-TABLE (3) DTSBR112
|
|
00453 * MOVE +3 TO L090-PHRASE-CNT DTSBR112
|
|
00454 * ELSE DTSBR112
|
|
00455 * MOVE L057-DESCRIPTION2 DTSBR112
|
|
00456 * TO L090-PHRASE-TABLE (3) DTSBR112
|
|
00457 * MOVE '.' TO L090-PHRASE-TABLE (4) DTSBR112
|
|
00458 * MOVE +4 TO L090-PHRASE-CNT. DTSBR112
|
|
00459 MOVE +69 TO L090-DESIRED-LINE-LIMIT. DTSBR112
|
|
00460 P1050-EXIT. DTSBR112
|
|
00461 EXIT. DTSBR112
|
|
00462 EJECT DTSBR112
|
|
00463 P2000-SET-RATE-LINE-TABLE. DTSBR112
|
|
00464 MOVE SPACES TO WS-RATE-LINE-TABLE-INIT. DTSBR112
|
|
00465 SKIP1 DTSBR112
|
|
00466 MOVE R112-FIRST-LIAB-YRQ TO L004-QTR-5-9. DTSBR112
|
|
00467 SET L004-FROM-5 TO TRUE. DTSBR112
|
|
00468 PERFORM S004-CONVERT-QTR THRU S004-EXIT. DTSBR112
|
|
00469 MOVE R112-EMP-CLASS TO L109-EMP-CLASS. DTSBR112
|
|
00470 MOVE L004-QTR-5-9 TO L109-YRQ. DTSBR112
|
|
00471 DTSBR112
|
|
00472 IF R112-RPT-TYPE = 'A' DTSBR112
|
|
00473 MOVE L004-ANN-DEFAULT-DUE-DATE TO WS-ANN-DUE-DATE DTSBR112
|
|
00474 MOVE SLASH TO RPT-SLASH1 RPT-SLASH2 DTSBR112
|
|
00475 MOVE WS-ANN-DUE-YY TO RPT-ANN-DUE-YY DTSBR112
|
|
00476 MOVE WS-ANN-DUE-MM TO RPT-ANN-DUE-MM DTSBR112
|
|
00477 MOVE WS-ANN-DUE-DD TO RPT-ANN-DUE-DD DTSBR112
|
|
00478 MOVE L004-SLASH-5-YR TO RPT-ANN-CAL-YEAR DTSBR112
|
|
00479 ADD 1 TO L004-SLASH-5-YR GIVING RPT-ANN-JAN-DATE. DTSBR112
|
|
00480 DTSBR112
|
|
00481 IF R112-CLASS-RATED-88 DTSBR112
|
|
00482 MOVE -9.9999 TO WS-UI-RATE-HOLD DTSBR112
|
|
00483 PERFORM P2015-FIND-UI-RATE THRU P2015-EXIT DTSBR112
|
|
00484 VARYING R112-RATE-IDX FROM +1 BY +1 DTSBR112
|
|
00485 UNTIL R112-RATE-IDX > R112-RATE-CNT. DTSBR112
|
|
00486 MOVE +0 TO WS-SUB. DTSBR112
|
|
00487 MOVE 'N' TO LAST-RATE-PERIOD-FOUND-IND. DTSBR112
|
|
00488 PERFORM P2030-INITIAL-COMPARE-FIELDS THRU P2030-EXIT. DTSBR112
|
|
00489 PERFORM P2010-RATE-LOOP THRU P2010-EXIT DTSBR112
|
|
00490 UNTIL LAST-RATE-PERIOD-FOUND-88. DTSBR112
|
|
00491 SKIP2 DTSBR112
|
|
00492 P2000-EXIT. DTSBR112
|
|
00493 EXIT. DTSBR112
|
|
00494 EJECT DTSBR112
|
|
00495 P2010-RATE-LOOP. DTSBR112
|
|
00496 SKIP1 DTSBR112
|
|
00497 ADD +1 TO L004-ABS-QTR. DTSBR112
|
|
00498 SET L004-FROM-ABS TO TRUE. DTSBR112
|
|
00499 PERFORM S004-CONVERT-QTR THRU S004-EXIT. DTSBR112
|
|
00500 MOVE R112-EMP-CLASS TO L109-EMP-CLASS. DTSBR112
|
|
00501 MOVE L004-QTR-5-9 TO L109-YRQ. DTSBR112
|
|
00502 IF R112-CLASS-RATED-88 DTSBR112
|
|
00503 MOVE -9.9999 TO WS-UI-RATE-HOLD DTSBR112
|
|
00504 PERFORM P2015-FIND-UI-RATE THRU P2015-EXIT DTSBR112
|
|
00505 VARYING R112-RATE-IDX FROM +1 BY +1 DTSBR112
|
|
00506 UNTIL R112-RATE-IDX > R112-RATE-CNT. DTSBR112
|
|
00507 IF L004-QTR-5-9 > WS-RATE-YRQ-UB-9 DTSBR112
|
|
00508 PERFORM P2020-SET-DISPLAY-LINE THRU P2020-EXIT DTSBR112
|
|
00509 PERFORM P2030-INITIAL-COMPARE-FIELDS THRU P2030-EXIT DTSBR112
|
|
00510 GO TO P2010-EXIT. DTSBR112
|
|
00511 SKIP1 DTSBR112
|
|
00512 IF ((R112-CLASS-RATED-88) DTSBR112
|
|
00513 AND DTSBR112
|
|
00514 (WS-UI-RATE-HOLD NOT = WS-UI-RATE-9)) DTSBR112
|
|
00515 SUBTRACT +1 FROM L004-ABS-QTR DTSBR112
|
|
00516 SET L004-FROM-ABS TO TRUE DTSBR112
|
|
00517 PERFORM S004-CONVERT-QTR THRU S004-EXIT DTSBR112
|
|
00518 MOVE L004-QTR-5-9 TO WS-RATE-YRQ-UB-9 DTSBR112
|
|
00519 PERFORM P2020-SET-DISPLAY-LINE THRU P2020-EXIT DTSBR112
|
|
00520 ADD +1 TO L004-ABS-QTR DTSBR112
|
|
00521 SET L004-FROM-ABS TO TRUE DTSBR112
|
|
00522 PERFORM S004-CONVERT-QTR THRU S004-EXIT DTSBR112
|
|
00523 PERFORM P2030-INITIAL-COMPARE-FIELDS THRU P2030-EXIT DTSBR112
|
|
00524 GO TO P2010-EXIT. DTSBR112
|
|
00525 SKIP2 DTSBR112
|
|
00526 P2010-EXIT. DTSBR112
|
|
00527 EXIT. DTSBR112
|
|
00528 EJECT DTSBR112
|
|
00529 P2015-FIND-UI-RATE. DTSBR112
|
|
00530 SKIP1 DTSBR112
|
|
00531 IF (R112-RATE-EFF-YRQ (R112-RATE-IDX) <= L004-QTR-5-9) DTSBR112
|
|
00532 AND DTSBR112
|
|
00533 (R112-RATE-END-YRQ (R112-RATE-IDX) >= L004-QTR-5-9) DTSBR112
|
|
00534 MOVE R112-UI-RATE (R112-RATE-IDX) TO WS-UI-RATE-HOLD. DTSBR112
|
|
00535 SKIP2 DTSBR112
|
|
00536 P2015-EXIT. DTSBR112
|
|
00537 EXIT. DTSBR112
|
|
00538 EJECT DTSBR112
|
|
00539 P2020-SET-DISPLAY-LINE. DTSBR112
|
|
00540 SKIP1 DTSBR112
|
|
00541 MOVE WS-RATE-YRQ-LB-9 TO WS-RATE-YRQ-LB (WS-SUB). DTSBR112
|
|
00542 MOVE '-' TO WS-RATE-YRQ-DASH (WS-SUB). DTSBR112
|
|
00543 MOVE WS-RATE-YRQ-UB-9 TO WS-RATE-YRQ-UB (WS-SUB). DTSBR112
|
|
00544 SKIP1 DTSBR112
|
|
00545 IF R112-CLASS-RATED-88 DTSBR112
|
|
00546 SET L056-DISP3-RIGHT-88 TO TRUE DTSBR112
|
|
00547 ELSE DTSBR112
|
|
00548 SET L056-DISP4-RIGHT-88 TO TRUE. DTSBR112
|
|
00549 SKIP1 DTSBR112
|
|
00550 IF R112-CLASS-RATED-88 DTSBR112
|
|
00551 IF WS-UI-RATE-9 = -9.9999 DTSBR112
|
|
00552 MOVE 'NOT COMPUTED' TO WS-UI-RATE-AREA (WS-SUB) DTSBR112
|
|
00553 ELSE DTSBR112
|
|
00554 MOVE SPACES TO WS-UI-RATE-AREA (WS-SUB) DTSBR112
|
|
00555 MOVE WS-UI-RATE-9 TO L056-RATE DTSBR112
|
|
00556 IF R112-CLASS-RATED-88 DTSBR112
|
|
00557 SET L056-DISP3-RIGHT-88 TO TRUE DTSBR112
|
|
00558 ELSE DTSBR112
|
|
00559 SET L056-DISP4-RIGHT-88 TO TRUE DTSBR112
|
|
00560 END-IF DTSBR112
|
|
00561 PERFORM S056-RATE-DISPLAY THRU S056-EXIT DTSBR112
|
|
00562 MOVE L056-DISP-RATE TO WS-UI-RATE-DISPLAY (WS-SUB) DTSBR112
|
|
00563 IF R112-CLASS-RATED-88 DTSBR112
|
|
00564 SET L056-DISP3-RIGHT-88 TO TRUE DTSBR112
|
|
00565 ELSE DTSBR112
|
|
00566 SET L056-DISP4-RIGHT-88 TO TRUE DTSBR112
|
|
00567 END-IF. DTSBR112
|
|
00568 SKIP2 DTSBR112
|
|
00569 P2020-EXIT. DTSBR112
|
|
00570 EXIT. DTSBR112
|
|
00571 EJECT DTSBR112
|
|
00572 P2030-INITIAL-COMPARE-FIELDS. DTSBR112
|
|
00573 SKIP1 DTSBR112
|
|
00574 IF L004-QTR-5-9 > WS-LAST-NOTICE-QTR DTSBR112
|
|
00575 SET LAST-RATE-PERIOD-FOUND-88 TO TRUE DTSBR112
|
|
00576 GO TO P2030-EXIT. DTSBR112
|
|
00577 SKIP1 DTSBR112
|
|
00578 ADD +1 TO WS-SUB. DTSBR112
|
|
00579 IF WS-SUB > +6 DTSBR112
|
|
00580 PERFORM DTSBR112
|
|
00581 VARYING WS-SUB FROM +2 BY +1 UNTIL WS-SUB > +6 DTSBR112
|
|
00582 MOVE WS-RATE-LINE-OCCURS (WS-SUB) DTSBR112
|
|
00583 TO WS-RATE-LINE-OCCURS (WS-SUB - 1) DTSBR112
|
|
00584 END-PERFORM DTSBR112
|
|
00585 MOVE +6 TO WS-SUB. DTSBR112
|
|
00586 SKIP1 DTSBR112
|
|
00587 MOVE L004-QTR-5-9 TO WS-RATE-YRQ-LB-9 DTSBR112
|
|
00588 L006-YRQ. DTSBR112
|
|
00589 SET L006-FROM-QTR TO TRUE. DTSBR112
|
|
00590 * MOVE R112-EMP-CLASS TO L006-EMP-CLASS. DTSBR112
|
|
00591 PERFORM S006-RATING-PERIOD THRU S006-EXIT. DTSBR112
|
|
00592 IF L006-RTE-YR-END-YRQ < WS-LAST-NOTICE-QTR DTSBR112
|
|
00593 MOVE L006-RTE-YR-END-YRQ TO WS-RATE-YRQ-UB-9 DTSBR112
|
|
00594 ELSE DTSBR112
|
|
00595 MOVE WS-LAST-NOTICE-QTR TO WS-RATE-YRQ-UB-9. DTSBR112
|
|
00596 SKIP1 DTSBR112
|
|
00597 IF R112-CLASS-RATED-88 DTSBR112
|
|
00598 MOVE WS-UI-RATE-HOLD TO WS-UI-RATE-9. DTSBR112
|
|
00599 SKIP2 DTSBR112
|
|
00600 P2030-EXIT. DTSBR112
|
|
00601 EXIT. DTSBR112
|
|
00602 EJECT DTSBR112
|
|
00603 P3000-PRINT-NOTICE-PAGE. DTSBR112
|
|
00604 IF R112-RPT-TYPE = 'A' DTSBR112
|
|
00605 MOVE 'FORMS=T112R2,''' TO XEROX-FORMS DTSBR112
|
|
00606 ELSE DTSBR112
|
|
00607 MOVE 'FORMS=T112R1,''' TO XEROX-FORMS. DTSBR112
|
|
00608 DTSBR112
|
|
00609 WRITE XEROX-REPORT FROM XEROX-CNTL-LINE DTSBR112
|
|
00610 AFTER ADVANCING TOP-OF-PAGE. DTSBR112
|
|
00611 DTSBR112
|
|
00612 * MOVE WS-PRGM-VOICE-1 TO WS-PROGRAM-VOICE-ONE. DTSBR112
|
|
00613 * MOVE WS-PRGM-VOICE-2 TO WS-PROGRAM-VOICE-TWO. DTSBR112
|
|
00614 * MOVE WS-PRGM-FAX-1 TO WS-PROGRAM-FAX-ONE. DTSBR112
|
|
00615 * MOVE WS-PRGM-FAX-2 TO WS-PROGRAM-FAX-TWO. DTSBR112
|
|
00616 MOVE R112-RUN-DATE TO L002-DATE. DTSBR112
|
|
00617 SET L002-MIXED-CASE TO TRUE. DTSBR112
|
|
00618 PERFORM S002-ALPHA-DATE THRU S002-EXIT. DTSBR112
|
|
00619 DTSBR112
|
|
00620 MOVE L002-LONG-TEXT-AREA TO RPT-MAIL-DATE. DTSBR112
|
|
00621 MOVE R112-EMP-NO TO RPT-EMP-NO. DTSBR112
|
|
00622 MOVE R112-FMT-LINE (1) TO RPT-ADDR1. DTSBR112
|
|
00623 MOVE R112-FMT-LINE (2) TO RPT-ADDR2. DTSBR112
|
|
00624 MOVE R112-FMT-LINE (3) TO RPT-ADDR3. DTSBR112
|
|
00625 MOVE R112-FMT-LINE (4) TO RPT-ADDR4. DTSBR112
|
|
00626 MOVE R112-FMT-LINE (5) TO RPT-ADDR5. DTSBR112
|
|
00627 PERFORM P4000-YRQ-RATE-MOVING THRU P4000-EXIT. DTSBR112
|
|
00628 DTSBR112
|
|
00629 WRITE XEROX-REPORT FROM VSCA-LINE DTSBR112
|
|
00630 AFTER ADVANCING 9 LINES. DTSBR112
|
|
00631 WRITE XEROX-REPORT FROM RPT-LINE-1 AFTER ADVANCING 1 LINE. DTSBR112
|
|
00632 WRITE XEROX-REPORT FROM RPT-LINE-3 AFTER ADVANCING 1 LINE. DTSBR112
|
|
00633 WRITE XEROX-REPORT FROM RPT-LINE-4 AFTER ADVANCING 1 LINE. DTSBR112
|
|
00634 WRITE XEROX-REPORT FROM RPT-LINE-5 AFTER ADVANCING 1 LINE. DTSBR112
|
|
00635 WRITE XEROX-REPORT FROM RPT-LINE-6 AFTER ADVANCING 1 LINE. DTSBR112
|
|
00636 WRITE XEROX-REPORT FROM RPT-LINE-7 AFTER ADVANCING 1 LINE. DTSBR112
|
|
00637 WRITE XEROX-REPORT FROM RPT-LINE-2 AFTER ADVANCING 2 LINE. DTSBR112
|
|
00638 DTSBR112
|
|
00639 IF R112-RATE-CNT = 1 DTSBR112
|
|
00640 IF R112-RPT-TYPE = 'A' DTSBR112
|
|
00641 WRITE XEROX-REPORT FROM RPT-LINE-7A DTSBR112
|
|
00642 AFTER ADVANCING 11 LINES DTSBR112
|
|
00643 ELSE DTSBR112
|
|
00644 WRITE XEROX-REPORT FROM RPT-LINE-7A DTSBR112
|
|
00645 AFTER ADVANCING 09 LINES DTSBR112
|
|
00646 ELSE DTSBR112
|
|
00647 IF R112-RPT-TYPE = 'A' DTSBR112
|
|
00648 WRITE XEROX-REPORT FROM RPT-LINE-7B DTSBR112
|
|
00649 AFTER ADVANCING 11 LINES DTSBR112
|
|
00650 ELSE DTSBR112
|
|
00651 WRITE XEROX-REPORT FROM RPT-LINE-7B DTSBR112
|
|
00652 AFTER ADVANCING 09 LINES. DTSBR112
|
|
00653 DTSBR112
|
|
00654 WRITE XEROX-REPORT FROM RPT-LINE-8 AFTER ADVANCING 4 LINES.DTSBR112
|
|
00655 WRITE XEROX-REPORT FROM RPT-LINE-9 AFTER ADVANCING 1 LINE. DTSBR112
|
|
00656 WRITE XEROX-REPORT FROM RPT-LINE-10 AFTER ADVANCING 1 LINE. DTSBR112
|
|
00657 WRITE XEROX-REPORT FROM RPT-LINE-11 AFTER ADVANCING 1 LINE. DTSBR112
|
|
00658 WRITE XEROX-REPORT FROM RPT-LINE-12 AFTER ADVANCING 1 LINE. DTSBR112
|
|
00659 WRITE XEROX-REPORT FROM RPT-LINE-13 AFTER ADVANCING 1 LINE. DTSBR112
|
|
00660 DTSBR112
|
|
00661 * IF R112-RPT-TYPE = 'A' DTSBR112
|
|
00662 * WRITE XEROX-REPORT FROM RPT-LINE-14 AFTER DTSBR112
|
|
00663 * ADVANCING 08 LINE DTSBR112
|
|
00664 * WRITE XEROX-REPORT FROM RPT-LINE-15 AFTER DTSBR112
|
|
00665 * ADVANCING 2 LINE. DTSBR112
|
|
00666 DTSBR112
|
|
00667 P3000-EXIT. DTSBR112
|
|
00668 EXIT. DTSBR112
|
|
00669 DTSBR112
|
|
00670 P4000-YRQ-RATE-MOVING. DTSBR112
|
|
00671 MOVE WS-RATE-YRQ-LB-X (1) TO RPT-RATE-YRQ-LB-X-1. DTSBR112
|
|
00672 MOVE WS-RATE-YRQ-DASH (1) TO RPT-RATE-YRQ-DASH-1. DTSBR112
|
|
00673 MOVE WS-RATE-YRQ-UB-X (1) TO RPT-RATE-YRQ-UB-X-1. DTSBR112
|
|
00674 MOVE WS-UI-RATE-AREA (1) TO RPT-UI-RATE-AREA-1. DTSBR112
|
|
00675 DTSBR112
|
|
00676 MOVE WS-RATE-YRQ-LB-X (2) TO RPT-RATE-YRQ-LB-X-2. DTSBR112
|
|
00677 MOVE WS-RATE-YRQ-DASH (2) TO RPT-RATE-YRQ-DASH-2. DTSBR112
|
|
00678 MOVE WS-RATE-YRQ-UB-X (2) TO RPT-RATE-YRQ-UB-X-2. DTSBR112
|
|
00679 MOVE WS-UI-RATE-AREA (2) TO RPT-UI-RATE-AREA-2. DTSBR112
|
|
00680 DTSBR112
|
|
00681 MOVE WS-RATE-YRQ-LB-X (3) TO RPT-RATE-YRQ-LB-X-3. DTSBR112
|
|
00682 MOVE WS-RATE-YRQ-DASH (3) TO RPT-RATE-YRQ-DASH-3. DTSBR112
|
|
00683 MOVE WS-RATE-YRQ-UB-X (3) TO RPT-RATE-YRQ-UB-X-3. DTSBR112
|
|
00684 MOVE WS-UI-RATE-AREA (3) TO RPT-UI-RATE-AREA-3. DTSBR112
|
|
00685 DTSBR112
|
|
00686 MOVE WS-RATE-YRQ-LB-X (4) TO RPT-RATE-YRQ-LB-X-4. DTSBR112
|
|
00687 MOVE WS-RATE-YRQ-DASH (4) TO RPT-RATE-YRQ-DASH-4. DTSBR112
|
|
00688 MOVE WS-RATE-YRQ-UB-X (4) TO RPT-RATE-YRQ-UB-X-4. DTSBR112
|
|
00689 MOVE WS-UI-RATE-AREA (4) TO RPT-UI-RATE-AREA-4. DTSBR112
|
|
00690 DTSBR112
|
|
00691 MOVE WS-RATE-YRQ-LB-X (5) TO RPT-RATE-YRQ-LB-X-5. DTSBR112
|
|
00692 MOVE WS-RATE-YRQ-DASH (5) TO RPT-RATE-YRQ-DASH-5. DTSBR112
|
|
00693 MOVE WS-RATE-YRQ-UB-X (5) TO RPT-RATE-YRQ-UB-X-5. DTSBR112
|
|
00694 MOVE WS-UI-RATE-AREA (5) TO RPT-UI-RATE-AREA-5. DTSBR112
|
|
00695 DTSBR112
|
|
00696 MOVE WS-RATE-YRQ-LB-X (6) TO RPT-RATE-YRQ-LB-X-6. DTSBR112
|
|
00697 MOVE WS-RATE-YRQ-DASH (6) TO RPT-RATE-YRQ-DASH-6. DTSBR112
|
|
00698 MOVE WS-RATE-YRQ-UB-X (6) TO RPT-RATE-YRQ-UB-X-6. DTSBR112
|
|
00699 MOVE WS-UI-RATE-AREA (6) TO RPT-UI-RATE-AREA-6. DTSBR112
|
|
00700 DTSBR112
|
|
00701 P4000-EXIT. DTSBR112
|
|
00702 EXIT. DTSBR112
|
|
00703 DTSBR112
|
|
00704 T1000-TERMINATE. DTSBR112
|
|
00705 SKIP1 DTSBR112
|
|
00706 CLOSE PRT-FILE1. DTSBR112
|
|
00707 SKIP2. DTSBR112
|
|
00708 T1000-EXIT. DTSBR112
|
|
00709 EXIT. DTSBR112
|
|
00710 EJECT DTSBR112
|
|
00711 S001-DATE. DTSBR112
|
|
00712 SKIP1 DTSBR112
|
|
00713 CALL 'DTSBU001' USING L001-LINK-AREA. DTSBR112
|
|
00714 SKIP2 DTSBR112
|
|
00715 S001-EXIT. DTSBR112
|
|
00716 EXIT. DTSBR112
|
|
00717 S002-ALPHA-DATE. DTSBR112
|
|
00718 SKIP1 DTSBR112
|
|
00719 CALL 'DTSBU002' USING L002-LINK-AREA. DTSBR112
|
|
00720 SKIP2 DTSBR112
|
|
00721 S002-EXIT. DTSBR112
|
|
00722 EXIT. DTSBR112
|
|
00723 SKIP3 DTSBR112
|
|
00724 S004-CONVERT-QTR. DTSBR112
|
|
00725 SKIP1 DTSBR112
|
|
00726 CALL 'DTSBU004' USING L004-LINK-AREA. DTSBR112
|
|
00727 SKIP2 DTSBR112
|
|
00728 S004-EXIT. DTSBR112
|
|
00729 EXIT. DTSBR112
|
|
00730 SKIP3 DTSBR112
|
|
00731 S006-RATING-PERIOD. DTSBR112
|
|
00732 SKIP1 DTSBR112
|
|
00733 CALL 'DTSBU006' USING L006-LINK-AREA. DTSBR112
|
|
00734 SKIP2 DTSBR112
|
|
00735 S006-EXIT. DTSBR112
|
|
00736 EXIT. DTSBR112
|
|
00737 SKIP3 DTSBR112
|
|
00738 S056-RATE-DISPLAY. DTSBR112
|
|
00739 SKIP1 DTSBR112
|
|
00740 CALL 'DTSBU056' USING L056-LINK-AREA. DTSBR112
|
|
00741 SKIP2 DTSBR112
|
|
00742 S056-EXIT. DTSBR112
|
|
00743 EXIT. DTSBR112
|
|
00744 SKIP3 DTSBR112
|
|
00745 S057-DIV-DESCRIPTION. DTSBR112
|
|
00746 SKIP1 DTSBR112
|
|
00747 CALL 'DTSBU057' USING L057-LINK-AREA. DTSBR112
|
|
00748 SKIP2 DTSBR112
|
|
00749 S057-EXIT. DTSBR112
|
|
00750 EXIT. DTSBR112
|
|
00751 SKIP3 DTSBR112
|
|
00752 S071-DESLASH-NAME. DTSBR112
|
|
00753 SKIP1 DTSBR112
|
|
00754 CALL 'DTSBU071' USING L071-LINK-AREA. DTSBR112
|
|
00755 SKIP2 DTSBR112
|
|
00756 S071-EXIT. DTSBR112
|
|
00757 EXIT. DTSBR112
|
|
00758 SKIP3 DTSBR112
|
|
00759 S082-OP-ID-INFO. DTSBR112
|
|
00760 SKIP1 DTSBR112
|
|
00761 CALL 'DTSBU082' USING L082-LINK-AREA. DTSBR112
|
|
00762 SKIP2 DTSBR112
|
|
00763 S082-EXIT. DTSBR112
|
|
00764 EXIT. DTSBR112
|
|
00765 SKIP3 DTSBR112
|
|
00766 S119-AGENCY-FACTS. DTSBR112
|
|
00767 SKIP1 DTSBR112
|
|
00768 CALL 'DTSBU119' USING L119-LINK-AREA. DTSBR112
|
|
00769 SKIP2 DTSBR112
|
|
00770 S119-EXIT. DTSBR112
|
|
00771 EXIT. DTSBR112
|
|
00772 SKIP3 DTSBR112
|
|
00773 S999-ABEND. DTSBR112
|
|
00774 SKIP1 DTSBR112
|
|
00775 CALL 'DTSBU999' USING WRK-ABEND-CD. DTSBR112
|
|
00776 SKIP2 DTSBR112
|
|
00777 S999-EXIT. DTSBR112
|
|
00778 EXIT. DTSBR112
|