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