DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
Neeraj Kumar
445
Batch/DTSBR503.cob
Normal file
445
Batch/DTSBR503.cob
Normal file
@ -0,0 +1,445 @@
|
||||
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
|
||||
Reference in New Issue
Block a user