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