00001 IDENTIFICATION DIVISION. 08/06/19 00002 PROGRAM-ID. DTSBR503. DTSBR503 00003 AUTHOR. BDM. LV019 00004 DTSBR503 00005 ***** DTSBR503 00006 * DTSBR503 00007 * DTSBR503 00008 * CALLING SEQUENCE: DTSBD750 WRITES DTSIR503 RECORDS DTSBR503 00009 * DTSBR503 READS DTSIR503 RECORDS DTSBR503 00010 * TO PRODUCE THE RATE NOTICE FORMS DTSBR503 00011 * DTSBR503 00012 * DTSBR503 00013 * FUNCTION: RATE NOTICES. DTSBR503 00014 * DTSBR503 00015 * DTSBR503 00016 * MODIFICATION HISTORY: DTSBR503 00017 * DTSBR503 00018 * 04-29-99 THIS PROGRAM WAS CLONED FROM THE D.C TAX PROGRAM DTSBR503 00019 * TAX1003Y IN TAX.APPL.PANSLIB THEN IT WAS MODIFIED DTSBR503 00020 * TO READ FROM THE DUTAS DATABASE STRUCTURE. DTSBR503 00021 * REFERENCE RFP #**** AUTHOR OF CHANGE - DVS DTSBR503 00022 * DTSBR503 00023 * 12-11-06 MODIFIED TO PRINT TAX RATE TABLE. DTSBR503 00024 * REFERENCE AUTHOR OF CHANGE - ZL1. DTSBR503 00025 * DTSBR503 00026 * 04-16-08 MODIFIED TO INCLUDE MINUS SIGN ON COMPENSATION. DTSBR503 00027 * REFERENCE AUTHOR OF CHANGE - ZL1. DTSBR503 00028 * DTSBR503 00029 * CL*12 00030 * 07-11-19 MODIFIED TO CREATE RATE FILE FOR ESSP. CL*12 00031 * REFERENCE AUTHOR OF CHANGE - ZL1. CL*12 00032 * CL*12 00033 * CL**6 00034 * XX-XX-XXXX XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBR503 00035 * XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBR503 00036 * DTSBR503 00037 * REFERENCE RFP #**** AUTHOR OF CHANGE - XXX DTSBR503 00038 ***** DTSBR503 00039 ENVIRONMENT DIVISION. DTSBR503 00040 CONFIGURATION SECTION. DTSBR503 00041 SPECIAL-NAMES. DTSBR503 00042 C01 IS TOP-OF-PAGE. DTSBR503 00043 INPUT-OUTPUT SECTION. DTSBR503 00044 FILE-CONTROL. DTSBR503 00045 SELECT PRT-FILE1 ASSIGN TO RPT503R1. DTSBR503 00046 SELECT PRT-FILE2 ASSIGN TO RPT503R2. DTSBR503 00047 SELECT PRT-FILE3 ASSIGN TO RPT503R3. CL**5 00048 DATA DIVISION. DTSBR503 00049 FILE SECTION. DTSBR503 00050 DTSBR503 00051 FD PRT-FILE1 DTSBR503 00052 RECORDING MODE IS F DTSBR503 00053 LABEL RECORDS ARE OMITTED. DTSBR503 00054 DTSBR503 00055 01 PRT-R632-REC PIC X(133). DTSBR503 00056 DTSBR503 00057 FD PRT-FILE2 DTSBR503 00058 RECORDING MODE IS F DTSBR503 00059 LABEL RECORDS ARE OMITTED. DTSBR503 00060 DTSBR503 00061 01 PRT-R632A-REC PIC X(133). DTSBR503 00062 DTSBR503 00063 FD PRT-FILE3 CL**4 00064 RECORDING MODE IS F CL**4 00065 LABEL RECORDS ARE OMITTED. CL**4 00066 CL**4 00067 01 PRT-X108-REC PIC X(24). CL**6 00068 CL**6 00069 WORKING-STORAGE SECTION. DTSBR503 000695 77 PAN-VALET PICTURE X(24) VALUE '019DTSBR503 08/06/19'. DTSBR503 00070 77 PAN-VALET PICTURE X(24) VALUE '212DTSBR503 12/13/13'. DTSBR503 00071 77 PAN-VALET PICTURE X(24) VALUE '002DTSBR503 12/13/13'. DTSBR503 00072 77 PAN-VALET PICTURE X(24) VALUE '210DTSBR503 07/22/12'. DTSBR503 00073 DTSBR503 00074 01 VSCA-ADDRESS-LINE. DTSBR503 00075 03 VSCA-DATA. DTSBR503 00076 05 PRT1 PIC X(132) VALUE SPACES. DTSBR503 00077 03 FILLER PIC X VALUE '1'. DTSBR503 00078 DTSBR503 00079 01 VSCA-LINE PIC X(133) VALUE SPACES. DTSBR503 00080 01 WS-REC PIC X(132) VALUE SPACES. DTSBR503 00081 01 BLANK-LINE PIC X(133) VALUE SPACES. DTSBR503 00082 01 WRK-DATE PIC 9(08) VALUE ZEROS. DTSBR503 00083 01 WRK-DATE-Z REDEFINES WRK-DATE. DTSBR503 00084 05 WRK-YR PIC 9(04). DTSBR503 00085 05 WRK-MM PIC 9(02). DTSBR503 00086 05 WRK-DA PIC 9(02). DTSBR503 00087 01 WRK-AREA. DTSBR503 00088 05 FIRST-TIME-IND PIC X(01) VALUE 'Y'. DTSBR503 00089 05 WS-503R2-RECORDS PIC X(01) VALUE 'Y'. DTSBR503 00090 88 WS-503R2-RECORDS-88 VALUE 'Y'. DTSBR503 00091 DTSBR503 00092 05 WRK-ABEND-CD PIC S9(04) COMP VALUE +503.DTSBR503 00093 05 ABEND-MSG PIC X(60). DTSBR503 00094 DTSBR503 00095 01 WS-TEMPS. DTSBR503 00096 05 WT-RATIO PIC S99V9(05). DTSBR503 00097 05 WTC-RATE PIC S9V9999. DTSBR503 00098 DTSBR503 00099 01 632-DATE-LINE. DTSBR503 00100 03 FILLER PIC X(86) VALUE SPACES. DTSBR503 00101 03 DATE-632. DTSBR503 00102 05 DATE-632-MM PIC 99. DTSBR503 00103 05 FILLER PIC X VALUE '/'. DTSBR503 00104 05 DATE-632-DA PIC 99. DTSBR503 00105 05 FILLER PIC X VALUE '/'. DTSBR503 00106 05 DATE-632-YY PIC 9999. DTSBR503 00107 DTSBR503 00108 01 632A-DATE-LINE. DTSBR503 00109 03 FILLER PIC X(86) VALUE SPACES. DTSBR503 00110 03 DATE-632A. DTSBR503 00111 05 DATE-632-MMA PIC 99. DTSBR503 00112 05 FILLER PIC X VALUE '/'. DTSBR503 00113 05 DATE-632-DAA PIC 99. DTSBR503 00114 05 FILLER PIC X VALUE '/'. DTSBR503 00115 05 DATE-632-YYA PIC 9999. DTSBR503 00116 DTSBR503 00117 01 632-DETAIL-LINE1. DTSBR503 00118 03 FILLER PIC X. DTSBR503 00119 03 FILLER PIC X(06) VALUE SPACES. DTSBR503 00120 03 ACCOUNT PIC 999B999. DTSBR503 00121 03 FILLER PIC X(09) VALUE SPACES. DTSBR503 00122 03 RATE1 PIC X(07). DTSBR503 00123 03 FILLER PIC X(21) VALUE SPACES. DTSBR503 00124 03 ONLY-YR PIC X(4). DTSBR503 00125 03 FILLER PIC X(08) VALUE SPACES. DTSBR503 00126 03 COMPDTE PIC 99/99/9999. DTSBR503 00127 03 FILLER PIC X(1) VALUE SPACES. DTSBR503 00128 03 AAPAY PIC $$$,$$$,$$9.99. DTSBR503 00129 03 FILLER PIC X(05) VALUE SPACES. DTSBR503 00130 03 RESRATIO PIC X(05). DTSBR503 00131 03 PER-CENT PIC X(01) VALUE '%'. DTSBR503 00132 DTSBR503 00133 01 632-DETAIL-LINE2. DTSBR503 00134 03 FILLER PIC X(01) VALUE SPACES. DTSBR503 00135 03 PREVIOUS PIC $$$$,$$$,$$9.99-. DTSBR503 00136 03 FILLER PIC X(5) VALUE SPACES. DTSBR503 00137 03 TRUST PIC $$,$$$,$$9.99. DTSBR503 00138 03 FILLER PIC X(06) VALUE SPACES. DTSBR503 00139 03 CONTRIBUTION PIC $$$,$$$,$$9.99-. DTSBR503 00140 03 FILLER PIC X(07) VALUE SPACES. DTSBR503 00141 03 BENEFITS PIC $$$$,$$$,$$9.99-. DTSBR503 00142 03 FILLER PIC X(06) VALUE SPACES. DTSBR503 00143 03 CURRENT-RESV PIC $$$$,$$$,$$9.99-. DTSBR503 00144 DTSBR503 00145 01 632-DETAIL-LINE3. DTSBR503 00146 03 FILLER PIC X(94) VALUE SPACES. DTSBR503 00147 03 RPT-TABLE PIC X(5) VALUE SPACES. DTSBR503 00148 03 FILLER PIC X(35) VALUE SPACES. DTSBR503 00149 DTSBR503 00150 01 632A-DETAIL-LINE1. DTSBR503 00151 03 FILLER PIC X. DTSBR503 00152 03 FILLER PIC X(06) VALUE SPACES. DTSBR503 00153 03 UNACCT PIC 999B999. DTSBR503 00154 03 FILLER PIC X(15) VALUE SPACES. DTSBR503 00155 03 RATE PIC X(07). DTSBR503 00156 03 FILLER PIC X(33) VALUE SPACES. DTSBR503 00157 03 UNONLY PIC X(4). DTSBR503 00158 03 FILLER PIC X(14) VALUE SPACES. DTSBR503 00159 03 UNCOMPDTE PIC 99/99/9999. DTSBR503 00160 DTSBR503 00161 01 632A-DETAIL-LINE2. DTSBR503 00162 03 FILLER PIC X(2) VALUE SPACES. DTSBR503 00163 03 UNPREV PIC $$$,$$$,$$9.99-. DTSBR503 00164 03 FILLER PIC X(5) VALUE SPACES. DTSBR503 00165 03 UNTRUST PIC $$$,$$$,$$9.99. DTSBR503 00166 03 FILLER PIC X(6) VALUE SPACES. DTSBR503 00167 03 UNCONT PIC $$$,$$$,$$9.99-. DTSBR503 00168 03 FILLER PIC X(6) VALUE SPACES. DTSBR503 00169 03 BCHARGED PIC $$$,$$$,$$9.99-. DTSBR503 00170 03 FILLER PIC X(5) VALUE SPACES. DTSBR503 00171 03 UNCURR PIC $$$,$$$,$$9.99-. DTSBR503 00172 DTSBR503 00173 01 X108-REC. CL*12 00174 ++INCLUDE DTSIX108 CL*12 00175 EJECT DTSBR503 00176 01 L001-LINK-AREA. DTSBR503 00177 ++INCLUDE DTSIL001 DTSBR503 00178 EJECT DTSBR503 00179 01 L009-LINK-AREA. CL**3 00180 ++INCLUDE DTSIL009 CL**3 00181 EJECT CL**3 00182 01 L056-LINK-AREA. DTSBR503 00183 ++INCLUDE DTSIL056 DTSBR503 00184 EJECT DTSBR503 00185 DTSBR503 00186 01 L057-LINK-AREA. DTSBR503 00187 ++INCLUDE DTSIL057 DTSBR503 00188 EJECT DTSBR503 00189 DTSBR503 00190 ++INCLUDE DTSXL503 DTSBR503 00191 EJECT DTSBR503 00192 *RW1 DTSBR503 00193 01 CONVERT-BARCODE-LINE. DTSBR503 00194 05 BARC-EMP-NO PIC 9(06) VALUE ZEROS. DTSBR503 00195 DTSBR503 00196 01 WS-BARC-LINE. DTSBR503 00197 05 FILLER PIC X(40) VALUE SPACES. DTSBR503 00198 05 CONVERTED-BARCODE PIC X(50). DTSBR503 00199 05 FILLER PIC X(30) VALUE SPACES. DTSBR503 00200 DTSBR503 00201 01 BARI-LINK-AREA. DTSBR503 00202 ++INCLUDE BARIL599 DTSBR503 00203 EJECT DTSBR503 00204 *RW2 DTSBR503 00205 LINKAGE SECTION. DTSBR503 00206 SKIP3 DTSBR503 00207 01 LRCM-LINK-AREA. DTSBR503 00208 ++INCLUDE DTSILRCM DTSBR503 00209 EJECT DTSBR503 00210 01 R503-REC. DTSBR503 00211 ++INCLUDE DTSIR503 DTSBR503 00212 EJECT DTSBR503 00213 PROCEDURE DIVISION USING LRCM-LINK-AREA DTSBR503 00214 R503-REC. DTSBR503 00215 DTSBR503 00216 IF FIRST-TIME-IND = 'Y' DTSBR503 00217 PERFORM I1000-INITIATE THRU I1000-EXIT DTSBR503 00218 MOVE 'N' TO FIRST-TIME-IND. DTSBR503 00219 DTSBR503 00220 IF LRCM-EOR-88 DTSBR503 00221 PERFORM T1000-TERMINATE THRU T1000-EXIT DTSBR503 00222 ELSE DTSBR503 00223 PERFORM P1000-PROCESS THRU P1000-EXIT. DTSBR503 00224 GOBACK. DTSBR503 00225 DTSBR503 00226 EXIT. DTSBR503 00227 EJECT DTSBR503 00228 DTSBR503 00229 DTSBR503 00230 I1000-INITIATE. DTSBR503 00231 OPEN OUTPUT PRT-FILE1 PRT-FILE2 PRT-FILE3. CL*13 00232 DTSBR503 00233 MOVE R503-NOTICE-DATE TO WRK-DATE. DTSBR503 00234 MOVE WRK-DA TO DATE-632-DAA DATE-632-DA DTSBR503 00235 MOVE WRK-MM TO DATE-632-MMA DATE-632-MM DTSBR503 00236 MOVE WRK-YR TO DATE-632-YYA DATE-632-YY. DTSBR503 00237 DTSBR503 00238 * MOVE 13 TO DATE-632-DAA DATE-632-DA CL**2 00239 * MOVE 12 TO DATE-632-MMA DATE-632-MM CL**2 00240 * MOVE 2013 TO DATE-632-YYA DATE-632-YY. CL**2 00241 DTSBR503 00242 WRITE PRT-R632-REC FROM BLANK-LINE DTSBR503 00243 AFTER ADVANCING TOP-OF-PAGE. DTSBR503 00244 DTSBR503 00245 WRITE PRT-R632-REC FROM LINE-13 AFTER DTSBR503 00246 ADVANCING 15 LINES. DTSBR503 00247 WRITE PRT-R632-REC FROM LINE-14 AFTER 1. DTSBR503 00248 WRITE PRT-R632-REC FROM LINE-15. DTSBR503 00249 WRITE PRT-R632-REC FROM LINE-16. DTSBR503 00250 WRITE PRT-R632-REC FROM LINE-17. DTSBR503 00251 DTSBR503 00252 WRITE PRT-R632-REC FROM BLANK-LINE DTSBR503 00253 AFTER ADVANCING PAGE. DTSBR503 00254 DTSBR503 00255 WRITE PRT-R632A-REC FROM BLANK-LINE DTSBR503 00256 AFTER ADVANCING TOP-OF-PAGE. DTSBR503 00257 DTSBR503 00258 WRITE PRT-R632A-REC FROM LINE-13 AFTER DTSBR503 00259 ADVANCING 15 LINES. DTSBR503 00260 WRITE PRT-R632A-REC FROM LINE-14 AFTER 1. DTSBR503 00261 WRITE PRT-R632A-REC FROM LINE-15. DTSBR503 00262 WRITE PRT-R632A-REC FROM LINE-16. DTSBR503 00263 WRITE PRT-R632A-REC FROM LINE-17. DTSBR503 00264 DTSBR503 00265 WRITE PRT-R632A-REC FROM BLANK-LINE DTSBR503 00266 AFTER ADVANCING TOP-OF-PAGE. DTSBR503 00267 I1000-EXIT. DTSBR503 00268 EXIT. DTSBR503 00269 P1000-PROCESS. DTSBR503 00270 SKIP1 DTSBR503 00271 MOVE R503-CURRENT-RESERVE-THRU-DATE TO L001-FED-8-DATE-9. DTSBR503 00272 SET L001-FROM-FED-8 TO TRUE. DTSBR503 00273 PERFORM S001-DATE THRU S001-EXIT. DTSBR503 00274 DTSBR503 00275 MOVE R503-UI-RATE TO L056-RATE. DTSBR503 00276 SET L056-DISP1-LEFT-PCT-88 TO TRUE. DTSBR503 00277 PERFORM S056-RATE-DISPLAY THRU S056-EXIT. DTSBR503 00278 DTSBR503 00279 DTSBR503 00280 MOVE R503-RESERVE-RATIO TO L057-RATIO. DTSBR503 00281 PERFORM S057-DISP-RATIO THRU S057-EXIT. DTSBR503 00282 *RW1 DTSBR503 00283 MOVE R503-EMP-NO TO BARC-EMP-NO. DTSBR503 00284 PERFORM S599-BARCODE THRU S599-EXIT. DTSBR503 00285 DTSBR503 00286 IF L599-SETB-FONT1 DTSBR503 00287 MOVE 'MODIFY=TAXSM1,' TO X1-CA-CME XA-CA-CME DTSBR503 00288 ELSE DTSBR503 00289 IF L599-SETB-FONT2 DTSBR503 00290 MOVE 'MODIFY=TAXSM2,' TO X1-CA-CME XA-CA-CME DTSBR503 00291 ELSE DTSBR503 00292 MOVE 'MODIFY=TAXSM1,' TO X1-CA-CME XA-CA-CME. DTSBR503 00293 CL**3 00294 IF R503-FMT-LINE(1) > SPACES CL**3 00295 MOVE R503-FMT-LINE(1) TO L009-DATA CL**3 00296 PERFORM S009-CONVERT-TO-CAPS THRU S009-EXIT CL**3 00297 MOVE L009-DATA TO FMT-ADDR-LINE1 CL**3 00298 ELSE CL**3 00299 MOVE SPACES TO FMT-ADDR-LINE1. CL**3 00300 CL**3 00301 IF R503-FMT-LINE(2) > SPACES CL**3 00302 MOVE R503-FMT-LINE(2) TO L009-DATA CL**3 00303 PERFORM S009-CONVERT-TO-CAPS THRU S009-EXIT CL**3 00304 MOVE L009-DATA TO FMT-ADDR-LINE2 CL**3 00305 ELSE CL**3 00306 MOVE SPACES TO FMT-ADDR-LINE2. CL**3 00307 CL**3 00308 IF R503-FMT-LINE(3) > SPACES CL**3 00309 MOVE R503-FMT-LINE(3) TO L009-DATA CL**3 00310 PERFORM S009-CONVERT-TO-CAPS THRU S009-EXIT CL**3 00311 MOVE L009-DATA TO FMT-ADDR-LINE3 CL**3 00312 ELSE CL**3 00313 MOVE SPACES TO FMT-ADDR-LINE3. CL**3 00314 CL**3 00315 DTSBR503 00316 IF R503-FMT-LINE(4) > SPACES CL**3 00317 MOVE R503-FMT-LINE(4) TO L009-DATA CL**3 00318 PERFORM S009-CONVERT-TO-CAPS THRU S009-EXIT CL**3 00319 MOVE L009-DATA TO FMT-ADDR-LINE4 CL**3 00320 ELSE CL**3 00321 MOVE SPACES TO FMT-ADDR-LINE4. CL**3 00322 CL**3 00323 IF R503-FMT-LINE(5) > SPACES CL**3 00324 MOVE R503-FMT-LINE(5) TO L009-DATA CL**3 00325 PERFORM S009-CONVERT-TO-CAPS THRU S009-EXIT CL**3 00326 MOVE L009-DATA TO FMT-ADDR-LINE5 CL**3 00327 ELSE CL**3 00328 MOVE SPACES TO FMT-ADDR-LINE5. CL**3 00329 CL**3 00330 IF R503-CLASSIFIED-88 DTSBR503 00331 WRITE PRT-R632-REC FROM XF-CA-CNTL-L632 DTSBR503 00332 AFTER ADVANCING TOP-OF-PAGE DTSBR503 00333 WRITE PRT-R632-REC FROM X2-CA-CNTL-LINE AFTER 1 DTSBR503 00334 WRITE PRT-R632-REC FROM X3-CA-CNTL-LINE AFTER 1 DTSBR503 00335 PERFORM P1100-R632 THRU P1100-EXIT DTSBR503 00336 ELSE DTSBR503 00337 IF R503-NONCLASSIFIED-88 DTSBR503 00338 IF WS-503R2-RECORDS-88 DTSBR503 00339 MOVE 'N' TO WS-503R2-RECORDS DTSBR503 00340 WRITE PRT-R632A-REC FROM XF-CA-CNTL-L632A DTSBR503 00341 AFTER ADVANCING PAGE DTSBR503 00342 WRITE PRT-R632A-REC FROM X2-CA-CNTL-LINE DTSBR503 00343 WRITE PRT-R632A-REC FROM X3-CA-CNTL-LINE DTSBR503 00344 PERFORM P1200-R632A THRU P1200-EXIT DTSBR503 00345 ELSE DTSBR503 00346 WRITE PRT-R632A-REC FROM X2-CA-CNTL-LINE DTSBR503 00347 AFTER ADVANCING PAGE DTSBR503 00348 WRITE PRT-R632A-REC FROM X3-CA-CNTL-LINE AFTER 1 DTSBR503 00349 PERFORM P1200-R632A THRU P1200-EXIT DTSBR503 00350 END-IF DTSBR503 00351 ELSE DTSBR503 00352 DISPLAY ' INVALID RECORD TYPE ' R503-REC-TYPE DTSBR503 00353 DISPLAY ' INVALID EMPLOYER ' R503-EMP-NO. DTSBR503 00354 CL*12 00355 PERFORM P1300-ESSP-RATE THRU P1300-EXIT. CL*12 00356 CL*12 00357 P1000-EXIT. DTSBR503 00358 EXIT. DTSBR503 00359 EJECT DTSBR503 00360 DTSBR503 00361 P1100-R632. DTSBR503 00362 WRITE PRT-R632-REC FROM 632-DATE-LINE AFTER 11. DTSBR503 00363 MOVE R503-EMP-NO TO ACCOUNT. DTSBR503 00364 MOVE L056-DISP-RATE TO RATE1. DTSBR503 00365 MOVE R503-RATE-YEAR TO ONLY-YR. DTSBR503 00366 MOVE L001-CAL-8-DATE-9 TO COMPDTE. DTSBR503 00367 MOVE R503-AVG-TAX-WAGE TO AAPAY. DTSBR503 00368 MOVE L057-DISP-RATIO TO RESRATIO. DTSBR503 00369 MOVE R503-RATE-TABLE TO RPT-TABLE. DTSBR503 00370 INSPECT RPT-TABLE REPLACING FIRST ' ' BY '.'. DTSBR503 00371 WRITE PRT-R632-REC FROM 632-DETAIL-LINE1 AFTER 5. DTSBR503 00372 DTSBR503 00373 MOVE R503-PRIOR-RESERVE-AMT TO PREVIOUS. DTSBR503 00374 MOVE R503-TRUST-FUND-INTEREST-AMT TO TRUST. DTSBR503 00375 MOVE R503-UI-TAX-PAID-AMT TO CONTRIBUTION. DTSBR503 00376 MOVE R503-BENEFITS-CHARGED-AMT TO BENEFITS DTSBR503 00377 MOVE R503-CURRENT-RESERVE-AMT TO CURRENT-RESV DTSBR503 00378 WRITE PRT-R632-REC FROM 632-DETAIL-LINE2 AFTER 7. DTSBR503 00379 WRITE PRT-R632-REC FROM 632-DETAIL-LINE3 AFTER 48. DTSBR503 00380 *RW1 DTSBR503 00381 MOVE L599-BARCODED-DATA TO CONVERTED-BARCODE. DTSBR503 00382 DTSBR503 00383 MOVE SPACES TO WS-REC. DTSBR503 00384 WRITE PRT-R632-REC FROM WS-REC DTSBR503 00385 AFTER ADVANCING TOP-OF-PAGE. DTSBR503 00386 DTSBR503 00387 WRITE PRT-R632-REC FROM WS-BARC-LINE AFTER 04. DTSBR503 00388 DTSBR503 00389 * WRITE PRT-R632-REC FROM BLANK-LINE DTSBR503 00390 * AFTER ADVANCING TOP-OF-PAGE. DTSBR503 00391 * WRITE PRT-R632-REC FROM LINE-ADDR-17 AFTER ADVANCING DTSBR503 00392 * 24 LINES. DTSBR503 00393 WRITE PRT-R632-REC FROM LINE-ADDR-17 AFTER ADVANCING DTSBR503 00394 20 LINES. DTSBR503 00395 *RW2 DTSBR503 00396 WRITE PRT-R632-REC FROM LINE-ADDR-18 AFTER 1. DTSBR503 00397 WRITE PRT-R632-REC FROM LINE-ADDR-19 AFTER 1. DTSBR503 00398 WRITE PRT-R632-REC FROM LINE-ADDR-20 AFTER 1. DTSBR503 00399 WRITE PRT-R632-REC FROM LINE-ADDR-21 AFTER 1. DTSBR503 00400 DTSBR503 00401 P1100-EXIT. DTSBR503 00402 EXIT. DTSBR503 00403 EJECT DTSBR503 00404 DTSBR503 00405 P1200-R632A. DTSBR503 00406 WRITE PRT-R632A-REC FROM 632A-DATE-LINE AFTER 12. DTSBR503 00407 MOVE R503-EMP-NO TO UNACCT. DTSBR503 00408 MOVE L056-DISP-RATE TO RATE. DTSBR503 00409 MOVE R503-RATE-YEAR TO UNONLY. DTSBR503 00410 MOVE L001-CAL-8-DATE-9 TO UNCOMPDTE. DTSBR503 00411 WRITE PRT-R632A-REC FROM 632A-DETAIL-LINE1 AFTER 5. DTSBR503 00412 DTSBR503 00413 MOVE R503-PRIOR-RESERVE-AMT TO UNPREV. DTSBR503 00414 MOVE R503-TRUST-FUND-INTEREST-AMT TO UNTRUST. DTSBR503 00415 MOVE R503-UI-TAX-PAID-AMT TO UNCONT. DTSBR503 00416 MOVE R503-BENEFITS-CHARGED-AMT TO BCHARGED. DTSBR503 00417 MOVE R503-CURRENT-RESERVE-AMT TO UNCURR. DTSBR503 00418 WRITE PRT-R632A-REC FROM 632A-DETAIL-LINE2 AFTER 6. DTSBR503 00419 *RW1 DTSBR503 00420 MOVE L599-BARCODED-DATA TO CONVERTED-BARCODE. DTSBR503 00421 DTSBR503 00422 MOVE SPACES TO WS-REC. DTSBR503 00423 WRITE PRT-R632A-REC FROM WS-REC DTSBR503 00424 AFTER ADVANCING TOP-OF-PAGE. DTSBR503 00425 DTSBR503 00426 WRITE PRT-R632A-REC FROM WS-BARC-LINE AFTER 04. DTSBR503 00427 DTSBR503 00428 * WRITE PRT-R632A-REC FROM BLANK-LINE DTSBR503 00429 * AFTER ADVANCING TOP-OF-PAGE. DTSBR503 00430 * WRITE PRT-R632A-REC FROM LINE-ADDR-17 AFTER ADVANCING DTSBR503 00431 * 24 LINES. DTSBR503 00432 WRITE PRT-R632A-REC FROM LINE-ADDR-17 AFTER ADVANCING DTSBR503 00433 20 LINES. DTSBR503 00434 *RW2 DTSBR503 00435 WRITE PRT-R632A-REC FROM LINE-ADDR-18 AFTER 1. DTSBR503 00436 WRITE PRT-R632A-REC FROM LINE-ADDR-19 AFTER 1. DTSBR503 00437 WRITE PRT-R632A-REC FROM LINE-ADDR-20 AFTER 1. DTSBR503 00438 WRITE PRT-R632A-REC FROM LINE-ADDR-21 AFTER 1. DTSBR503 00439 DTSBR503 00440 DTSBR503 00441 P1200-EXIT. DTSBR503 00442 EXIT. DTSBR503 00443 P1300-ESSP-RATE. CL*12 00444 MOVE R503-EMP-NO TO X108-EMP-NO. CL*12 00445 MOVE R503-UI-RATE TO L056-RATE. CL*18 00446 SET L056-DISP1-LEFT-88 TO TRUE. CL*18 00447 PERFORM S056-RATE-DISPLAY THRU S056-EXIT. CL*18 00448 CL*18 00449 MOVE L056-DISP-RATE TO X108-RATE-X. CL*19 00450 MOVE R503-RATE-YEAR TO X108-RATE-YR. CL*12 00451 WRITE PRT-X108-REC FROM X108-REC. CL*12 00452 CL*12 00453 P1300-EXIT. CL*12 00454 EXIT. CL*12 00455 EJECT DTSBR503 00456 S001-DATE. DTSBR503 00457 DTSBR503 00458 CALL 'DTSBU001' USING L001-LINK-AREA. DTSBR503 00459 DTSBR503 00460 S001-EXIT. DTSBR503 00461 EXIT. DTSBR503 00462 SKIP3 DTSBR503 00463 S009-CONVERT-TO-CAPS. CL**3 00464 CL**3 00465 CALL 'DTSBU009' USING L009-LINK-AREA. CL**3 00466 CL**3 00467 S009-EXIT. CL**3 00468 EXIT. CL**3 00469 DTSBR503 00470 S056-RATE-DISPLAY. DTSBR503 00471 SKIP1 DTSBR503 00472 CALL 'DTSBU056' USING L056-LINK-AREA. DTSBR503 00473 SKIP2 DTSBR503 00474 S056-EXIT. DTSBR503 00475 EXIT. DTSBR503 00476 SKIP3 DTSBR503 00477 S057-DISP-RATIO. DTSBR503 00478 SKIP1 DTSBR503 00479 CALL 'DTSBU057' USING L057-LINK-AREA. DTSBR503 00480 SKIP2 DTSBR503 00481 S057-EXIT. DTSBR503 00482 EXIT. DTSBR503 00483 SKIP3 DTSBR503 00484 S599-BARCODE. DTSBR503 00485 MOVE CONVERT-BARCODE-LINE TO L599-INPUT-DATA. DTSBR503 00486 MOVE LENGTH OF CONVERT-BARCODE-LINE TO L599-REC-LENGTH. DTSBR503 00487 MOVE 'TAX' TO L599-SYSTEM. DTSBR503 00488 DTSBR503 00489 CALL 'DTSBU599' USING BARI-LINK-AREA. DTSBR503 00490 DTSBR503 00491 IF L599-NOT-CONVERTED DTSBR503 00492 MOVE 'BAR CODES CONVERTED FAILED' TO ABEND-MSG DTSBR503 00493 PERFORM S999-ABEND THRU S999-EXIT. DTSBR503 00494 DTSBR503 00495 S599-EXIT. DTSBR503 00496 EXIT. DTSBR503 00497 SKIP3 DTSBR503 00498 T1000-TERMINATE. DTSBR503 00499 CLOSE PRT-FILE1 PRT-FILE2 PRT-FILE3. CL*12 00500 DTSBR503 00501 T1000-EXIT. DTSBR503 00502 EXIT. DTSBR503 00503 SKIP3 DTSBR503 00504 S999-ABEND. DTSBR503 00505 DISPLAY '***'. DTSBR503 00506 DISPLAY '*** ' DTSBR503 00507 ABEND-MSG. DTSBR503 00508 DISPLAY '***'. DTSBR503 00509 DTSBR503 00510 CALL 'DTSBU999' USING WRK-ABEND-CD. DTSBR503 00511 S999-EXIT. DTSBR503 00512 EXIT. DTSBR503 00513 DTSBR503