515 lines
41 KiB
COBOL
515 lines
41 KiB
COBOL
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
|