446 lines
35 KiB
COBOL
446 lines
35 KiB
COBOL
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
|