00001 IDENTIFICATION DIVISION. 12/04/23 00002 PROGRAM-ID. DTSBR515. DTSBR515 00003 AUTHOR. MT DEPT OF LABOR/UI PROGRAMMING SECTION LV018 00004 DATE-WRITTEN. DECEMBER 1994. DTSBR515 00005 DATE-COMPILED. DTSBR515 00006 SKIP3 DTSBR515 00007 ***** DTSBR515 00008 * DTSBR515 00009 * FUNCTION: RATE ASSIGNMENT DETAIL LIST. DTSBR515 00010 * DTSBR515 00011 * CALLING SEQUENCE: DTSBD750 WRITES DTSIR515 RECORDS DTSBR515 00012 * DTSBR515 READS DTSIR515 RECORDS DTSBR515 00013 * TO PRODUCE THE RATE ASSIGNMENT DETAIL LISTDTSBR515 00014 * DTSBR515 00015 * MODIFICATION HISTORY: DTSBR515 00016 * DTSBR515 00017 * 12-17-94 INITIAL DEVELOPMENT DTSBR515 00018 * REFERENCE RFP #RAP AUTHOR OF CHANGE - SFW DTSBR515 00019 * DTSBR515 00020 * 05-26-95 CHANGE REPORT LITERALS. DTSBR515 00021 * REFERENCE RFP # AUTHOR OF CHANGE - RHC DTSBR515 00022 * DTSBR515 00023 * 05-15-99 MODIFIED TO MEET DUTAS PROGRAMMING SPECIFICATIONS DTSBR515 00024 * REFERENCE RFP #**** AUTHOR OF CHANGE - DVS DTSBR515 00025 * DTSBR515 00026 * 07-16-02 MODIFIED TO PRODUCE UP TO THREE DIFFERENCE RATE DTSBR515 00027 * ASSIGNMENT REPORTS. I.E., REGULAR, ESTIMATED, DTSBR515 00028 * AND FINAL. DTSBR515 00029 * REFERENCE - HOUSEHOLD DEVL. AUTHOR OF CHANGE - RW1 DTSBR515 00030 * DTSBR515 00031 * CL**4 00032 * 07-31-17 MODIFIED TO DISPLAY RESERVE RATIO TO MATCH REPORT CL**4 00033 * 503 (RATE NOTICES) AND SCREEN (52). CL**4 00034 * CL**4 00035 * REFERENCE - HOUSEHOLD DEVL. AUTHOR OF CHANGE - ZL1 CL**4 00036 * CL**4 00037 * CL*11 00038 * 10-08-19 MODIFIED TO DISPLAY NEGATIVE CHARGED AMOUNTS, REPORT CL*11 00039 * SHOWED ZEROS IF AMOUNT WAS NEGATIVE. CL*11 00040 * CL*11 00041 * REFERENCE - T11636 AUTHOR OF CHANGE - ZL1 CL*11 00042 * CL*11 00043 * MM-DD-YY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBR515 00044 * XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBR515 00045 * REFERENCE RFP #**** AUTHOR OF CHANGE - XXX DTSBR515 00046 * DTSBR515 00047 * DTSBR515 00048 * DESCRIPTION: DTSBR515 00049 * DTSBR515 00050 * THIS MODULE PRINTS THE DETAIL INFORMATION FOR THE RATE DTSBR515 00051 * ASSIGNMENT JOB OF THE ANNUAL RATING PROCESS. DTSBR515 00052 * DTSBR515 00053 * DTSBR515 00054 * RECORDS READ: DTSBR515 00055 * DTSBR515 00056 * NONE. DTSBR515 00057 * DTSBR515 00058 * DTSBR515 00059 * PRINTED OUTPUTS: DTSBR515 00060 * DTSBR515 00061 * 515R1 REGULAR RATE ASSIGNMENT DETAIL LIST. DTSBR515 00062 * 515R2 ESTIMATED RATE ASSIGNMENT DETAIL LIST. DTSBR515 00063 * 515R3 FINAL RATE ASSIGNMENT DETAIL LIST. DTSBR515 00064 * 515R4 EXPORT FILE TO XCEL FOR DETAIL LIST. CL**9 00065 * DTSBR515 00066 * DTSBR515 00067 * RECORDS WRITTEN: DTSBR515 00068 * DTSBR515 00069 * NONE. DTSBR515 00070 * DTSBR515 00071 * DTSBR515 00072 * MODULES CALLED: DTSBR515 00073 * DTSBR515 00074 * DTSBU004 QUARTER CONVERSION MODULE DTSBR515 00075 * DTSBU055 UI RATE EXPERIENCE PERIOD MODULE DTSBR515 00076 * DTSBU056 RATE DISPLAY MODULE DTSBR515 00077 * DTSBU057 RESERVE RATIO DISPLAY CL**4 00078 * DTSBR515 00079 * DTSBR515 00080 ***** DTSBR515 00081 EJECT DTSBR515 00082 ENVIRONMENT DIVISION. DTSBR515 00083 DTSBR515 00084 CONFIGURATION SECTION. DTSBR515 00085 SPECIAL-NAMES. C01 IS TOP-OF-PAGE. DTSBR515 00086 DTSBR515 00087 DTSBR515 00088 INPUT-OUTPUT SECTION. DTSBR515 00089 DTSBR515 00090 FILE-CONTROL. DTSBR515 00091 SELECT PRT-FILE1 ASSIGN TO RPT515R1. DTSBR515 00092 SELECT PRT-FILE2 ASSIGN TO RPT515R2. DTSBR515 00093 SELECT PRT-FILE3 ASSIGN TO RPT515R3. DTSBR515 00094 SELECT PRT-FILE4 ASSIGN TO RPT515R4. CL**4 00095 DTSBR515 00096 DATA DIVISION. DTSBR515 00097 DTSBR515 00098 FILE SECTION. DTSBR515 00099 DTSBR515 00100 FD PRT-FILE1 DTSBR515 00101 RECORDING MODE IS F. DTSBR515 00102 01 PRT-RECORD1 PIC X(133). DTSBR515 00103 DTSBR515 00104 FD PRT-FILE2 DTSBR515 00105 RECORDING MODE IS F. DTSBR515 00106 01 PRT-RECORD2 PIC X(133). DTSBR515 00107 DTSBR515 00108 FD PRT-FILE3 DTSBR515 00109 RECORDING MODE IS F. DTSBR515 00110 01 PRT-RECORD3 PIC X(133). DTSBR515 00111 DTSBR515 00112 FD PRT-FILE4 CL**4 00113 RECORDING MODE IS F. CL**4 00114 01 PRT-RECORD4 PIC X(200). CL*16 00115 CL**4 00116 EJECT DTSBR515 00117 WORKING-STORAGE SECTION. DTSBR515 001175 77 PAN-VALET PICTURE X(24) VALUE '018DTSBR515 12/04/23'. DTSBR515 00118 77 PAN-VALET PICTURE X(24) VALUE '051DTSBR515 12/24/02'. DTSBR515 00119 DTSBR515 00120 01 WRK-AREA. DTSBR515 00121 05 WRK-ABEND-CD PIC S9(04) COMP VALUE +515.DTSBR515 00122 05 WRK-ABEND-MSG PIC X(60) VALUE SPACES. DTSBR515 00123 05 FIRST-TIME-IND PIC X(01) VALUE 'Y'. DTSBR515 00124 05 WS-NUMBER-ONE PIC S9(05) COMP-3 VALUE +0. DTSBR515 00125 05 WS-NUMBER-TWO PIC S9(05) COMP-3 VALUE +0. DTSBR515 00126 05 WS-NUMBER-THREE PIC S9(05) COMP-3 VALUE +0. DTSBR515 00127 DTSBR515 00128 05 WS-LINE-CNT1 PIC S9(02) COMP-3 VALUE 60. DTSBR515 00129 05 WS-LINE-COUNT1 PIC S9(02) COMP-3 VALUE +0. DTSBR515 00130 05 WS-PAGE-CNT1 PIC S9(05) COMP-3 VALUE +0. DTSBR515 00131 DTSBR515 00132 05 WS-LINE-CNT2 PIC S9(02) COMP-3 VALUE 60. DTSBR515 00133 05 WS-LINE-COUNT2 PIC S9(02) COMP-3 VALUE +0. DTSBR515 00134 05 WS-PAGE-CNT2 PIC S9(05) COMP-3 VALUE +0. DTSBR515 00135 DTSBR515 00136 05 WS-LINE-CNT3 PIC S9(02) COMP-3 VALUE 60. DTSBR515 00137 05 WS-LINE-COUNT3 PIC S9(02) COMP-3 VALUE +0. DTSBR515 00138 05 WS-PAGE-CNT3 PIC S9(05) COMP-3 VALUE +0. DTSBR515 00139 DTSBR515 00140 05 WS-REG-EFF-QTR PIC 9(05). DTSBR515 00141 05 WS-REG-EXP-YR-DISP1 PIC X(04). DTSBR515 00142 05 WS-REG-EXP-YR-DISP2 PIC X(04). DTSBR515 00143 05 WS-TAX-QTR-FROM PIC X(04). DTSBR515 00144 05 WS-TAX-QTR-THRU PIC X(04). DTSBR515 00145 05 WS-REG-EXP-YR-DISP3 PIC X(04). DTSBR515 00146 05 WS-REG-RATE-TYPE PIC X(08). DTSBR515 00147 05 WS-REG-RESERVE PIC S9(02)V9. DTSBR515 00148 DTSBR515 00149 05 WS-GOV-EFF-QTR PIC 9(05). DTSBR515 00150 05 WS-GOV-COMPUTED-RATE PIC X(07). DTSBR515 00151 EJECT DTSBR515 00152 01 L004-LINK-AREA. DTSBR515 00153 ++INCLUDE DTSIL004 DTSBR515 00154 01 L055-LINK-AREA. DTSBR515 00155 ++INCLUDE DTSIL055 DTSBR515 00156 EJECT DTSBR515 00157 01 L056-LINK-AREA. DTSBR515 00158 ++INCLUDE DTSIL056 DTSBR515 00159 01 L057-LINK-AREA. CL**2 00160 ++INCLUDE DTSIL057 CL**2 00161 EJECT DTSBR515 00162 01 PAGE-HEADING. DTSBR515 00163 05 HDR-LINE-1. DTSBR515 00164 10 FILLER PIC X(01) VALUE SPACE. DTSBR515 00165 10 HDR-RPT-NO PIC X(05) VALUE SPACES. DTSBR515 00166 10 FILLER PIC X(34) VALUE SPACES. DTSBR515 00167 10 HDR-AGY-NAME-LINE1 PIC X(50). DTSBR515 00168 10 FILLER PIC X(28) VALUE SPACES. DTSBR515 00169 10 FILLER PIC X(05) DTSBR515 00170 VALUE 'DATE:'. DTSBR515 00171 10 FILLER PIC X(01) VALUE SPACE. DTSBR515 00172 10 HDR-SYS-DATE PIC X(08). DTSBR515 00173 05 HDR-LINE-2. DTSBR515 00174 10 FILLER PIC X(40) VALUE SPACES. DTSBR515 00175 10 HDR-AGY-NAME-LINE2 PIC X(50). DTSBR515 00176 10 FILLER PIC X(28) VALUE SPACES. DTSBR515 00177 10 FILLER PIC X(05) DTSBR515 00178 VALUE 'TIME:'. DTSBR515 00179 10 FILLER PIC X(01) VALUE SPACE. DTSBR515 00180 10 HDR-SYS-TIME PIC X(08). DTSBR515 00181 05 HDR-LINE-3. DTSBR515 00182 10 FILLER PIC X(01) VALUE SPACE. DTSBR515 00183 10 FILLER PIC X(35) DTSBR515 00184 VALUE 'ROUTE TO: REGISTRATION AND RATES'. DTSBR515 00185 10 FILLER PIC X(82) VALUE SPACES. DTSBR515 00186 10 FILLER PIC X(05) DTSBR515 00187 VALUE 'PAGE:'. DTSBR515 00188 10 FILLER PIC X(03) VALUE SPACES. DTSBR515 00189 10 HDR-PAGE-CNT PIC ZZ,ZZ9. DTSBR515 00190 05 HDR-LINE-4. DTSBR515 00191 10 FILLER PIC X(39) VALUE SPACES. DTSBR515 00192 10 HDR-ASSIGMENT-HEADING PIC X(38) VALUE SPACES. DTSBR515 00193 10 FILLER PIC X(04) DTSBR515 00194 VALUE '--- '. DTSBR515 00195 10 WS-EMPLOYER-RATING PIC X(15). DTSBR515 00196 10 FILLER PIC X(37) VALUE SPACES. DTSBR515 00197 05 HDR-LINE-5 PIC X(133) VALUE SPACES. DTSBR515 00198 05 HDR-LINE-6. DTSBR515 00199 10 FILLER PIC X(01) VALUE SPACE. DTSBR515 00200 10 FILLER PIC X(20) DTSBR515 00201 VALUE 'RATE EFFECTIVE QTR: '. DTSBR515 00202 10 HDR-REG-EFF-QTR PIC 99/9. DTSBR515 00203 DTSBR515 00204 01 DETAIL-LINES. DTSBR515 00205 05 DTL-LINE-2. DTSBR515 00206 10 FILLER PIC X(64) VALUE SPACES. DTSBR515 00207 10 FILLER PIC X(40) DTSBR515 00208 VALUE '-------------TAXABLE WAGES--------------'. DTSBR515 00209 10 FILLER PIC X(09) VALUE SPACES. DTSBR515 00210 10 FILLER PIC X(07) DTSBR515 00211 VALUE 'AVERAGE'. DTSBR515 00212 05 DTL-LINE-3. DTSBR515 00213 10 FILLER PIC X(01) VALUE SPACE. DTSBR515 00214 10 FILLER PIC X(26) DTSBR515 00215 VALUE 'EMP NO PRIMARY NAME'. DTSBR515 00216 10 FILLER PIC X(33) VALUE SPACES. DTSBR515 00217 10 WS-TAX-WAGES1-FROM PIC X(04). DTSBR515 00218 10 FILLER PIC X DTSBR515 00219 VALUE '-'. DTSBR515 00220 10 WS-TAX-WAGES1-THRU PIC X(04). DTSBR515 00221 10 FILLER PIC X(09) VALUE SPACES. DTSBR515 00222 10 WS-TAX-WAGES2-FROM PIC X(04). DTSBR515 00223 10 FILLER PIC X DTSBR515 00224 VALUE '-'. DTSBR515 00225 10 WS-TAX-WAGES2-THRU PIC X(04). DTSBR515 00226 10 FILLER PIC X(09) VALUE SPACES. DTSBR515 00227 10 WS-TAX-WAGES3-FROM PIC X(04). DTSBR515 00228 10 FILLER PIC X DTSBR515 00229 VALUE '-'. DTSBR515 00230 10 WS-TAX-WAGES3-THRU PIC X(04). DTSBR515 00231 10 FILLER PIC X(05) VALUE SPACES. DTSBR515 00232 10 FILLER PIC X(21) DTSBR515 00233 VALUE 'TAXABLE WAGES RATE'. DTSBR515 00234 05 DTL-LINE-4. DTSBR515 00235 10 FILLER PIC X(01) VALUE SPACE. DTSBR515 00236 10 DTL-EMP-NO PIC 999B999. DTSBR515 00237 10 FILLER PIC X(05) VALUE SPACES. DTSBR515 00238 10 DTL-PRIMARY-NAME PIC X(40). DTSBR515 00239 10 WS-REG-TAXABLE-WAGES1 PIC ZZZZZ,ZZZ,ZZ9.99. DTSBR515 00240 10 FILLER PIC X(02) VALUE SPACES. DTSBR515 00241 10 WS-REG-TAXABLE-WAGES2 PIC ZZZZZ,ZZZ,ZZ9.99. DTSBR515 00242 10 FILLER PIC X(02) VALUE SPACES. DTSBR515 00243 10 WS-REG-TAXABLE-WAGES3 PIC ZZZZZ,ZZZ,ZZ9.99. DTSBR515 00244 10 FILLER PIC X(02) VALUE SPACES. DTSBR515 00245 10 DTL-AVG-TAX-WAGE PIC ZZZZZ,ZZZ,ZZ9.99. DTSBR515 00246 10 FILLER PIC X(04) VALUE SPACES. DTSBR515 00247 10 WS-REG-COMPUTED-RATE PIC X(06). DTSBR515 00248 05 DTL-LINE-5. DTSBR515 00249 10 FILLER PIC X(11) VALUE SPACES. DTSBR515 00250 10 FILLER PIC X(40) DTSBR515 00251 VALUE ' PRIOR RESERVE UI TAX PAID'. DTSBR515 00252 10 FILLER PIC X(03) VALUE SPACES. DTSBR515 00253 10 FILLER PIC X(15) DTSBR515 00254 VALUE ' TRUST FUND INT'. DTSBR515 00255 10 FILLER PIC X(03) VALUE SPACES. DTSBR515 00256 10 FILLER PIC X(15) DTSBR515 00257 VALUE ' BENEFITS CHGD'. DTSBR515 00258 10 FILLER PIC X(03) VALUE SPACES. DTSBR515 00259 10 FILLER PIC X(15) DTSBR515 00260 VALUE 'CURRENT RESERVE'. DTSBR515 00261 10 FILLER PIC X(02) VALUE SPACE. DTSBR515 00262 10 FILLER PIC X(17) DTSBR515 00263 VALUE ' RSVR RATIO '. DTSBR515 00264 10 FILLER PIC X(05) VALUE SPACES. DTSBR515 00265 10 WS-REG-PENALTY-RATE PIC X(06). DTSBR515 00266 05 DTL-LINE-6. DTSBR515 00267 10 FILLER PIC X(12) VALUE SPACES. DTSBR515 00268 10 DTL-PRIOR-RESERVE-AMT PIC ZZZ,ZZZ,ZZ9.99-. DTSBR515 00269 10 FILLER PIC X(06) VALUE SPACES. DTSBR515 00270 10 DTL-UI-TAX-PAID-AMT PIC ZZZ,ZZZ,ZZ9.99-. DTSBR515 00271 10 FILLER PIC X(07) VALUE SPACES. DTSBR515 00272 10 DTL-TRUST-FUND-INT-AMT PIC ZZZ,ZZZ,ZZ9.99-. DTSBR515 00273 10 FILLER PIC X(03) VALUE SPACES. DTSBR515 00274 10 DTL-BENEFITS-CHARGED-AMT PIC ZZZ,ZZZ,ZZ9.99-. DTSBR515 00275 10 FILLER PIC X(03) VALUE SPACES. DTSBR515 00276 10 DTL-CURR-RESERVE-AMT PIC ZZZ,ZZZ,ZZ9.99-. DTSBR515 00277 10 FILLER PIC X(08) VALUE SPACES. DTSBR515 00278 10 DTL-RESERVE-RATIO PIC X(05). CL**2 00279 10 FILLER PIC X DTSBR515 00280 VALUE '%'. DTSBR515 00281 DTSBR515 00282 01 CONTROL-FOOTING-FINAL. DTSBR515 00283 05 CFF-LINE-4. DTSBR515 00284 10 FILLER PIC X(10) VALUE SPACES. DTSBR515 00285 10 CFF-NUMBER-ONE PIC ZZ,ZZ9. DTSBR515 00286 10 FILLER PIC X(01) VALUE SPACE. DTSBR515 00287 10 CFF-LITERAL PIC X(40) VALUE SPACES. DTSBR515 00288 05 CFF-LINE-8. DTSBR515 00289 10 FILLER PIC X(25) VALUE SPACES. DTSBR515 00290 10 FILLER PIC X(17) DTSBR515 00291 VALUE '*** END OF REPORT'. DTSBR515 00292 05 DTL-EXPORT. CL**4 00293 10 FILLER PIC X(01) VALUE SPACE. CL**4 00294 10 EXP-EMP-NO PIC 999B999. CL**4 00295 10 FILLER PIC X(02) VALUE '| '. CL*18 00296 10 EXP-PRIMARY-NAME PIC X(15). CL**5 00297 10 FILLER PIC X(02) VALUE '| '. CL*18 00298 10 WS-EXP-TAXABLE-WAGES1 PIC ZZZZZ,ZZZ,ZZ9.99. CL**4 00299 10 FILLER PIC X(02) VALUE '| '. CL*18 00300 10 WS-EXP-TAXABLE-WAGES2 PIC ZZZZZ,ZZZ,ZZ9.99. CL**4 00301 10 FILLER PIC X(02) VALUE '| '. CL*18 00302 10 WS-EXP-TAXABLE-WAGES3 PIC ZZZZZ,ZZZ,ZZ9.99. CL**4 00303 10 FILLER PIC X(02) VALUE '| '. CL*18 00304 10 EXP-AVG-TAX-WAGE PIC ZZZZZ,ZZZ,ZZ9.99. CL**4 00305 10 FILLER PIC X(02) VALUE '| '. CL*18 00306 10 WS-EXP-COMPUTED-RATE PIC X(06). CL**4 00307 10 FILLER PIC X(02) VALUE '| '. CL*18 00308 10 EXP-PRIOR-RESERVE-AMT PIC ZZZ,ZZZ,ZZ9.99-. CL**5 00309 10 FILLER PIC X(02) VALUE '| '. CL*18 00310 10 EXP-UI-TAX-PAID-AMT PIC ZZZ,ZZZ,ZZ9.99-. CL**4 00311 10 FILLER PIC X(02) VALUE '| '. CL*18 00312 10 EXP-TRUST-FUND-INT-AMT PIC ZZZ,ZZZ,ZZ9.99-. CL**4 00313 10 FILLER PIC X(02) VALUE '| '. CL*18 00314 10 EXP-BENEFITS-CHARGED-AMT PIC ZZZ,ZZZ,ZZ9.99-. CL**4 00315 10 FILLER PIC X(02) VALUE '| '. CL*18 00316 10 EXP-CURR-RESERVE-AMT PIC ZZZ,ZZZ,ZZ9.99-. CL**4 00317 10 FILLER PIC X(02) VALUE '| '. CL*18 00318 10 EXP-RESERVE-RATIO PIC X(05). CL**4 00319 10 FILLER PIC X CL**4 00320 VALUE '%'. CL**4 00321 10 FILLER PIC X(02) VALUE SPACES. CL*17 00322 CL**4 00323 EJECT DTSBR515 00324 LINKAGE SECTION. DTSBR515 00325 DTSBR515 00326 01 LRCM-LINK-AREA. DTSBR515 00327 ++INCLUDE DTSILRCM DTSBR515 00328 EJECT DTSBR515 00329 01 R515-REC. DTSBR515 00330 ++INCLUDE DTSIR515 DTSBR515 00331 EJECT DTSBR515 00332 PROCEDURE DIVISION USING LRCM-LINK-AREA DTSBR515 00333 R515-REC. DTSBR515 00334 IF FIRST-TIME-IND = 'Y' DTSBR515 00335 PERFORM I1000-INITIATE THRU I1000-EXIT DTSBR515 00336 MOVE 'N' TO FIRST-TIME-IND. DTSBR515 00337 DTSBR515 00338 IF LRCM-EOR-88 DTSBR515 00339 PERFORM T1000-TERMINATE THRU T1000-EXIT DTSBR515 00340 ELSE DTSBR515 00341 PERFORM P0000-PROCESS THRU P0000-EXIT. DTSBR515 00342 DTSBR515 00343 GOBACK. DTSBR515 00344 EJECT DTSBR515 00345 I1000-INITIATE. DTSBR515 00346 DTSBR515 00347 OPEN OUTPUT PRT-FILE1 PRT-FILE2 PRT-FILE3 PRT-FILE4. CL**8 00348 MOVE LRCM-SYS-DATE TO HDR-SYS-DATE. DTSBR515 00349 MOVE LRCM-SYS-TIME TO HDR-SYS-TIME. DTSBR515 00350 MOVE LRCM-AGY-NAME-LINE1 TO HDR-AGY-NAME-LINE1. DTSBR515 00351 MOVE LRCM-AGY-NAME-LINE2 TO HDR-AGY-NAME-LINE2. DTSBR515 00352 MOVE SPACES TO PRT-RECORD1 PRT-RECORD2 PRT-RECORD3. DTSBR515 00353 DTSBR515 00354 MOVE ZEROES TO WS-REG-EFF-QTR WS-GOV-EFF-QTR. DTSBR515 00355 PERFORM S1000-INIT THRU S1000-EXIT. DTSBR515 00356 DTSBR515 00357 I1000-EXIT. DTSBR515 00358 EXIT. DTSBR515 00359 EJECT DTSBR515 00360 P0000-PROCESS. DTSBR515 00361 DTSBR515 00362 EVALUATE TRUE DTSBR515 00363 WHEN R515-RPT-TYPE-REG-88 DTSBR515 00364 MOVE ' REGULAR RATE ASSIGNMENT DETAIL LIST -' TO DTSBR515 00365 HDR-ASSIGMENT-HEADING DTSBR515 00366 PERFORM P1000-PROCESS THRU P1000-EXIT DTSBR515 00367 WHEN R515-RPT-TYPE-ESTIM-88 DTSBR515 00368 MOVE 'ESTIMATED RATE ASSIGNMENT DETAIL LIST ' TO DTSBR515 00369 HDR-ASSIGMENT-HEADING DTSBR515 00370 PERFORM P1000-PROCESS THRU P1000-EXIT DTSBR515 00371 WHEN R515-RPT-TYPE-FINAL-88 DTSBR515 00372 MOVE ' FINAL RATE ASSIGNMENT DETAIL LIST --' TO DTSBR515 00373 HDR-ASSIGMENT-HEADING DTSBR515 00374 PERFORM P1000-PROCESS THRU P1000-EXIT DTSBR515 00375 WHEN OTHER DTSBR515 00376 MOVE 'R515 REPORT TYPE NOT REG, ESTIM, OR FINAL ' DTSBR515 00377 TO WRK-ABEND-MSG DTSBR515 00378 PERFORM S999-ABEND THRU S999-EXIT DTSBR515 00379 END-EVALUATE. DTSBR515 00380 DTSBR515 00381 P0000-EXIT. DTSBR515 00382 EXIT. DTSBR515 00383 DTSBR515 00384 P1000-PROCESS. DTSBR515 00385 DTSBR515 00386 IF WS-REG-EFF-QTR = ZEROES DTSBR515 00387 PERFORM S1000-INIT THRU S1000-EXIT. DTSBR515 00388 DTSBR515 00389 IF R515-RATE-CLASSIFIED-88 DTSBR515 00390 MOVE 'CLASSIFIED ' TO WS-EMPLOYER-RATING DTSBR515 00391 END-IF. DTSBR515 00392 DTSBR515 00393 IF R515-RATE-NONCLASSIFIED-88 DTSBR515 00394 MOVE 'NOT CLASSIFIED' TO WS-EMPLOYER-RATING DTSBR515 00395 END-IF. DTSBR515 00396 DTSBR515 00397 MOVE R515-RESERVE-RATIO TO L057-RATIO CL**2 00398 * SET L056-DISP1-LEFT-88 TO TRUE. CL**2 00399 PERFORM S057-DISP-RATIO THRU S057-EXIT. CL**3 00400 MOVE L057-DISP-RATIO TO DTL-RESERVE-RATIO CL**5 00401 EXP-RESERVE-RATIO. CL**5 00402 DTSBR515 00403 IF R515-PENALTY-RATE = ZEROES DTSBR515 00404 MOVE SPACES TO WS-REG-PENALTY-RATE DTSBR515 00405 MOVE R515-COMPUTED-RATE TO L056-RATE DTSBR515 00406 SET L056-DISP1-LEFT-88 TO TRUE DTSBR515 00407 PERFORM S056-RATE-DISPLAY THRU S056-EXIT DTSBR515 00408 MOVE SPACES TO WS-REG-COMPUTED-RATE DTSBR515 00409 STRING ' ' DELIMITED BY SIZE DTSBR515 00410 L056-DISP-RATE DELIMITED BY SIZE DTSBR515 00411 INTO DTSBR515 00412 WS-REG-COMPUTED-RATE DTSBR515 00413 ELSE DTSBR515 00414 MOVE R515-PENALTY-RATE TO L056-RATE DTSBR515 00415 SET L056-DISP1-LEFT-88 TO TRUE DTSBR515 00416 PERFORM S056-RATE-DISPLAY THRU S056-EXIT DTSBR515 00417 MOVE L056-DISP-RATE TO WS-REG-PENALTY-RATE DTSBR515 00418 MOVE R515-COMPUTED-RATE TO L056-RATE DTSBR515 00419 SET L056-DISP1-LEFT-88 TO TRUE DTSBR515 00420 PERFORM S056-RATE-DISPLAY THRU S056-EXIT DTSBR515 00421 MOVE SPACES TO WS-REG-COMPUTED-RATE DTSBR515 00422 STRING '(' DELIMITED BY SIZE DTSBR515 00423 L056-DISP-RATE DELIMITED BY SPACE DTSBR515 00424 ')' DELIMITED BY SIZE DTSBR515 00425 INTO DTSBR515 00426 WS-REG-COMPUTED-RATE. DTSBR515 00427 DTSBR515 00428 MOVE WS-REG-COMPUTED-RATE TO WS-EXP-COMPUTED-RATE. CL**6 00429 PERFORM P2100-TAX-WAGES THRU P2100-EXIT VARYING DTSBR515 00430 R515-WAGES-IDX FROM 1 BY 1 UNTIL DTSBR515 00431 R515-WAGES-IDX > 3. DTSBR515 00432 DTSBR515 00433 MOVE R515-EMP-NO TO DTL-EMP-NO CL**5 00434 EXP-EMP-NO. CL**5 00435 MOVE R515-PRIMARY-NAME TO DTL-PRIMARY-NAME CL**5 00436 EXP-PRIMARY-NAME. CL**5 00437 MOVE R515-AVG-TAX-WAGE TO DTL-AVG-TAX-WAGE CL**5 00438 EXP-AVG-TAX-WAGE. CL**5 00439 MOVE R515-PRIOR-RESERVE-AMT TO DTL-PRIOR-RESERVE-AMT CL**6 00440 EXP-PRIOR-RESERVE-AMT. CL**6 00441 MOVE R515-UI-TAX-PAID-AMT TO DTL-UI-TAX-PAID-AMT CL**6 00442 EXP-UI-TAX-PAID-AMT. CL*10 00443 MOVE R515-TRUST-FUND-INTEREST-AMT TO DTL-TRUST-FUND-INT-AMT CL**6 00444 EXP-TRUST-FUND-INT-AMT. CL**6 00445 DTSBR515 00446 * IF R515-BENEFITS-CHARGED-AMT > +0 CL*11 00447 MOVE R515-BENEFITS-CHARGED-AMT TO DTSBR515 00448 DTL-BENEFITS-CHARGED-AMT DTSBR515 00449 EXP-BENEFITS-CHARGED-AMT CL**6 00450 * ELSE CL*11 00451 * MOVE ZERO TO CL*11 00452 * DTL-BENEFITS-CHARGED-AMT CL*11 00453 * EXP-BENEFITS-CHARGED-AMT CL*11 00454 * END-IF. CL*11 00455 DTSBR515 00456 MOVE R515-CURRENT-RESERVE-AMT TO DTL-CURR-RESERVE-AMT CL**7 00457 EXP-CURR-RESERVE-AMT. CL**6 00458 * MOVE R515-RESERVE-RATIO TO DTL-RESERVE-RATIO. CL**2 00459 DTSBR515 00460 IF R515-RPT-TYPE-REG-88 DTSBR515 00461 PERFORM P3000-PRINT-HEADER THRU P3000-EXIT DTSBR515 00462 WRITE PRT-RECORD1 FROM DTL-LINE-2 AFTER 2 DTSBR515 00463 WRITE PRT-RECORD1 FROM DTL-LINE-3 AFTER 1 DTSBR515 00464 WRITE PRT-RECORD1 FROM DTL-LINE-4 AFTER 1 DTSBR515 00465 WRITE PRT-RECORD1 FROM DTL-LINE-5 AFTER 1 DTSBR515 00466 WRITE PRT-RECORD1 FROM DTL-LINE-6 AFTER 1 DTSBR515 00467 ADD +6 TO WS-LINE-COUNT1 DTSBR515 00468 ADD +1 TO WS-NUMBER-ONE. DTSBR515 00469 DTSBR515 00470 IF R515-RPT-TYPE-ESTIM-88 DTSBR515 00471 PERFORM P4000-PRINT-HEADER THRU P4000-EXIT DTSBR515 00472 WRITE PRT-RECORD2 FROM DTL-LINE-2 AFTER 2 DTSBR515 00473 WRITE PRT-RECORD2 FROM DTL-LINE-3 AFTER 1 DTSBR515 00474 WRITE PRT-RECORD2 FROM DTL-LINE-4 AFTER 1 DTSBR515 00475 WRITE PRT-RECORD2 FROM DTL-LINE-5 AFTER 1 DTSBR515 00476 WRITE PRT-RECORD2 FROM DTL-LINE-6 AFTER 1 DTSBR515 00477 ADD +6 TO WS-LINE-COUNT2 DTSBR515 00478 ADD +1 TO WS-NUMBER-TWO. DTSBR515 00479 DTSBR515 00480 IF R515-RPT-TYPE-FINAL-88 DTSBR515 00481 PERFORM P5000-PRINT-HEADER THRU P5000-EXIT DTSBR515 00482 WRITE PRT-RECORD3 FROM DTL-LINE-2 AFTER 2 DTSBR515 00483 WRITE PRT-RECORD3 FROM DTL-LINE-3 AFTER 1 DTSBR515 00484 WRITE PRT-RECORD3 FROM DTL-LINE-4 AFTER 1 DTSBR515 00485 WRITE PRT-RECORD3 FROM DTL-LINE-5 AFTER 1 DTSBR515 00486 WRITE PRT-RECORD3 FROM DTL-LINE-6 AFTER 1 DTSBR515 00487 ADD +6 TO WS-LINE-COUNT3 DTSBR515 00488 ADD +1 TO WS-NUMBER-THREE. DTSBR515 00489 DTSBR515 00490 WRITE PRT-RECORD4 FROM DTL-EXPORT. CL**8 00491 P1000-EXIT. DTSBR515 00492 EXIT. DTSBR515 00493 DTSBR515 00494 P2100-TAX-WAGES. DTSBR515 00495 DTSBR515 00496 IF R515-WAGES-FROM-YRQ (R515-WAGES-IDX) GREATER ZEROS DTSBR515 00497 MOVE R515-WAGES-FROM-YRQ (R515-WAGES-IDX) TO L004-QTR-5-9 DTSBR515 00498 PERFORM S004-FROM-5 THRU S004-EXIT DTSBR515 00499 MOVE L004-SLASH-QTR TO WS-TAX-QTR-FROM DTSBR515 00500 ELSE DTSBR515 00501 MOVE SPACES TO WS-TAX-QTR-FROM DTSBR515 00502 END-IF. DTSBR515 00503 IF R515-WAGES-THRU-YRQ (R515-WAGES-IDX) GREATER ZEROS DTSBR515 00504 MOVE R515-WAGES-THRU-YRQ (R515-WAGES-IDX) TO L004-QTR-5-9 DTSBR515 00505 PERFORM S004-FROM-5 THRU S004-EXIT DTSBR515 00506 MOVE L004-SLASH-QTR TO WS-TAX-QTR-THRU DTSBR515 00507 ELSE DTSBR515 00508 MOVE SPACES TO WS-TAX-QTR-THRU DTSBR515 00509 END-IF. DTSBR515 00510 DTSBR515 00511 EVALUATE TRUE DTSBR515 00512 WHEN R515-WAGES-IDX = 1 DTSBR515 00513 MOVE R515-TAX-WAGE (R515-WAGES-IDX) TO DTSBR515 00514 WS-REG-TAXABLE-WAGES1 DTSBR515 00515 WS-EXP-TAXABLE-WAGES1 CL**6 00516 MOVE WS-TAX-QTR-FROM TO WS-TAX-WAGES1-FROM DTSBR515 00517 MOVE WS-TAX-QTR-THRU TO WS-TAX-WAGES1-THRU DTSBR515 00518 WHEN R515-WAGES-IDX = 2 DTSBR515 00519 MOVE R515-TAX-WAGE (R515-WAGES-IDX) TO DTSBR515 00520 WS-REG-TAXABLE-WAGES2 DTSBR515 00521 WS-EXP-TAXABLE-WAGES2 CL**6 00522 MOVE WS-TAX-QTR-FROM TO WS-TAX-WAGES2-FROM DTSBR515 00523 MOVE WS-TAX-QTR-THRU TO WS-TAX-WAGES2-THRU DTSBR515 00524 WHEN R515-WAGES-IDX = 3 DTSBR515 00525 MOVE R515-TAX-WAGE (R515-WAGES-IDX) TO DTSBR515 00526 WS-REG-TAXABLE-WAGES3 DTSBR515 00527 WS-EXP-TAXABLE-WAGES3 CL**6 00528 MOVE WS-TAX-QTR-FROM TO WS-TAX-WAGES3-FROM DTSBR515 00529 MOVE WS-TAX-QTR-THRU TO WS-TAX-WAGES3-THRU DTSBR515 00530 END-EVALUATE. DTSBR515 00531 P2100-EXIT. DTSBR515 00532 EXIT. DTSBR515 00533 DTSBR515 00534 P3000-PRINT-HEADER. DTSBR515 00535 IF WS-LINE-CNT1 GREATER 58 OR DTSBR515 00536 WS-LINE-COUNT1 GREATER 58 DTSBR515 00537 MOVE +0 TO WS-LINE-CNT1 DTSBR515 00538 MOVE +0 TO WS-LINE-COUNT1 DTSBR515 00539 ADD +1 TO WS-PAGE-CNT1 DTSBR515 00540 MOVE WS-PAGE-CNT1 TO HDR-PAGE-CNT DTSBR515 00541 MOVE '515R1' TO HDR-RPT-NO DTSBR515 00542 WRITE PRT-RECORD1 FROM HDR-LINE-1 AFTER TOP-OF-PAGE DTSBR515 00543 WRITE PRT-RECORD1 FROM HDR-LINE-2 AFTER 1 DTSBR515 00544 WRITE PRT-RECORD1 FROM HDR-LINE-3 AFTER 1 DTSBR515 00545 WRITE PRT-RECORD1 FROM HDR-LINE-4 AFTER 1 DTSBR515 00546 WRITE PRT-RECORD1 FROM HDR-LINE-5 AFTER 1 DTSBR515 00547 WRITE PRT-RECORD1 FROM HDR-LINE-6 AFTER 1 DTSBR515 00548 ADD +6 TO WS-LINE-COUNT1. DTSBR515 00549 P3000-EXIT. DTSBR515 00550 EXIT. DTSBR515 00551 DTSBR515 00552 P4000-PRINT-HEADER. DTSBR515 00553 IF WS-LINE-CNT2 GREATER 58 OR DTSBR515 00554 WS-LINE-COUNT2 GREATER 58 DTSBR515 00555 MOVE +0 TO WS-LINE-CNT2 DTSBR515 00556 MOVE +0 TO WS-LINE-COUNT2 DTSBR515 00557 ADD +1 TO WS-PAGE-CNT2 DTSBR515 00558 MOVE WS-PAGE-CNT2 TO HDR-PAGE-CNT DTSBR515 00559 MOVE '515R2' TO HDR-RPT-NO DTSBR515 00560 WRITE PRT-RECORD2 FROM HDR-LINE-1 AFTER TOP-OF-PAGE DTSBR515 00561 WRITE PRT-RECORD2 FROM HDR-LINE-2 AFTER 1 DTSBR515 00562 WRITE PRT-RECORD2 FROM HDR-LINE-3 AFTER 1 DTSBR515 00563 WRITE PRT-RECORD2 FROM HDR-LINE-4 AFTER 1 DTSBR515 00564 WRITE PRT-RECORD2 FROM HDR-LINE-5 AFTER 1 DTSBR515 00565 WRITE PRT-RECORD2 FROM HDR-LINE-6 AFTER 1 DTSBR515 00566 ADD +6 TO WS-LINE-COUNT2. DTSBR515 00567 P4000-EXIT. DTSBR515 00568 EXIT. DTSBR515 00569 DTSBR515 00570 P5000-PRINT-HEADER. DTSBR515 00571 IF WS-LINE-CNT3 GREATER 58 OR DTSBR515 00572 WS-LINE-COUNT3 GREATER 58 DTSBR515 00573 MOVE +0 TO WS-LINE-CNT3 DTSBR515 00574 MOVE +0 TO WS-LINE-COUNT3 DTSBR515 00575 ADD +1 TO WS-PAGE-CNT3 DTSBR515 00576 MOVE WS-PAGE-CNT3 TO HDR-PAGE-CNT DTSBR515 00577 MOVE '515R3' TO HDR-RPT-NO DTSBR515 00578 WRITE PRT-RECORD3 FROM HDR-LINE-1 AFTER TOP-OF-PAGE DTSBR515 00579 WRITE PRT-RECORD3 FROM HDR-LINE-2 AFTER 1 DTSBR515 00580 WRITE PRT-RECORD3 FROM HDR-LINE-3 AFTER 1 DTSBR515 00581 WRITE PRT-RECORD3 FROM HDR-LINE-4 AFTER 1 DTSBR515 00582 WRITE PRT-RECORD3 FROM HDR-LINE-5 AFTER 1 DTSBR515 00583 WRITE PRT-RECORD3 FROM HDR-LINE-6 AFTER 1 DTSBR515 00584 ADD +6 TO WS-LINE-COUNT3. DTSBR515 00585 P5000-EXIT. DTSBR515 00586 EXIT. DTSBR515 00587 DTSBR515 00588 T1000-TERMINATE. DTSBR515 00589 DTSBR515 00590 PERFORM S3000-TERM-R1 THRU S3000-EXIT. DTSBR515 00591 DTSBR515 00592 T1000-EXIT. DTSBR515 00593 EXIT. DTSBR515 00594 DTSBR515 00595 S1000-INIT. DTSBR515 00596 DTSBR515 00597 MOVE R515-EFF-QTR TO WS-REG-EFF-QTR. DTSBR515 00598 MOVE WS-REG-EFF-QTR (3:3) TO HDR-REG-EFF-QTR. DTSBR515 00599 DTSBR515 00600 S1000-EXIT. DTSBR515 00601 EXIT. DTSBR515 00602 DTSBR515 00603 S3000-TERM-R1. DTSBR515 00604 DTSBR515 00605 IF WS-NUMBER-ONE > ZEROS DTSBR515 00606 IF WS-LINE-COUNT1 > 50 DTSBR515 00607 PERFORM P3000-PRINT-HEADER THRU P3000-EXIT DTSBR515 00608 END-IF DTSBR515 00609 MOVE WS-NUMBER-ONE TO CFF-NUMBER-ONE DTSBR515 00610 MOVE 'RATE NOTICES PRINTED ' TO CFF-LITERAL DTSBR515 00611 WRITE PRT-RECORD1 FROM CFF-LINE-4 AFTER 4 DTSBR515 00612 WRITE PRT-RECORD1 FROM CFF-LINE-8 AFTER 4 DTSBR515 00613 END-IF. DTSBR515 00614 DTSBR515 00615 IF WS-NUMBER-TWO > ZEROS DTSBR515 00616 IF WS-LINE-COUNT2 > 50 DTSBR515 00617 PERFORM P4000-PRINT-HEADER THRU P4000-EXIT DTSBR515 00618 END-IF DTSBR515 00619 MOVE WS-NUMBER-TWO TO CFF-NUMBER-ONE DTSBR515 00620 MOVE 'ESTIMATED RATES ASSIGNED' TO CFF-LITERAL DTSBR515 00621 WRITE PRT-RECORD2 FROM CFF-LINE-4 AFTER 4 DTSBR515 00622 WRITE PRT-RECORD2 FROM CFF-LINE-8 AFTER 4 DTSBR515 00623 END-IF. DTSBR515 00624 DTSBR515 00625 IF WS-NUMBER-THREE > ZEROS DTSBR515 00626 IF WS-LINE-COUNT3 > 50 DTSBR515 00627 PERFORM P5000-PRINT-HEADER THRU P5000-EXIT DTSBR515 00628 END-IF DTSBR515 00629 MOVE WS-NUMBER-THREE TO CFF-NUMBER-ONE DTSBR515 00630 MOVE 'RATE NOTICES PRINTED ' TO CFF-LITERAL DTSBR515 00631 WRITE PRT-RECORD3 FROM CFF-LINE-4 AFTER 4 DTSBR515 00632 WRITE PRT-RECORD3 FROM CFF-LINE-8 AFTER 4 DTSBR515 00633 END-IF. DTSBR515 00634 DTSBR515 00635 CLOSE PRT-FILE1 PRT-FILE2 PRT-FILE3 PRT-FILE4. CL**6 00636 DTSBR515 00637 S3000-EXIT. DTSBR515 00638 EXIT. DTSBR515 00639 DTSBR515 00640 S004-FROM-5. DTSBR515 00641 DTSBR515 00642 SET L004-FROM-5 TO TRUE. DTSBR515 00643 DTSBR515 00644 CALL 'DTSBU004' USING L004-LINK-AREA. DTSBR515 00645 DTSBR515 00646 S004-EXIT. DTSBR515 00647 EXIT. DTSBR515 00648 DTSBR515 00649 ** S055-EXPERIENCE-PERIOD. DTSBR515 00650 ** SKIP1 DTSBR515 00651 ** CALL 'DTSBU055' USING L055-LINK-AREA. DTSBR515 00652 ** DTSBR515 00653 ** S055-EXIT. DTSBR515 00654 ** EXIT. DTSBR515 00655 DTSBR515 00656 S056-RATE-DISPLAY. DTSBR515 00657 DTSBR515 00658 CALL 'DTSBU056' USING L056-LINK-AREA. DTSBR515 00659 DTSBR515 00660 S056-EXIT. DTSBR515 00661 EXIT. DTSBR515 00662 CL**2 00663 S057-DISP-RATIO. CL**2 00664 CL**2 00665 CALL 'DTSBU057' USING L057-LINK-AREA. CL**2 00666 CL**2 00667 S057-EXIT. CL**2 00668 EXIT. CL**2 00669 DTSBR515 00670 S999-ABEND. DTSBR515 00671 DTSBR515 00672 DISPLAY '*** DTSBR515 ABENDING. ' DTSBR515 00673 WRK-ABEND-MSG. DTSBR515 00674 DTSBR515 00675 CALL 'DTSBU999' USING WRK-ABEND-CD. DTSBR515 00676 DTSBR515 00677 S999-EXIT. DTSBR515 00678 EXIT. DTSBR515 00679 DTSBR515