1040 lines
82 KiB
COBOL
1040 lines
82 KiB
COBOL
00001 IDENTIFICATION DIVISION. 05/06/25
|
|
00002 PROGRAM-ID. DTSBR321. DTSBR321
|
|
00003 AUTHOR. TRW S&ITG. LV039
|
|
00004 DATE-WRITTEN. MARCH 1999 DTSBR321
|
|
00005 DATE-COMPILED. DTSBR321
|
|
00006 SKIP3 DTSBR321
|
|
00007 ***** DTSBR321
|
|
00008 * CALLING SEQUENCE: DTSBR321
|
|
00009 * DTSBR321
|
|
00010 * DTSBR321 READS DTSIR321 RECORDS. DTSBR321
|
|
00011 * DTSBR321
|
|
00012 * FUNCTION: penalty assessment letter DTSBR321
|
|
00013 * DTSBR321
|
|
00014 * DTSBR321
|
|
00015 * MODIFICATION HISTORY: DTSBR321
|
|
00016 * DTSBR321
|
|
00017 * 04-03-14 new program. print penalty assessment letter DTSBR321
|
|
00018 * for annual filers DTSBR321
|
|
00019 * REFERENCE XXXXXXXXX PROGRAMMER: nh DTSBR321
|
|
00020 * DTSBR321
|
|
00021 * DTSBR321
|
|
00022 * 04-03-14 modified program to print missing report letter for DTSBR321
|
|
00023 * all employers who have not filed their annual DTSBR321
|
|
00024 * report also a penalty is charged. DTSBR321
|
|
00025 * REFERENCE XXXXXXXXX PROGRAMMER: nh DTSBR321
|
|
00026 * DTSBR321
|
|
00027 * XX-XX-XX XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBR321
|
|
00028 * XXXXXXXXXXXX. DTSBR321
|
|
00029 * REFERENCE XXXXXXXXX PROGRAMMER: XXX DTSBR321
|
|
00030 * DTSBR321
|
|
00031 * DESCRIPTION: DTSBR321
|
|
00032 * DTSBR321
|
|
00033 * THIS MODULE PRINTS penalty charge notices WHENEVER DTSBR321
|
|
00034 * penalty assessment run is performed DTSBR321
|
|
00035 * DTSBR321
|
|
00036 * DTSBR321
|
|
00037 * RECORDS READ: DTSBR321
|
|
00038 * DTSBR321
|
|
00039 * NONE. DTSBR321
|
|
00040 * DTSBR321
|
|
00041 * DTSBR321
|
|
00042 * PRINTED OUTPUTS: DTSBR321
|
|
00043 * DTSBR321
|
|
00044 * 321R1 penalty charge letter DTSBR321
|
|
00045 * DTSBR321
|
|
00046 * DTSBR321
|
|
00047 * RECORDS WRITTEN: DTSBR321
|
|
00048 * DTSBR321
|
|
00049 * NONE. DTSBR321
|
|
00050 * DTSBR321
|
|
00051 * DTSBR321
|
|
00052 * MODULES CALLED: DTSBR321
|
|
00053 * DTSBR321
|
|
00054 * DTSBU001 DATE EDIT/CONVERSION MODULE DTSBR321
|
|
00055 * DTSBU002 DATE ALPHA CONVERSION MODULE. DTSBR321
|
|
00056 * DTSBR321
|
|
00057 ***** DTSBR321
|
|
00058 EJECT DTSBR321
|
|
00059 ENVIRONMENT DIVISION. DTSBR321
|
|
00060 SKIP2 DTSBR321
|
|
00061 CONFIGURATION SECTION. DTSBR321
|
|
00062 SPECIAL-NAMES. C01 IS TOP-OF-PAGE. DTSBR321
|
|
00063 SKIP1 DTSBR321
|
|
00064 INPUT-OUTPUT SECTION. DTSBR321
|
|
00065 SKIP1 DTSBR321
|
|
00066 FILE-CONTROL. DTSBR321
|
|
00067 SELECT PRT-FILE ASSIGN TO RPT321R1. DTSBR321
|
|
00068 SELECT PRT-FILE2 ASSIGN TO RPT321R2. DTSBR321
|
|
00069 SELECT PRT-FILE3 ASSIGN TO RPT321R3. CL*13
|
|
00070 SELECT PRT-FILE4 ASSIGN TO RPT321R4. CL*13
|
|
00071 SKIP3 DTSBR321
|
|
00072 DATA DIVISION. DTSBR321
|
|
00073 SKIP3 DTSBR321
|
|
00074 FILE SECTION. DTSBR321
|
|
00075 SKIP2 DTSBR321
|
|
00076 FD PRT-FILE DTSBR321
|
|
00077 RECORDING MODE IS F DTSBR321
|
|
00078 BLOCK CONTAINS 0 RECORDS DTSBR321
|
|
00079 LABEL RECORDS ARE OMITTED. DTSBR321
|
|
00080 01 XEROX-REPORT. DTSBR321
|
|
00081 05 FILLER PIC X(1). DTSBR321
|
|
00082 05 XEROX-RPT PIC X(132). DTSBR321
|
|
00083 EJECT DTSBR321
|
|
00084 DTSBR321
|
|
00085 FD PRT-FILE2 DTSBR321
|
|
00086 RECORDING MODE IS F DTSBR321
|
|
00087 BLOCK CONTAINS 0 RECORDS DTSBR321
|
|
00088 LABEL RECORDS ARE OMITTED. DTSBR321
|
|
00089 01 XEROX-REPORT2. DTSBR321
|
|
00090 05 FILLER PIC X(1). DTSBR321
|
|
00091 05 XEROX-RPT2 PIC X(132). DTSBR321
|
|
00092 EJECT DTSBR321
|
|
00093 DTSBR321
|
|
00094 CL*13
|
|
00095 FD PRT-FILE3 CL*13
|
|
00096 RECORDING MODE IS F CL*13
|
|
00097 BLOCK CONTAINS 0 RECORDS CL*13
|
|
00098 LABEL RECORDS ARE OMITTED. CL*13
|
|
00099 01 XEROX-REPORT3 pic x(133). CL*13
|
|
00100 CL*13
|
|
00101 CL*13
|
|
00102 FD PRT-FILE4 CL*13
|
|
00103 RECORDING MODE IS F CL*13
|
|
00104 BLOCK CONTAINS 0 RECORDS CL*13
|
|
00105 LABEL RECORDS ARE OMITTED. CL*13
|
|
00106 01 XEROX-REPORT4 pic x(133). CL*13
|
|
00107 CL*13
|
|
00108 DTSBR321
|
|
00109 WORKING-STORAGE SECTION. DTSBR321
|
|
001095 77 PAN-VALET PICTURE X(24) VALUE '039DTSBR321 05/06/25'. DTSBR321
|
|
00110 77 PAN-VALET PICTURE X(24) VALUE '001DTSBR321 04/25/14'. DTSBR321
|
|
00111 77 PAN-VALET PICTURE X(24) VALUE '163DTSBR321 04/24/14'. DTSBR321
|
|
00112 77 PAN-VALET PICTURE X(24) VALUE '001DTSBR321 04/03/14'. DTSBR321
|
|
00113 SKIP3 DTSBR321
|
|
00114 01 WRK-AREA. DTSBR321
|
|
00115 05 Ws-start-pos PIC S9(04) COMP. DTSBR321
|
|
00116 05 WRK-ABEND-Code PIC S9(04) COMP VALUE +321.DTSBR321
|
|
00117 05 WS-YRQ-UNPACK PIC 9(5) VALUE 0. DTSBR321
|
|
00118 05 FIRST-TIME-IND PIC X(01) VALUE 'Y'. DTSBR321
|
|
00119 05 WS-REC PIC X(132) VALUE SPACES. DTSBR321
|
|
00120 05 WS-UC-SHORT-MONTHS. DTSBR321
|
|
00121 10 WS-UC-SHORT-MONTH-1 PIC X(03). DTSBR321
|
|
00122 10 WS-UC-SHORT-MONTH-2 PIC X(03). DTSBR321
|
|
00123 10 WS-UC-SHORT-MONTH-3 PIC X(03). DTSBR321
|
|
00124 05 WS-SHORT-YEAR PIC X(02). DTSBR321
|
|
00125 DTSBR321
|
|
00126 05 WS-LONG-YEAR PIC X(04). DTSBR321
|
|
00127 05 ABEND-MSG PIC X(60). DTSBR321
|
|
00128 05 ws-credit-used PIC X(01). CL**5
|
|
00129 88 ws-credit-used-no-88 VALUE '0'. CL**5
|
|
00130 88 ws-credit-used-yes-88 VALUE '1'. CL**5
|
|
00131 DTSBR321
|
|
00132 SKIP3 DTSBR321
|
|
00133 01 VSCA-LINE. DTSBR321
|
|
00134 05 VSCA-DATA PIC X(133) VALUE SPACES. DTSBR321
|
|
00135 01 WS-TAX-DUE PIC S9(09)V9(02) COMP-3 DTSBR321
|
|
00136 VALUE +0. DTSBR321
|
|
00137 01 TOT-pen-cnt PIC 9(05) VALUE 0. DTSBR321
|
|
00138 01 TOT-mis-cnt PIC 9(05) VALUE 0. DTSBR321
|
|
00139 01 TOL-CNT PIC 9(05) VALUE 0. DTSBR321
|
|
00140 01 CREDIT-CNT PIC 9(05) VALUE 0. DTSBR321
|
|
00141 01 WRK-MQTR-BAL PIC S9(09)V9(02) COMP-3 DTSBR321
|
|
00142 VALUE +0. DTSBR321
|
|
00143 01 WRK-MQTR-chg PIC S9(09)V9(02) COMP-3 CL*12
|
|
00144 VALUE +0. CL*12
|
|
00145 01 WRK-paid-amt PIC S9(09)V9(02) COMP-3 DTSBR321
|
|
00146 VALUE +0. DTSBR321
|
|
00147 01 WRK-EMP-NO PIC 9(06) VALUE ZEROS. DTSBR321
|
|
00148 01 WRK-AREAS. DTSBR321
|
|
00149 05 WRK-R321-YRQ PIC S9(05) COMP-3 VALUE +0. DTSBR321
|
|
00150 05 WRK-R321-YRQX REDEFINES WRK-R321-YRQ. DTSBR321
|
|
00151 10 WRK-R321-YR PIC 9(4). DTSBR321
|
|
00152 10 WRK-R321-QTR PIC 9(1). DTSBR321
|
|
00153 SKIP1 DTSBR321
|
|
00154 01 L001-LINK-AREA. DTSBR321
|
|
00155 ++INCLUDE DTSIL001 DTSBR321
|
|
00156 EJECT DTSBR321
|
|
00157 01 L002-LINK-AREA. DTSBR321
|
|
00158 ++INCLUDE DTSIL002 DTSBR321
|
|
00159 EJECT DTSBR321
|
|
00160 01 L004-LINK-AREA. DTSBR321
|
|
00161 ++INCLUDE DTSIL004 DTSBR321
|
|
00162 EJECT DTSBR321
|
|
00163 01 MIXED-CASE-LITERALS. DTSBR321
|
|
00164 ++INCLUDE DTSIZ31C DTSBR321
|
|
00165 EJECT DTSBR321
|
|
00166 01 L008-LINK-AREA. DTSBR321
|
|
00167 ++INCLUDE DTSIL008 DTSBR321
|
|
00168 EJECT DTSBR321
|
|
00169 01 L056-LINK-AREA. DTSBR321
|
|
00170 ++INCLUDE DTSIL056 DTSBR321
|
|
00171 EJECT DTSBR321
|
|
00172 01 L090-LINK-AREA. DTSBR321
|
|
00173 ++INCLUDE DTSIL090 DTSBR321
|
|
00174 EJECT DTSBR321
|
|
00175 01 L119-LINK-AREA. DTSBR321
|
|
00176 ++INCLUDE DTSIL119 DTSBR321
|
|
00177 EJECT DTSBR321
|
|
00178 ++INCLUDE DTSXL31A DTSBR321
|
|
00179 SKIP3 DTSBR321
|
|
00180 ++INCLUDE DTSXL321 DTSBR321
|
|
00181 SKIP3 DTSBR321
|
|
00182 01 LETTER-HEADING. DTSBR321
|
|
00183 05 LTH-LINE-1. DTSBR321
|
|
00184 10 FILLER PIC X(01) VALUE SPACE. DTSBR321
|
|
00185 10 WS-FMT-LINE-1 PIC X(40). DTSBR321
|
|
00186 10 FILLER PIC X(27) VALUE SPACES. DTSBR321
|
|
00187 10 WS-mail-date PIC X(10). DTSBR321
|
|
00188 05 LTH-LINE-2. DTSBR321
|
|
00189 10 FILLER PIC X(01) VALUE SPACE. DTSBR321
|
|
00190 10 WS-FMT-LINE-2 PIC X(40). DTSBR321
|
|
00191 05 LTH-LINE-3. DTSBR321
|
|
00192 10 FILLER PIC X(01) VALUE SPACE. DTSBR321
|
|
00193 10 WS-FMT-LINE-3 PIC X(40). DTSBR321
|
|
00194 10 FILLER PIC X(27) VALUE SPACES. DTSBR321
|
|
00195 10 WS-EMP-NO PIC 999B999. DTSBR321
|
|
00196 05 LTH-LINE-4. DTSBR321
|
|
00197 10 FILLER PIC X(01) VALUE SPACE. DTSBR321
|
|
00198 10 WS-FMT-LINE-4 PIC X(40). DTSBR321
|
|
00199 05 LTH-LINE-5. DTSBR321
|
|
00200 10 FILLER PIC X(01) VALUE SPACE. DTSBR321
|
|
00201 10 WS-FMT-LINE-5 PIC X(40). DTSBR321
|
|
00202 10 FILLER PIC X(27) VALUE SPACES. DTSBR321
|
|
00203 10 WS-payment-DATE PIC X(10). DTSBR321
|
|
00204 05 RPT-LINE-1. DTSBR321
|
|
00205 10 FILLER PIC X(04) VALUE SPACES. DTSBR321
|
|
00206 10 WS-YRQ PIC X(04). DTSBR321
|
|
00207 10 FILLER PIC X(03) VALUE SPACE. DTSBR321
|
|
00208 10 WS-RPA-TAX-DUE PIC zzZ,ZZZ,ZZ9.99. DTSBR321
|
|
00209 10 FILLER PIC X(01) VALUE SPACE. DTSBR321
|
|
00210 10 WS-paid-amt PIC zzZ,ZZZ,ZZ9.99. DTSBR321
|
|
00211 10 FILLER PIC X(01) VALUE SPACES. DTSBR321
|
|
00212 10 WS-PEN-CHARGED-AMT PIC Z,ZZZ,ZZ9.99. DTSBR321
|
|
00213 10 FILLER PIC X(01) VALUE SPACES. DTSBR321
|
|
00214 10 WS-INT-CHARGED-AMT PIC Z,ZZZ,ZZ9.99. DTSBR321
|
|
00215 10 FILLER PIC X(03) VALUE SPACES. DTSBR321
|
|
00216 10 WS-TOTAL-DUE PIC zzZ,ZZZ,ZZ9.99. DTSBR321
|
|
00217 05 RPT-LINE-3. CL*13
|
|
00218 10 FILLER PIC X(04) VALUE SPACES. CL*13
|
|
00219 10 WS-emp-no3 PIC X(07). CL*18
|
|
00220 10 FILLER PIC X(03) VALUE SPACE. CL*13
|
|
00221 10 WS-RPA-TAX-DUE3 PIC zzZ,ZZZ,ZZ9.99. CL*13
|
|
00222 10 FILLER PIC X(01) VALUE SPACE. CL*13
|
|
00223 10 WS-paid-amt3 PIC zzZ,ZZZ,ZZ9.99. CL*13
|
|
00224 10 FILLER PIC X(01) VALUE SPACES. CL*13
|
|
00225 10 WS-PEN-CHARGED-AMT3 PIC Z,ZZZ,ZZ9.99. CL*13
|
|
00226 10 FILLER PIC X(01) VALUE SPACES. CL*13
|
|
00227 10 WS-INT-CHARGED-AMT3 PIC Z,ZZZ,ZZ9.99. CL*13
|
|
00228 10 FILLER PIC X(03) VALUE SPACES. CL*13
|
|
00229 10 WS-TOTAL-DUE3 PIC zzZ,ZZZ,ZZ9.99. CL*13
|
|
00230 SKIP2 DTSBR321
|
|
00231 05 RPT-LINE-4. CL*13
|
|
00232 10 FILLER PIC X(04) VALUE SPACES. CL*13
|
|
00233 10 WS-emp-no4 PIC X(07). CL*18
|
|
00234 10 FILLER PIC X(03) VALUE SPACE. CL*13
|
|
00235 10 WS-emp-name4 PIC x(40). CL*15
|
|
00236 10 FILLER PIC X(60) VALUE SPACE. CL*13
|
|
00237 CL*13
|
|
00238 05 cred-LINE. CL**5
|
|
00239 10 FILLER PIC X(10) VALUE SPACES. CL**5
|
|
00240 10 FILLER PIC X(01) VALUE SPACE. CL**5
|
|
00241 10 FILLER PIC X(39) CL**5
|
|
00242 VALUE '**** Your available credit was applied '. CL**5
|
|
00243 10 FILLER PIC X(39) CL**5
|
|
00244 VALUE 'to the TOTAL AMOUNT DUE **** '. CL**5
|
|
00245 EJECT CL**5
|
|
00246 01 L101-LINK-AREA. DTSBR321
|
|
00247 ++INCLUDE DTSIL101 DTSBR321
|
|
00248 01 MQTR-REC. DTSBR321
|
|
00249 ++INCLUDE DTSIMQTR DTSBR321
|
|
00250 EJECT DTSBR321
|
|
00251 *RW1 DTSBR321
|
|
00252 DTSBR321
|
|
00253 01 L910-LINK-AREA. DTSBR321
|
|
00254 ++INCLUDE DTSIL910 DTSBR321
|
|
00255 DTSBR321
|
|
00256 01 MSKL-REC. DTSBR321
|
|
00257 ++INCLUDE DTSIMSKL DTSBR321
|
|
00258 DTSBR321
|
|
00259 01 CONVERT-BARCODE-LINE. DTSBR321
|
|
00260 05 BARC-EMP-NO PIC 9(06) VALUE ZEROS. DTSBR321
|
|
00261 DTSBR321
|
|
00262 01 WS-BARC-LINE. DTSBR321
|
|
00263 05 FILLER PIC X(40) VALUE SPACES. DTSBR321
|
|
00264 05 CONVERTED-BARCODE PIC X(50). DTSBR321
|
|
00265 05 FILLER PIC X(30) VALUE SPACES. DTSBR321
|
|
00266 DTSBR321
|
|
00267 01 BARI-LINK-AREA. DTSBR321
|
|
00268 ++INCLUDE BARIL599 DTSBR321
|
|
00269 SKIP3 DTSBR321
|
|
00270 *RW2 DTSBR321
|
|
00271 LINKAGE SECTION. DTSBR321
|
|
00272 SKIP3 DTSBR321
|
|
00273 01 LRCM-LINK-AREA. DTSBR321
|
|
00274 ++INCLUDE DTSILRCM DTSBR321
|
|
00275 01 R321-REC. DTSBR321
|
|
00276 ++INCLUDE DTSIR321 DTSBR321
|
|
00277 PROCEDURE DIVISION USING LRCM-LINK-AREA CL*25
|
|
00278 R321-REC. DTSBR321
|
|
00279 SKIP2 DTSBR321
|
|
00280 IF FIRST-TIME-IND = 'Y' DTSBR321
|
|
00281 PERFORM I1000-INITIATE THRU I1000-EXIT DTSBR321
|
|
00282 MOVE 'N' TO FIRST-TIME-IND. DTSBR321
|
|
00283 SKIP1 DTSBR321
|
|
00284 IF LRCM-EOR-88 DTSBR321
|
|
00285 PERFORM T1000-TERMINATE THRU T1000-EXIT DTSBR321
|
|
00286 ELSE DTSBR321
|
|
00287 PERFORM P1000-PROCESS THRU P1000-EXIT. CL*26
|
|
00288 SKIP2 DTSBR321
|
|
00289 GOBACK. DTSBR321
|
|
00290 EJECT DTSBR321
|
|
00291 I1000-INITIATE. DTSBR321
|
|
00292 OPEN OUTPUT PRT-FILE DTSBR321
|
|
00293 prt-file2 CL*16
|
|
00294 prt-file3 CL*16
|
|
00295 prt-file4. CL*16
|
|
00296 MOVE SPACES TO XEROX-REPORT xerox-report2. DTSBR321
|
|
00297 DTSBR321
|
|
00298 WRITE XEROX-REPORT FROM VSCA-LINE DTSBR321
|
|
00299 AFTER ADVANCING TOP-OF-PAGE. DTSBR321
|
|
00300 WRITE XEROX-REPORT FROM VSCA-LINE AFTER ADVANCING 11. DTSBR321
|
|
00301 WRITE XEROX-REPORT FROM ROUTE-INFO-LINE13 DTSBR321
|
|
00302 WRITE XEROX-REPORT FROM ROUTE-INFO-LINE14. DTSBR321
|
|
00303 WRITE XEROX-REPORT FROM ROUTE-INFO-LINE15. DTSBR321
|
|
00304 WRITE XEROX-REPORT FROM ROUTE-INFO-LINE16. DTSBR321
|
|
00305 WRITE XEROX-REPORT FROM ROUTE-INFO-LINE17. DTSBR321
|
|
00306 * WRITE XEROX-REPORT FROM XEROX-CNTL-LINE18 DTSBR321
|
|
00307 * WRITE XEROX-REPORT FROM XEROX-CNTL-LINE19. DTSBR321
|
|
00308 * WRITE XEROX-REPORT FROM XEROX-CNTL-LINE20. DTSBR321
|
|
00309 DTSBR321
|
|
00310 WRITE XEROX-REPORT2 FROM VSCA-LINE DTSBR321
|
|
00311 AFTER ADVANCING TOP-OF-PAGE. DTSBR321
|
|
00312 WRITE XEROX-REPORT2 FROM VSCA-LINE AFTER ADVANCING 11. DTSBR321
|
|
00313 WRITE XEROX-REPORT2 FROM ROUTE-INFO-LINE13 DTSBR321
|
|
00314 WRITE XEROX-REPORT2 FROM ROUTE-INFO-LINE14. DTSBR321
|
|
00315 WRITE XEROX-REPORT2 FROM ROUTE-INFO-LINE15. DTSBR321
|
|
00316 WRITE XEROX-REPORT2 FROM ROUTE-INFO-LINE16. DTSBR321
|
|
00317 * WRITE XEROX-REPORT FROM ROUTE-INFO-LINE17. DTSBR321
|
|
00318 DTSBR321
|
|
00319 * PERFORM S910-OPEN-READ THRU S910-EXIT. DTSBR321
|
|
00320 DTSBR321
|
|
00321 SKIP2 DTSBR321
|
|
00322 I1000-EXIT. DTSBR321
|
|
00323 EXIT. DTSBR321
|
|
00324 EJECT DTSBR321
|
|
00325 P1000-PROCESS. DTSBR321
|
|
00326 *nh if R321-GENERATE-MISS-RPT-LTR-88 DTSBR321
|
|
00327 if R321-REP-TYPE = '2' CL**2
|
|
00328 perform p8000-generate-missing-letter thru p8000-exit DTSBR321
|
|
00329 go to p1000-exit. DTSBR321
|
|
00330 DTSBR321
|
|
00331 if R321-REP-TYPE = '3' CL**2
|
|
00332 go to p1000-exit. CL**2
|
|
00333 CL**5
|
|
00334 SET WS-CREDIT-USED-NO-88 TO TRUE CL**5
|
|
00335 MOVE ZERO TO WRK-MQTR-BAL DTSBR321
|
|
00336 ws-paid-amt DTSBR321
|
|
00337 wrk-paid-amt DTSBR321
|
|
00338 wrk-mqtr-chg CL*11
|
|
00339 ws-total-due DTSBR321
|
|
00340 WS-TAX-DUE. DTSBR321
|
|
00341 ADD 1 TO TOT-PEN-CNT. DTSBR321
|
|
00342 DTSBR321
|
|
00343 MOVE R321-EMP-NO TO ws-emp-no ws-emp-no3 CL*13
|
|
00344 DTSBR321
|
|
00345 MOVE R321-YRQ TO L004-QTR-5-9. DTSBR321
|
|
00346 DTSBR321
|
|
00347 SET L004-FROM-5 TO TRUE. DTSBR321
|
|
00348 PERFORM S004-FROM-QTR THRU S004-EXIT. DTSBR321
|
|
00349 move l004-slash-5-qtr to WS-YRQ-UNPACK. DTSBR321
|
|
00350 move WS-YRQ-UNPACK(1:4) to ws-yrq. DTSBR321
|
|
00351 *nh move l004-slash-5-qtr to ws-yrq. DTSBR321
|
|
00352 DTSBR321
|
|
00353 * DISPLAY ' YRQ ' L004-QTR-5-9. CL**9
|
|
00354 * MOVE LOW-VALUES TO MQTR-KEY-AREA. CL*29
|
|
00355 * MOVE R321-EMP-NO TO MQTR-EMP-NO. CL*29
|
|
00356 * SET MQTR-QTR-88 TO TRUE. CL*29
|
|
00357 * MOVE 20171 TO MQTR-YRQ. CL*29
|
|
00358 * PERFORM P1100-CHECK-BALANCE-DUE THRU P1100-EXIT. CL*29
|
|
00359 * MOVE LOW-VALUES TO MQTR-KEY-AREA. CL*29
|
|
00360 * MOVE R321-EMP-NO TO MQTR-EMP-NO. CL*29
|
|
00361 * SET MQTR-QTR-88 TO TRUE. CL*29
|
|
00362 * MOVE 20172 TO MQTR-YRQ. CL*29
|
|
00363 * PERFORM P1100-CHECK-BALANCE-DUE THRU P1100-EXIT. CL*29
|
|
00364 * MOVE LOW-VALUES TO MQTR-KEY-AREA. CL*29
|
|
00365 * MOVE R321-EMP-NO TO MQTR-EMP-NO. CL*29
|
|
00366 * SET MQTR-QTR-88 TO TRUE. CL*29
|
|
00367 * MOVE 20173 TO MQTR-YRQ. CL*29
|
|
00368 * PERFORM P1100-CHECK-BALANCE-DUE THRU P1100-EXIT. CL*29
|
|
00369 * MOVE LOW-VALUES TO MQTR-KEY-AREA. CL*29
|
|
00370 * MOVE R321-EMP-NO TO MQTR-EMP-NO. CL*29
|
|
00371 * SET MQTR-QTR-88 TO TRUE. CL*29
|
|
00372 * MOVE 20174 TO MQTR-YRQ. CL*29
|
|
00373 * PERFORM P1100-CHECK-BALANCE-DUE THRU P1100-EXIT. CL*29
|
|
00374 DTSBR321
|
|
00375 MOVE R321-MAIL-DATE TO L001-FED-8-DATE-9. CL*14
|
|
00376 * MOVE 20150601 TO L001-FED-8-DATE-9. CL*14
|
|
00377 SET L001-FROM-FED-8 TO TRUE. DTSBR321
|
|
00378 PERFORM S001-DATE THRU S001-EXIT. DTSBR321
|
|
00379 MOVE L001-SLASH-8-DATE TO WS-mail-DATE. DTSBR321
|
|
00380 DTSBR321
|
|
00381 if R321-tax-due-DATE not numeric CL*35
|
|
00382 MOVE 20210415 to R321-tax-due-DATE. CL*34
|
|
00383 MOVE R321-tax-due-DATE TO L001-FED-8-DATE-9. CL*34
|
|
00384 * display 'r321-tax-due-date ' r321-tax-due-date. CL**9
|
|
00385 SET L001-FROM-FED-8 TO TRUE. DTSBR321
|
|
00386 PERFORM S001-DATE THRU S001-EXIT. DTSBR321
|
|
00387 MOVE L001-SLASH-8-DATE TO WS-payment-DATE. DTSBR321
|
|
00388 * display 'ws-payment-date ' ws-payment-date. CL**9
|
|
00389 DTSBR321
|
|
00390 * ADD R321-SUR-TAX-CHARGED-AMT TO WS-TAX-DUE DTSBR321
|
|
00391 move R321-UI-TAX-CHARGED-AMT TO WS-TAX-DUE CL*30
|
|
00392 WRK-MQTR-BAL. CL*30
|
|
00393 DTSBR321
|
|
00394 * IF R321-UI-TAX-CHARGED-AMT < 15.00 CL*20
|
|
00395 * ADD 1 TO TOL-CNT. CL*20
|
|
00396 DTSBR321
|
|
00397 add R321-PEN-CHARGED-AMT TO wrk-mqtr-bal. CL*30
|
|
00398 subtract r321-ui-tax-paid-amt from wrk-mqtr-bal. CL*30
|
|
00399 DTSBR321
|
|
00400 IF WRK-MQTR-BAL = 0 DTSBR321
|
|
00401 set ws-credit-used-yes-88 to true CL**5
|
|
00402 display 'credit applied balance due = 0 ' mqtr-emp-no CL**5
|
|
00403 ADD 1 TO CREDIT-CNT. DTSBR321
|
|
00404 DTSBR321
|
|
00405 ** MOVE WS-TAX-DUE TO WS-RPA-TAX-DUE. CL*11
|
|
00406 ** add R321-UI-TAX-PAID-AMT to wrk-paid-amt DTSBR321
|
|
00407 move r321-ui-tax-paid-amt to wrk-paid-amt. CL*31
|
|
00408 MOVE R321-PEN-CHARGED-AMT TO WS-PEN-CHARGED-AMT CL*14
|
|
00409 WS-PEN-CHARGED-AMT3. CL*14
|
|
00410 * MOVE R321-INT-CHARGED-AMT TO WS-INT-CHARGED-AMT CL*30
|
|
00411 MOVE zeros TO WS-INT-CHARGED-AMT CL*30
|
|
00412 WS-INT-CHARGED-AMT3. CL*14
|
|
00413 ** add R321-INT-CHARGED-AMT TO ws-tax-due. CL*11
|
|
00414 ** add R321-pen-CHARGED-AMT TO ws-tax-due. CL*11
|
|
00415 DTSBR321
|
|
00416 move wrk-paid-amt to ws-paid-amt CL*14
|
|
00417 ws-paid-amt3. CL*15
|
|
00418 move R321-UI-TAX-CHARGED-AMT TO WS-rpa-TAX-DUE CL*17
|
|
00419 WS-RPA-TAX-DUE3. CL*17
|
|
00420 * MOVE Wrk-mqtr-chg TO WS-RPA-TAX-DUE CL*17
|
|
00421 * WS-RPA-TAX-DUE3. CL*17
|
|
00422 ** IF WRK-MQTR-BAL > 0 DTSBR321
|
|
00423 ** add Wrk-mqtr-bal TO WS-TAX-DUE DTSBR321
|
|
00424 ** END-IF. DTSBR321
|
|
00425 DTSBR321
|
|
00426 ** IF WRK-PAID-AMT > 0 CL*11
|
|
00427 ** SUBTRACT WRK-PAID-AMT FROM WS-TAX-DUE CL*11
|
|
00428 ** END-IF. CL*11
|
|
00429 DTSBR321
|
|
00430 ** subtract R321-UI-TAX-PAID-AMT from WS-TAX-DUE CL*11
|
|
00431 ** subtract R321-UI-tol-amt from WS-TAX-DUE DTSBR321
|
|
00432 CL**9
|
|
00433 if ws-credit-used-yes-88 CL**9
|
|
00434 MOVE zeros TO WS-TOTAL-DUE ws-total-due3 CL*14
|
|
00435 else CL**9
|
|
00436 MOVE wrk-mqtr-bal TO WS-TOTAL-DUE ws-total-due3. CL*14
|
|
00437 DTSBR321
|
|
00438 PERFORM P2000-PRINT-HEADER THRU P2000-EXIT. DTSBR321
|
|
00439 PERFORM P4000-PRINT-DATA THRU P4000-EXIT. DTSBR321
|
|
00440 PERFORM P6000-SELF-MAILER-RTN THRU P6000-EXIT. DTSBR321
|
|
00441 DISPLAY ' ' MQTR-EMP-NO ' ' MQTR-YRQ ' ' WS-RPA-TAX-DUE DTSBR321
|
|
00442 ' ' WS-PAID-AMT ' ' WS-PEN-CHARGED-AMT DTSBR321
|
|
00443 ' ' WS-INT-CHARGED-AMT ' ' WS-TOTAL-DUE. DTSBR321
|
|
00444 SKIP1 DTSBR321
|
|
00445 WRITE XEROX-REPORT3 FROM rpt-line-3 AFTER 1. CL*14
|
|
00446 P1000-EXIT. DTSBR321
|
|
00447 EXIT. DTSBR321
|
|
00448 DTSBR321
|
|
00449 P1100-CHECK-BALANCE-DUE. DTSBR321
|
|
00450 MOVE MQTR-KEY-AREA TO MSKL-KEY-AREA. DTSBR321
|
|
00451 PERFORM S910-READ THRU S910-EXIT. DTSBR321
|
|
00452 DTSBR321
|
|
00453 * display '** emp- acct cnt ' mqtr-emp-no ' ' mqtr-acct-cnt CL*24
|
|
00454 IF L910-OK-88 DTSBR321
|
|
00455 MOVE MSKL-REC TO MQTR-REC DTSBR321
|
|
00456 * MOVE 4 TO mqtr-acct-cnt DTSBR321
|
|
00457 display 'qemp - ' mqtr-emp-no ' ' mqtr-acct-cnt CL*24
|
|
00458 ' ' mqtr-yrq CL*24
|
|
00459 PERFORM CL*26
|
|
00460 VARYING MQTR-ACCT-IDX FROM +1 BY +1 DTSBR321
|
|
00461 UNTIL MQTR-ACCT-IDX > MQTR-ACCT-CNT DTSBR321
|
|
00462 IF MQTR-ACCT-UI-88 (MQTR-ACCT-IDX) DTSBR321
|
|
00463 ADD MQTR-BALANCE-AMT (MQTR-ACCT-IDX) DTSBR321
|
|
00464 TO WRK-MQTR-BAL DTSBR321
|
|
00465 ADD MQTR-charged-AMT (MQTR-ACCT-IDX) CL*11
|
|
00466 TO WRK-MQTR-chg CL*11
|
|
00467 * display 'ui amt ' MQTR-BALANCE-AMT (MQTR-ACCT-IDX) DTSBR321
|
|
00468 ADD MQTR-paid-AMT (MQTR-ACCT-IDX) DTSBR321
|
|
00469 TO WRK-paid-amt DTSBR321
|
|
00470 ADD MQTR-charged-AMT (MQTR-ACCT-IDX) CL*11
|
|
00471 TO WRK-MQTR-chg CL*11
|
|
00472 subtract MQTR-toler-AMT (MQTR-ACCT-IDX) CL**7
|
|
00473 from WRK-paid-amt CL**7
|
|
00474 subtract MQTR-waived-AMT (MQTR-ACCT-IDX) CL*11
|
|
00475 from WRK-paid-amt CL*11
|
|
00476 * display 'ui paid ' MQTR-paid-AMT (MQTR-ACCT-IDX) DTSBR321
|
|
00477 END-IF DTSBR321
|
|
00478 DTSBR321
|
|
00479 IF MQTR-ACCT-SUR-88 (MQTR-ACCT-IDX) DTSBR321
|
|
00480 *nh if r321-rated-filing-88 DTSBR321
|
|
00481 ADD MQTR-BALANCE-AMT (MQTR-ACCT-IDX) DTSBR321
|
|
00482 TO WRK-MQTR-BAL DTSBR321
|
|
00483 * display 'si amt ' MQTR-BALANCE-AMT (MQTR-ACCT-IDX)DTSBR321
|
|
00484 ADD MQTR-paid-AMT (MQTR-ACCT-IDX) DTSBR321
|
|
00485 TO WRK-paid-amt DTSBR321
|
|
00486 ADD MQTR-charged-AMT (MQTR-ACCT-IDX) CL*11
|
|
00487 TO WRK-MQTR-chg CL*11
|
|
00488 subtract MQTR-toler-AMT (MQTR-ACCT-IDX) CL**7
|
|
00489 from WRK-paid-amt CL**7
|
|
00490 subtract MQTR-waived-AMT (MQTR-ACCT-IDX) CL*11
|
|
00491 from WRK-paid-amt CL*11
|
|
00492 * display 'si paid ' MQTR-paid-AMT (MQTR-ACCT-IDX) DTSBR321
|
|
00493 *nh end-if DTSBR321
|
|
00494 end-if DTSBR321
|
|
00495 DTSBR321
|
|
00496 IF MQTR-ACCT-INT-88 (MQTR-ACCT-IDX) DTSBR321
|
|
00497 ADD MQTR-BALANCE-AMT (MQTR-ACCT-IDX) DTSBR321
|
|
00498 TO WRK-MQTR-BAL DTSBR321
|
|
00499 display 'int bal ' MQTR-BALANCE-AMT (MQTR-ACCT-IDX) CL*23
|
|
00500 add MQTR-BALANCE-AMT (MQTR-ACCT-IDX) to CL*21
|
|
00501 R321-INT-CHARGED-AMT CL*21
|
|
00502 ADD MQTR-paid-AMT (MQTR-ACCT-IDX) DTSBR321
|
|
00503 TO WRK-paid-amt DTSBR321
|
|
00504 display 'int pd ' MQTR-paid-AMT (MQTR-ACCT-IDX) CL*23
|
|
00505 ADD MQTR-charged-AMT (MQTR-ACCT-IDX) CL*11
|
|
00506 TO WRK-MQTR-chg CL*11
|
|
00507 display 'int chg ' MQTR-charged-AMT (MQTR-ACCT-IDX) CL*23
|
|
00508 subtract MQTR-toler-AMT (MQTR-ACCT-IDX) CL**8
|
|
00509 from WRK-paid-amt CL**8
|
|
00510 subtract MQTR-waived-AMT (MQTR-ACCT-IDX) CL*11
|
|
00511 from WRK-paid-amt CL*11
|
|
00512 END-IF DTSBR321
|
|
00513 DTSBR321
|
|
00514 IF MQTR-ACCT-LATE-PEN-88 (MQTR-ACCT-IDX) DTSBR321
|
|
00515 ADD MQTR-BALANCE-AMT (MQTR-ACCT-IDX) DTSBR321
|
|
00516 TO WRK-MQTR-BAL DTSBR321
|
|
00517 * display 'pen amt ' MQTR-BALANCE-AMT (MQTR-ACCT-IDX) CL**9
|
|
00518 ADD MQTR-paid-AMT (MQTR-ACCT-IDX) DTSBR321
|
|
00519 TO WRK-paid-amt DTSBR321
|
|
00520 ADD MQTR-charged-AMT (MQTR-ACCT-IDX) CL*11
|
|
00521 TO WRK-MQTR-chg CL*11
|
|
00522 * display 'pen paid ' MQTR-paid-AMT (MQTR-ACCT-IDX) CL**9
|
|
00523 subtract MQTR-toler-AMT (MQTR-ACCT-IDX) CL**8
|
|
00524 from WRK-paid-amt CL**8
|
|
00525 * display 'pen paid ' MQTR-paid-AMT (MQTR-ACCT-IDX) CL**9
|
|
00526 subtract MQTR-waived-AMT (MQTR-ACCT-IDX) CL*11
|
|
00527 from WRK-paid-amt CL*11
|
|
00528 END-IF DTSBR321
|
|
00529 CL**8
|
|
00530 END-PERFORM DTSBR321
|
|
00531 END-IF. DTSBR321
|
|
00532 P1100-EXIT. DTSBR321
|
|
00533 EXIT. DTSBR321
|
|
00534 DTSBR321
|
|
00535 P2000-PRINT-HEADER. DTSBR321
|
|
00536 MOVE R321-EMP-NO TO BARC-EMP-NO. DTSBR321
|
|
00537 if R321-tax-due-DATE not numeric CL*35
|
|
00538 MOVE 20210415 to R321-tax-due-DATE. CL*35
|
|
00539 MOVE R321-tax-due-DATE TO L001-FED-8-DATE-9. DTSBR321
|
|
00540 * display 'r321-tax-due-date ' r321-tax-due-date. CL**9
|
|
00541 SET L001-FROM-FED-8 TO TRUE. DTSBR321
|
|
00542 PERFORM S001-DATE THRU S001-EXIT. DTSBR321
|
|
00543 MOVE L001-SLASH-8-DATE TO WS-payment-DATE. DTSBR321
|
|
00544 PERFORM S599-BARCODE THRU S599-EXIT. DTSBR321
|
|
00545 DTSBR321
|
|
00546 IF L599-SETB-FONT1 DTSBR321
|
|
00547 MOVE 'MODIFY=TAXSM1,' TO CNTL1-CME DTSBR321
|
|
00548 ELSE DTSBR321
|
|
00549 IF L599-SETB-FONT2 DTSBR321
|
|
00550 MOVE 'MODIFY=TAXSM2,' TO CNTL1-CME DTSBR321
|
|
00551 ELSE DTSBR321
|
|
00552 MOVE 'MODIFY=TAXSM1,' TO CNTL1-CME. DTSBR321
|
|
00553 DTSBR321
|
|
00554 move 'JDE=T321R1,' to cntl1-jde. DTSBR321
|
|
00555 WRITE XEROX-REPORT FROM XEROX-CNTL-LINE18 DTSBR321
|
|
00556 AFTER ADVANCING TOP-OF-PAGE. DTSBR321
|
|
00557 WRITE XEROX-REPORT FROM XEROX-CNTL-LINE19. DTSBR321
|
|
00558 WRITE XEROX-REPORT FROM XEROX-CNTL-LINE20. DTSBR321
|
|
00559 DTSBR321
|
|
00560 MOVE R321-FMT-LINE (1) TO WS-FMT-LINE-1. DTSBR321
|
|
00561 MOVE R321-FMT-LINE (2) TO WS-FMT-LINE-2. DTSBR321
|
|
00562 MOVE R321-FMT-LINE (3) TO WS-FMT-LINE-3. DTSBR321
|
|
00563 MOVE R321-FMT-LINE (4) TO WS-FMT-LINE-4. DTSBR321
|
|
00564 MOVE R321-FMT-LINE (5) TO WS-FMT-LINE-5. DTSBR321
|
|
00565 MOVE R321-EMP-NO TO WS-EMP-NO. DTSBR321
|
|
00566 * WRITE XEROX-REPORT FROM VSCA-LINE AFTER ADVANCING TOP-OF-PAGEDTSBR321
|
|
00567 * WRITE XEROX-REPORT FROM VSCA-LINE AFTER ADVANCING 6 LINE. DTSBR321
|
|
00568 WRITE XEROX-REPORT FROM VSCA-LINE AFTER ADVANCING 9 LINE. DTSBR321
|
|
00569 WRITE XEROX-REPORT FROM LTH-LINE-1 AFTER ADVANCING 1 LINE. DTSBR321
|
|
00570 WRITE XEROX-REPORT FROM LTH-LINE-2 AFTER ADVANCING 1 LINE. DTSBR321
|
|
00571 WRITE XEROX-REPORT FROM LTH-LINE-3 AFTER ADVANCING 1 LINE. DTSBR321
|
|
00572 WRITE XEROX-REPORT FROM LTH-LINE-4 AFTER ADVANCING 1 LINE. DTSBR321
|
|
00573 WRITE XEROX-REPORT FROM LTH-LINE-5 AFTER ADVANCING 1 LINE. DTSBR321
|
|
00574 DTSBR321
|
|
00575 P2000-EXIT. DTSBR321
|
|
00576 EXIT. DTSBR321
|
|
00577 DTSBR321
|
|
00578 P4000-PRINT-DATA. DTSBR321
|
|
00579 * if ws-credit-used-yes-88 CL**9
|
|
00580 * WRITE XEROX-REPORT FROM cred-line AFTER ADVANCING 10 LINE CL**9
|
|
00581 * WRITE XEROX-REPORT FROM RPT-LINE-1 AFTER ADVANCING 5 LINE CL**9
|
|
00582 * ELSE CL**9
|
|
00583 WRITE XEROX-REPORT FROM RPT-LINE-1 AFTER ADVANCING 14 LINE. CL*39
|
|
00584 DTSBR321
|
|
00585 P4000-EXIT. DTSBR321
|
|
00586 EXIT. DTSBR321
|
|
00587 DTSBR321
|
|
00588 DTSBR321
|
|
00589 P6000-SELF-MAILER-RTN. DTSBR321
|
|
00590 MOVE R321-FMT-LINE (1) TO WS-ADDR-FMT-LINE-1. DTSBR321
|
|
00591 MOVE R321-FMT-LINE (2) TO WS-ADDR-FMT-LINE-2. DTSBR321
|
|
00592 MOVE R321-FMT-LINE (3) TO WS-ADDR-FMT-LINE-3. DTSBR321
|
|
00593 MOVE R321-FMT-LINE (4) TO WS-ADDR-FMT-LINE-4. DTSBR321
|
|
00594 MOVE R321-FMT-LINE (5) TO WS-ADDR-FMT-LINE-5. DTSBR321
|
|
00595 PERFORM P7000-PRINT-VSCA-ADDR THRU P7000-EXIT. DTSBR321
|
|
00596 P6000-EXIT. DTSBR321
|
|
00597 EXIT. DTSBR321
|
|
00598 DTSBR321
|
|
00599 P7000-PRINT-VSCA-ADDR. DTSBR321
|
|
00600 *RW1 DTSBR321
|
|
00601 MOVE L599-BARCODED-DATA TO CONVERTED-BARCODE. DTSBR321
|
|
00602 DTSBR321
|
|
00603 MOVE SPACES TO WS-REC. DTSBR321
|
|
00604 WRITE XEROX-REPORT FROM WS-REC DTSBR321
|
|
00605 AFTER ADVANCING TOP-OF-PAGE. DTSBR321
|
|
00606 DTSBR321
|
|
00607 WRITE XEROX-REPORT FROM WS-BARC-LINE AFTER 04. DTSBR321
|
|
00608 DTSBR321
|
|
00609 * WRITE XEROX-REPORT FROM VSCA-LINE DTSBR321
|
|
00610 * AFTER ADVANCING TOP-OF-PAGE. DTSBR321
|
|
00611 * WRITE XEROX-REPORT FROM VSCA-LINE AFTER ADVANCING 13 LINE. DTSBR321
|
|
00612 WRITE XEROX-REPORT FROM VSCA-LINE AFTER ADVANCING 9 LINE. DTSBR321
|
|
00613 *RW2 DTSBR321
|
|
00614 WRITE XEROX-REPORT FROM VSCA-ADDR-LINE-15 DTSBR321
|
|
00615 AFTER ADVANCING 1 LINE. DTSBR321
|
|
00616 WRITE XEROX-REPORT FROM VSCA-ADDR-LINE-16 DTSBR321
|
|
00617 AFTER ADVANCING 1 LINE. DTSBR321
|
|
00618 WRITE XEROX-REPORT FROM VSCA-ADDR-LINE-17 DTSBR321
|
|
00619 AFTER ADVANCING 1 LINE. DTSBR321
|
|
00620 WRITE XEROX-REPORT FROM VSCA-ADDR-LINE-18 DTSBR321
|
|
00621 AFTER ADVANCING 1 LINE. DTSBR321
|
|
00622 WRITE XEROX-REPORT FROM VSCA-ADDR-LINE-19 DTSBR321
|
|
00623 AFTER ADVANCING 1 LINE. DTSBR321
|
|
00624 WRITE XEROX-REPORT FROM VSCA-ADDR-LINE-20 DTSBR321
|
|
00625 AFTER ADVANCING 1 LINE. DTSBR321
|
|
00626 DTSBR321
|
|
00627 P7000-EXIT. DTSBR321
|
|
00628 EXIT. DTSBR321
|
|
00629 DTSBR321
|
|
00630 P8000-generate-missing-letter. DTSBR321
|
|
00631 MOVE LOW-VALUES TO MQTR-KEY-AREA. DTSBR321
|
|
00632 MOVE R321-EMP-NO TO MQTR-EMP-NO. DTSBR321
|
|
00633 SET MQTR-QTR-88 TO TRUE. DTSBR321
|
|
00634 MOVE L004-QTR-5-9 TO MQTR-YRQ. DTSBR321
|
|
00635 MOVE MQTR-KEY-AREA TO MSKL-KEY-AREA. DTSBR321
|
|
00636 PERFORM S910-READ THRU S910-EXIT. DTSBR321
|
|
00637 DTSBR321
|
|
00638 * IF L910-OK-88 CL**4
|
|
00639 * display 'missing report found ' r321-emp-no CL**4
|
|
00640 * go to p8000-exit. CL**4
|
|
00641 DTSBR321
|
|
00642 ADD 1 TO TOT-MIS-CNT. DTSBR321
|
|
00643 * display 'r321-mail-date ' r321-mail-date CL**9
|
|
00644 MOVE R321-MAIL-DATE TO L002-DATE. CL*13
|
|
00645 * MOVE 20150601 TO L002-DATE. CL*13
|
|
00646 PERFORM S002-MIXED-CASE THRU S002-EXIT. DTSBR321
|
|
00647 DTSBR321
|
|
00648 ** COMPUTE WS-START-POS = (18 - L002-LONG-TEXT-CNT) / 2. DTSBR321
|
|
00649 DTSBR321
|
|
00650 ** ADD +1 TO WS-START-POS. DTSBR321
|
|
00651 ** display 'ws-start-pos ' ws-start-pos DTSBR321
|
|
00652 ** IF (WS-START-POS > +0) DTSBR321
|
|
00653 ** AND DTSBR321
|
|
00654 ** (WS-START-POS < +18) DTSBR321
|
|
00655 ** MOVE SPACES TO WS-LONG-TEXT-MAIL-DATE DTSBR321
|
|
00656 ** MOVE L002-LONG-TEXT-AREA DTSBR321
|
|
00657 ** TO WS-LONG-TEXT-MAIL-DATE (WS-START-POS:) DTSBR321
|
|
00658 ** ELSE DTSBR321
|
|
00659 MOVE L002-LONG-TEXT-AREA TO WS-LONG-TEXT-MAIL-DATE. DTSBR321
|
|
00660 DTSBR321
|
|
00661 * MOVE R417-TOTAL-RATE TO L056-RATE. DTSBR321
|
|
00662 * PERFORM S056-DISP1-LEFT-PCT THRU S056-EXIT. DTSBR321
|
|
00663 * MOVE L056-DISP-RATE TO WS-DISP-RATE. DTSBR321
|
|
00664 * display 'r321-yrq ' r321-yrq CL**5
|
|
00665 MOVE R321-YRQ TO L008-YRQ. DTSBR321
|
|
00666 PERFORM S008-UPPER-CASE THRU S008-EXIT. DTSBR321
|
|
00667 MOVE L008-SHORT-MONTHS TO WS-UC-SHORT-MONTHS. DTSBR321
|
|
00668 DTSBR321
|
|
00669 PERFORM S008-MIXED-CASE THRU S008-EXIT. DTSBR321
|
|
00670 * MOVE L008-SHORT-DSCR TO DTL-UC-SHORT-QTR-3. DTSBR321
|
|
00671 DTSBR321
|
|
00672 MOVE L008-YEAR (3:2) TO WS-SHORT-YEAR. DTSBR321
|
|
00673 DTSBR321
|
|
00674 MOVE L008-YEAR TO WS-LONG-YEAR. DTSBR321
|
|
00675 DTSBR321
|
|
00676 SET L004-FROM-5 TO TRUE. DTSBR321
|
|
00677 MOVE R321-YRQ TO WS-YRQ-UNPACK. DTSBR321
|
|
00678 MOVE WS-YRQ-UNPACK TO L004-QTR-5-AREA. DTSBR321
|
|
00679 PERFORM S004-FROM-5 THRU S004-EXIT. DTSBR321
|
|
00680 MOVE L004-QTR-END-DATE TO L002-DATE. DTSBR321
|
|
00681 DTSBR321
|
|
00682 * MOVE l002-date TO L001-FED-8-DATE-9. DTSBR321
|
|
00683 if R321-tax-due-DATE not numeric CL*36
|
|
00684 MOVE 20210415 to R321-tax-due-DATE. CL*36
|
|
00685 MOVE R321-tax-DUE-DATE TO L001-FED-8-DATE-9. DTSBR321
|
|
00686 PERFORM S001-FROM-FED-8 THRU S001-EXIT. DTSBR321
|
|
00687 MOVE L001-SLASH-8-DATE TO WS-SLASH-DUE-DATE. DTSBR321
|
|
00688 display 'r321-tax-due ' r321-emp-no ' ' r321-tax-due-date. CL*33
|
|
00689 * display 'L002-DATE ' L002-DATE. CL**5
|
|
00690 MOVE R321-tax-DUE-DATE TO L002-DATE. DTSBR321
|
|
00691 PERFORM S002-MIXED-CASE THRU S002-EXIT. DTSBR321
|
|
00692 MOVE L002-LONG-TEXT-AREA TO hdr-long-year2. DTSBR321
|
|
00693 DTSBR321
|
|
00694 PERFORM P9500-PRINT-HEADER THRU P9500-EXIT. DTSBR321
|
|
00695 DTSBR321
|
|
00696 * MOVE +130 TO L090-DESIRED-LINE-LIMIT. DTSBR321
|
|
00697 * MOVE +3 TO L090-PHRASE-CNT. DTSBR321
|
|
00698 * MOVE MC-LIT-WAS-DUE-BY TO L090-PHRASE (1). DTSBR321
|
|
00699 * MOVE SPACE TO L090-PHRASE-OVERSTRIKE-IND (1). DTSBR321
|
|
00700 * MOVE WS-LONG-TEXT-DUE-DATE TO L090-PHRASE (2). DTSBR321
|
|
00701 * MOVE SPACE TO L090-PHRASE-OVERSTRIKE-IND (2). DTSBR321
|
|
00702 * MOVE SPACES TO L090-PHRASE (2). DTSBR321
|
|
00703 STRING L002-LONG-TEXT-AREA DELIMITED BY ' ' DTSBR321
|
|
00704 '.' DELIMITED BY SIZE DTSBR321
|
|
00705 INTO L090-PHRASE (2). DTSBR321
|
|
00706 MOVE SPACES TO L090-PHRASE-OVERSTRIKE-IND (2). DTSBR321
|
|
00707 * MOVE MC-LIT-IS-NOW-DEL TO L090-PHRASE (3). DTSBR321
|
|
00708 MOVE SPACES TO L090-PHRASE-OVERSTRIKE-IND (3). DTSBR321
|
|
00709 ** PERFORM S090-PARAGRAPH-FORMAT THRU S090-EXIT. DTSBR321
|
|
00710 * DISPLAY 'L90 ' L090-PARAGRAPH-LINE-CNT DTSBR321
|
|
00711 * IF (L090-UNSUCCESSFUL-88) DTSBR321
|
|
00712 * OR DTSBR321
|
|
00713 * (L090-PARAGRAPH-LINE-CNT NOT = +1) DTSBR321
|
|
00714 * MOVE 'LOGIC ERROR P1000-1' TO ABEND-MSG DTSBR321
|
|
00715 * PERFORM S999-ABEND THRU S999-EXIT. DTSBR321
|
|
00716 * MOVE L090-PARAGRAPH-LINE (1) TO WS-TEXT-LINE-1. DTSBR321
|
|
00717 DTSBR321
|
|
00718 * MOVE +130 TO L090-DESIRED-LINE-LIMIT. DTSBR321
|
|
00719 * MOVE +3 TO L090-PHRASE-CNT. DTSBR321
|
|
00720 * MOVE MC-LIT-NOTICE-TO-US TO L090-PHRASE (1). DTSBR321
|
|
00721 * MOVE SPACES TO L090-PHRASE-OVERSTRIKE-IND (1). DTSBR321
|
|
00722 * SET L004-FROM-5 TO TRUE. DTSBR321
|
|
00723 * MOVE R321-YRQ TO WS-YRQ-UNPACK. DTSBR321
|
|
00724 * MOVE WS-YRQ-UNPACK TO L004-QTR-5-AREA. DTSBR321
|
|
00725 * PERFORM S004-FROM-5 THRU S004-EXIT. DTSBR321
|
|
00726 * MOVE L004-QTR-END-DATE TO L002-DATE. DTSBR321
|
|
00727 * DTSBR321
|
|
00728 * PERFORM S002-MIXED-CASE THRU S002-EXIT. DTSBR321
|
|
00729 * MOVE SPACES TO L090-PHRASE (2). DTSBR321
|
|
00730 * STRING L002-LONG-TEXT-AREA DELIMITED BY ' ' DTSBR321
|
|
00731 * ',' DELIMITED BY SIZE DTSBR321
|
|
00732 * INTO L090-PHRASE (2). DTSBR321
|
|
00733 * MOVE SPACES TO L090-PHRASE-OVERSTRIKE-IND (2). DTSBR321
|
|
00734 * MOVE MC-LIT-NOTICE-TO-US1 TO L090-PHRASE (3). DTSBR321
|
|
00735 * MOVE SPACES TO L090-PHRASE-OVERSTRIKE-IND (3). DTSBR321
|
|
00736 * PERFORM S090-PARAGRAPH-FORMAT THRU S090-EXIT. DTSBR321
|
|
00737 * DISPLAY 'L903 ' L090-PARAGRAPH-LINE-CNT DTSBR321
|
|
00738 * DISPLAY ' LIN ' L090-PARAGRAPH-LINE (1) DTSBR321
|
|
00739 * IF (L090-UNSUCCESSFUL-88) DTSBR321
|
|
00740 * OR DTSBR321
|
|
00741 * (L090-PARAGRAPH-LINE-CNT NOT = +1) DTSBR321
|
|
00742 * MOVE 'LOGIC ERROR P1000-3' TO ABEND-MSG DTSBR321
|
|
00743 * PERFORM S999-ABEND THRU S999-EXIT. DTSBR321
|
|
00744 * MOVE L090-PARAGRAPH-LINE (1) TO WS-TEXT-LINE-3. DTSBR321
|
|
00745 * DTSBR321
|
|
00746 * MOVE +130 TO L090-DESIRED-LINE-LIMIT. DTSBR321
|
|
00747 * MOVE +3 TO L090-PHRASE-CNT. DTSBR321
|
|
00748 * MOVE MC-LIT-NOTICE-TO-US2 TO L090-PHRASE (1). DTSBR321
|
|
00749 * MOVE SPACES TO L090-PHRASE-OVERSTRIKE-IND (1). DTSBR321
|
|
00750 * DISPLAY ' RTN BYE DATE ' R417-RETURN-BY-DATE. DTSBR321
|
|
00751 * MOVE R417-RETURN-BY-DATE TO L002-DATE. DTSBR321
|
|
00752 * PERFORM S002-MIXED-CASE THRU S002-EXIT. DTSBR321
|
|
00753 * MOVE SPACES TO L090-PHRASE (2). DTSBR321
|
|
00754 * STRING L002-LONG-TEXT-AREA DELIMITED BY ' ' DTSBR321
|
|
00755 * ',' DELIMITED BY SIZE DTSBR321
|
|
00756 * INTO L090-PHRASE (2). DTSBR321
|
|
00757 * MOVE SPACES TO L090-PHRASE-OVERSTRIKE-IND (2). DTSBR321
|
|
00758 * MOVE MC-LIT-NOTICE-TO-US3 TO L090-PHRASE (3). DTSBR321
|
|
00759 * MOVE SPACES TO L090-PHRASE-OVERSTRIKE-IND (3). DTSBR321
|
|
00760 * PERFORM S090-PARAGRAPH-FORMAT THRU S090-EXIT. DTSBR321
|
|
00761 * DISPLAY 'L904 ' L090-PARAGRAPH-LINE-CNT DTSBR321
|
|
00762 * DISPLAY ' LIN ' L090-PARAGRAPH-LINE (1) DTSBR321
|
|
00763 * IF (L090-UNSUCCESSFUL-88) DTSBR321
|
|
00764 * OR DTSBR321
|
|
00765 * (L090-PARAGRAPH-LINE-CNT NOT = +1) DTSBR321
|
|
00766 * MOVE 'LOGIC ERROR P1000-4' TO ABEND-MSG DTSBR321
|
|
00767 * PERFORM S999-ABEND THRU S999-EXIT. DTSBR321
|
|
00768 * MOVE L090-PARAGRAPH-LINE (1) TO WS-TEXT-LINE-4. DTSBR321
|
|
00769 DTSBR321
|
|
00770 PERFORM P9000-PRINT-DETAIL-1 THRU P9000-EXIT. DTSBR321
|
|
00771 DTSBR321
|
|
00772 * MOVE +0 TO DETAIL-2-LINE-CNT. DTSBR321
|
|
00773 DTSBR321
|
|
00774 PERFORM P9700-SELF-MAILER-RTN THRU P9700-EXIT. DTSBR321
|
|
00775 P8000-EXIT. DTSBR321
|
|
00776 EXIT. DTSBR321
|
|
00777 DTSBR321
|
|
00778 P9000-PRINT-DETAIL-1. DTSBR321
|
|
00779 ** MOVE hdr-UC-SHORT-MONTH-1 TO DTL-UC-SHORT-MONTH-1. DTSBR321
|
|
00780 ** MOVE hdr-UC-SHORT-MONTH-2 TO DTL-UC-SHORT-MONTH-2. DTSBR321
|
|
00781 ** MOVE hdr-UC-SHORT-MONTH-3 TO DTL-UC-SHORT-MONTH-3. DTSBR321
|
|
00782 ** MOVE hdr-LONG-YEAR TO DTL-LONG-YEAR. DTSBR321
|
|
00783 WRITE XEROX-REPORT2 FROM dtl-line-2 DTSBR321
|
|
00784 after aDVANCING 2 LINE. DTSBR321
|
|
00785 WRITE XEROX-REPORT2 FROM DTL-LINE-3 AFTER ADVANCING 1 LINE. DTSBR321
|
|
00786 ** WRITE XEROX-REPORT2 FROM DTL-LINE-4 AFTER ADVANCING 1 LINE. DTSBR321
|
|
00787 ** WRITE XEROX-REPORT2 FROM DTL-LINE-5 AFTER ADVANCING 1 LINE. DTSBR321
|
|
00788 WRITE XEROX-REPORT2 FROM DTL-LINE-5A AFTER ADVANCING 1 LINE. DTSBR321
|
|
00789 WRITE XEROX-REPORT2 FROM DTL-LINE-6 AFTER ADVANCING 2 LINE. DTSBR321
|
|
00790 WRITE XEROX-REPORT2 FROM DTL-LINE-6A AFTER ADVANCING 1 LINE. DTSBR321
|
|
00791 ** WRITE XEROX-REPORT2 FROM DTL-LINE-7 AFTER ADVANCING 2 LINE. DTSBR321
|
|
00792 ** WRITE XEROX-REPORT2 FROM DTL-LINE-7A AFTER ADVANCING 1 LINE. DTSBR321
|
|
00793 WRITE XEROX-REPORT2 FROM DTL-LINE-8 AFTER ADVANCING 1 LINE. DTSBR321
|
|
00794 WRITE XEROX-REPORT2 FROM DTL-LINE-8A AFTER ADVANCING 1 LINE. DTSBR321
|
|
00795 WRITE XEROX-REPORT2 FROM DTL-LINE-8b AFTER ADVANCING 1 LINE. DTSBR321
|
|
00796 WRITE XEROX-REPORT2 FROM DTL-LINE-9 AFTER ADVANCING 1 LINE. DTSBR321
|
|
00797 WRITE XEROX-REPORT2 FROM DTL-LINE-11 AFTER ADVANCING 1 LINE. DTSBR321
|
|
00798 WRITE XEROX-REPORT2 FROM DTL-LINE-12 AFTER ADVANCING 1 LINE. DTSBR321
|
|
00799 DTSBR321
|
|
00800 P9000-EXIT. DTSBR321
|
|
00801 EXIT. DTSBR321
|
|
00802 P9500-PRINT-HEADER. DTSBR321
|
|
00803 MOVE R321-EMP-NO TO BARC-EMP-NO. DTSBR321
|
|
00804 DTSBR321
|
|
00805 PERFORM S599-BARCODE THRU S599-EXIT. DTSBR321
|
|
00806 IF L599-SETB-FONT1 DTSBR321
|
|
00807 MOVE 'MODIFY=TAXSM1,' TO CNTL2-CME DTSBR321
|
|
00808 ELSE DTSBR321
|
|
00809 IF L599-SETB-FONT2 DTSBR321
|
|
00810 MOVE 'MODIFY=TAXSM2,' TO CNTL2-CME DTSBR321
|
|
00811 ELSE DTSBR321
|
|
00812 MOVE 'MODIFY=TAXSM1,' TO CNTL2-CME. DTSBR321
|
|
00813 MOVE 'MODIFY=CME418,' TO CNTL2-CME. DTSBR321
|
|
00814 WRITE XEROX-REPORT2 FROM XEROX-CNTL2-LINE18 DTSBR321
|
|
00815 AFTER ADVANCING TOP-OF-PAGE. DTSBR321
|
|
00816 * WRITE XEROX-REPORT2 FROM XEROX-CNTL2-LINE19. DTSBR321
|
|
00817 WRITE XEROX-REPORT2 FROM XEROX-CNTL2-LINE20. DTSBR321
|
|
00818 MOVE R321-FMT-LINE (1) TO HDR-FMT-LINE-1. DTSBR321
|
|
00819 MOVE R321-FMT-LINE (2) TO HDR-FMT-LINE-2. DTSBR321
|
|
00820 MOVE R321-FMT-LINE (3) TO HDR-FMT-LINE-3. DTSBR321
|
|
00821 MOVE R321-FMT-LINE (4) TO HDR-FMT-LINE-4. DTSBR321
|
|
00822 MOVE R321-FMT-LINE (5) TO HDR-FMT-LINE-5. DTSBR321
|
|
00823 MOVE R321-EMP-NO TO HDR-EMP-NO. DTSBR321
|
|
00824 ** MOVE WS-UC-SHORT-MONTH-1 TO HDR-UC-SHORT-MONTH-1. DTSBR321
|
|
00825 ** MOVE WS-UC-SHORT-MONTH-2 TO HDR-UC-SHORT-MONTH-2. DTSBR321
|
|
00826 ** MOVE WS-UC-SHORT-MONTH-3 TO HDR-UC-SHORT-MONTH-3. DTSBR321
|
|
00827 MOVE WS-LONG-YEAR TO HDR-LONG-YEAR. DTSBR321
|
|
00828 MOVE WS-LONG-YEAR TO HDR-LONG-YEAR1. DTSBR321
|
|
00829 * WRITE XEROX-REPORT FROM VSCA-LINE AFTER ADVANCING TOP-OF-PAGEDTSBR321
|
|
00830 WRITE XEROX-REPORT2 FROM VSCA-LINE AFTER ADVANCING 8 LINE. DTSBR321
|
|
00831 * WRITE XEROX-REPORT FROM VSCA-LINE AFTER ADVANCING 10 LINE. DTSBR321
|
|
00832 WRITE XEROX-REPORT2 FROM HDR-LINE-10 AFTER ADVANCING 1 LINE. DTSBR321
|
|
00833 WRITE XEROX-REPORT2 FROM HDR-LINE-11 AFTER ADVANCING 2 LINE. DTSBR321
|
|
00834 WRITE XEROX-REPORT2 FROM HDR-LINE-12 AFTER ADVANCING 1 LINE. DTSBR321
|
|
00835 WRITE XEROX-REPORT2 FROM HDR-LINE-13 AFTER ADVANCING 1 LINE. DTSBR321
|
|
00836 WRITE XEROX-REPORT2 FROM HDR-LINE-14 AFTER ADVANCING 1 LINE. DTSBR321
|
|
00837 WRITE XEROX-REPORT2 FROM HDR-LINE-15 AFTER ADVANCING 1 LINE. DTSBR321
|
|
00838 CL*17
|
|
00839 MOVE R321-EMP-NO TO WS-EMP-NO4. CL*17
|
|
00840 if R321-FMT-LINE (1) > spaces CL*14
|
|
00841 move r321-fmt-line(1) to ws-emp-name4 CL*14
|
|
00842 else CL*14
|
|
00843 if R321-FMT-LINE (2) > spaces CL*17
|
|
00844 move r321-fmt-line(2) to ws-emp-name4 CL*17
|
|
00845 else CL*17
|
|
00846 if R321-FMT-LINE (3) > spaces CL*17
|
|
00847 move r321-fmt-line(3) to ws-emp-name4 CL*17
|
|
00848 else CL*17
|
|
00849 move r321-fmt-line(4) to ws-emp-name4. CL*17
|
|
00850 WRITE XEROX-REPORT4 FROM rpt-LINE-4 AFTER ADVANCING 1 LINE. CL*14
|
|
00851 P9500-EXIT. DTSBR321
|
|
00852 EXIT. DTSBR321
|
|
00853 P9700-SELF-MAILER-RTN. DTSBR321
|
|
00854 MOVE R321-FMT-LINE (1) TO C2-ADDR-FMT-LINE-1. DTSBR321
|
|
00855 MOVE R321-FMT-LINE (2) TO C2-ADDR-FMT-LINE-2. DTSBR321
|
|
00856 MOVE R321-FMT-LINE (3) TO C2-ADDR-FMT-LINE-3. DTSBR321
|
|
00857 MOVE R321-FMT-LINE (4) TO C2-ADDR-FMT-LINE-4. DTSBR321
|
|
00858 MOVE R321-FMT-LINE (5) TO C2-ADDR-FMT-LINE-5. DTSBR321
|
|
00859 DTSBR321
|
|
00860 PERFORM P9900-PRINT-VSCA-ADDR THRU P9900-EXIT. DTSBR321
|
|
00861 DTSBR321
|
|
00862 P9700-EXIT. DTSBR321
|
|
00863 EXIT. DTSBR321
|
|
00864 P9900-PRINT-VSCA-ADDR. DTSBR321
|
|
00865 MOVE L599-BARCODED-DATA TO CONVERTED-BARCODE. DTSBR321
|
|
00866 DTSBR321
|
|
00867 MOVE SPACES TO WS-REC. DTSBR321
|
|
00868 WRITE XEROX-REPORT2 FROM WS-REC DTSBR321
|
|
00869 AFTER ADVANCING TOP-OF-PAGE. DTSBR321
|
|
00870 DTSBR321
|
|
00871 * WRITE XEROX-REPORT FROM WS-BARC-LINE AFTER 04. DTSBR321
|
|
00872 DTSBR321
|
|
00873 * WRITE XEROX-REPORT FROM VSCA-LINE DTSBR321
|
|
00874 * AFTER ADVANCING TOP-OF-PAGE. DTSBR321
|
|
00875 WRITE XEROX-REPORT2 FROM VSCA-LINE AFTER ADVANCING 16 LINE. DTSBR321
|
|
00876 * WRITE XEROX-REPORT FROM VSCA-LINE AFTER ADVANCING 13 LINE. DTSBR321
|
|
00877 *RW2 DTSBR321
|
|
00878 WRITE XEROX-REPORT2 FROM VSC2-ADDR-LINE-17 DTSBR321
|
|
00879 AFTER ADVANCING 1 LINE. DTSBR321
|
|
00880 WRITE XEROX-REPORT2 FROM VSC2-ADDR-LINE-18 DTSBR321
|
|
00881 AFTER ADVANCING 1 LINE. DTSBR321
|
|
00882 WRITE XEROX-REPORT2 FROM VSC2-ADDR-LINE-19 DTSBR321
|
|
00883 AFTER ADVANCING 1 LINE. DTSBR321
|
|
00884 WRITE XEROX-REPORT2 FROM VSC2-ADDR-LINE-20 DTSBR321
|
|
00885 AFTER ADVANCING 1 LINE. DTSBR321
|
|
00886 WRITE XEROX-REPORT2 FROM VSC2-ADDR-LINE-21 DTSBR321
|
|
00887 AFTER ADVANCING 1 LINE. DTSBR321
|
|
00888 DTSBR321
|
|
00889 P9900-EXIT. DTSBR321
|
|
00890 EXIT. DTSBR321
|
|
00891 DTSBR321
|
|
00892 T1000-TERMINATE. DTSBR321
|
|
00893 DISPLAY ' TOTAL NO OF penalty assessed ' TOT-PEN-CNT. DTSBR321
|
|
00894 DISPLAY ' ' DTSBR321
|
|
00895 DISPLAY ' NUMBER OF FILERS TAX TOLERATED ' TOL-CNT. DTSBR321
|
|
00896 DISPLAY ' ' DTSBR321
|
|
00897 DISPLAY ' NUMBER OF FILERS CREDIT APPLID ' CREDIT-CNT. DTSBR321
|
|
00898 DISPLAY ' ' DTSBR321
|
|
00899 DISPLAY ' NUMBER OF FILERS bal due = 0 ' credit-cnt. DTSBR321
|
|
00900 DISPLAY ' ' DTSBR321
|
|
00901 DTSBR321
|
|
00902 DISPLAY ' TOTAL NO OF MISSING REPORTS ' TOT-MIS-CNT. DTSBR321
|
|
00903 DISPLAY ' ' DTSBR321
|
|
00904 SKIP1 DTSBR321
|
|
00905 CLOSE PRT-FILE DTSBR321
|
|
00906 PRT-FILE2 CL*16
|
|
00907 PRT-FILE3 CL*16
|
|
00908 PRT-FILE4. CL*16
|
|
00909 SKIP2 DTSBR321
|
|
00910 T1000-EXIT. DTSBR321
|
|
00911 EXIT. DTSBR321
|
|
00912 EJECT DTSBR321
|
|
00913 S001-FROM-FED-8. DTSBR321
|
|
00914 SET L001-FROM-FED-8 TO TRUE. DTSBR321
|
|
00915 GO TO S001-DATE. DTSBR321
|
|
00916 DTSBR321
|
|
00917 S001-DATE. DTSBR321
|
|
00918 SKIP1 DTSBR321
|
|
00919 CALL 'DTSBU001' USING L001-LINK-AREA. DTSBR321
|
|
00920 SKIP2 DTSBR321
|
|
00921 S001-EXIT. DTSBR321
|
|
00922 EXIT. DTSBR321
|
|
00923 SKIP3 DTSBR321
|
|
00924 S002-UPPER-CASE. DTSBR321
|
|
00925 SET L002-UPPER-CASE TO TRUE. DTSBR321
|
|
00926 GO TO S002-DATE-ALPHA. DTSBR321
|
|
00927 DTSBR321
|
|
00928 S002-MIXED-CASE. DTSBR321
|
|
00929 * display 's002-mixed ' CL**9
|
|
00930 SET L002-MIXED-CASE TO TRUE. DTSBR321
|
|
00931 GO TO S002-DATE-ALPHA. DTSBR321
|
|
00932 DTSBR321
|
|
00933 S002-DATE-ALPHA. DTSBR321
|
|
00934 SKIP1 DTSBR321
|
|
00935 * display 'l002-link-area ' l002-link-area CL**9
|
|
00936 CALL 'DTSBU002' USING L002-LINK-AREA. DTSBR321
|
|
00937 SKIP2 DTSBR321
|
|
00938 S002-EXIT. DTSBR321
|
|
00939 EXIT. DTSBR321
|
|
00940 SKIP3 DTSBR321
|
|
00941 S004-FROM-5. DTSBR321
|
|
00942 SET L004-FROM-5 TO TRUE. DTSBR321
|
|
00943 GO TO S004-FROM-QTR. DTSBR321
|
|
00944 DTSBR321
|
|
00945 S004-FROM-QTR. DTSBR321
|
|
00946 SKIP1 DTSBR321
|
|
00947 CALL 'DTSBU004' USING L004-LINK-AREA. DTSBR321
|
|
00948 SKIP2 DTSBR321
|
|
00949 S004-EXIT. DTSBR321
|
|
00950 EXIT. DTSBR321
|
|
00951 SKIP3 DTSBR321
|
|
00952 S008-UPPER-CASE. DTSBR321
|
|
00953 SET L008-UPPER-CASE TO TRUE. DTSBR321
|
|
00954 GO TO S008-QUARTER-ALPHA. DTSBR321
|
|
00955 DTSBR321
|
|
00956 S008-MIXED-CASE. DTSBR321
|
|
00957 * display 's008-mixed-case ' CL**9
|
|
00958 SET L008-MIXED-CASE TO TRUE. DTSBR321
|
|
00959 GO TO S008-QUARTER-ALPHA. DTSBR321
|
|
00960 DTSBR321
|
|
00961 S008-QUARTER-ALPHA. DTSBR321
|
|
00962 * display 'l008-link-area ' l008-link-area CL**9
|
|
00963 CALL 'DTSBU008' USING L008-LINK-AREA. DTSBR321
|
|
00964 DTSBR321
|
|
00965 S008-EXIT. DTSBR321
|
|
00966 EXIT. DTSBR321
|
|
00967 SKIP3 DTSBR321
|
|
00968 S101-pER-MONTH-NO. DTSBR321
|
|
00969 SET L101-PER-MONTH-NO-88 TO TRUE. DTSBR321
|
|
00970 GO TO S101-INT-COMP. DTSBR321
|
|
00971 S101-INT-COMP. DTSBR321
|
|
00972 CALL 'DTSBU101' USING L101-LINK-AREA. DTSBR321
|
|
00973 S101-EXIT. DTSBR321
|
|
00974 EXIT. DTSBR321
|
|
00975 SKIP3 DTSBR321
|
|
00976 S090-PARAGRAPH-FORMAT. DTSBR321
|
|
00977 MOVE +0 TO L090-INDENT. DTSBR321
|
|
00978 SET L090-SPECIAL-CHAR-STD-88 TO TRUE. DTSBR321
|
|
00979 DTSBR321
|
|
00980 CALL 'DTSBU090' USING L090-LINK-AREA. DTSBR321
|
|
00981 S090-EXIT. DTSBR321
|
|
00982 EXIT. DTSBR321
|
|
00983 SKIP3 DTSBR321
|
|
00984 S119-REQ-CAPS. DTSBR321
|
|
00985 SET L119-REQ-CAPS-88 TO TRUE. DTSBR321
|
|
00986 GO TO S119-AGENCY-FACTS. DTSBR321
|
|
00987 S119-REQ-MIXED. DTSBR321
|
|
00988 SET L119-REQ-MIXED-88 TO TRUE. DTSBR321
|
|
00989 GO TO S119-AGENCY-FACTS. DTSBR321
|
|
00990 DTSBR321
|
|
00991 S119-AGENCY-FACTS. DTSBR321
|
|
00992 CALL 'DTSBU119' USING L119-LINK-AREA. DTSBR321
|
|
00993 S119-EXIT. DTSBR321
|
|
00994 EXIT. DTSBR321
|
|
00995 SKIP3 DTSBR321
|
|
00996 DTSBR321
|
|
00997 S599-BARCODE. DTSBR321
|
|
00998 * display 's599-barcode ' CL**9
|
|
00999 MOVE CONVERT-BARCODE-LINE TO L599-INPUT-DATA. DTSBR321
|
|
01000 MOVE LENGTH OF CONVERT-BARCODE-LINE TO L599-REC-LENGTH. DTSBR321
|
|
01001 MOVE 'TAX' TO L599-SYSTEM. DTSBR321
|
|
01002 DTSBR321
|
|
01003 CALL 'DTSBU599' USING BARI-LINK-AREA. DTSBR321
|
|
01004 * display 'bari-link-area ' bari-link-area CL**9
|
|
01005 IF L599-NOT-CONVERTED DTSBR321
|
|
01006 PERFORM S999-ABEND THRU S999-EXIT. DTSBR321
|
|
01007 * display 's599-exit ' CL**9
|
|
01008 * . CL**9
|
|
01009 S599-EXIT. DTSBR321
|
|
01010 EXIT. DTSBR321
|
|
01011 SKIP3 DTSBR321
|
|
01012 S910-OPEN-READ. DTSBR321
|
|
01013 SET L910-OPEN-READ-88 TO TRUE. DTSBR321
|
|
01014 GO TO S910-MSTR-IO. DTSBR321
|
|
01015 DTSBR321
|
|
01016 S910-READ. DTSBR321
|
|
01017 SET L910-READ-88 TO TRUE. DTSBR321
|
|
01018 GO TO S910-MSTR-IO. DTSBR321
|
|
01019 DTSBR321
|
|
01020 S910-CLOSE. DTSBR321
|
|
01021 SET L910-CLOSE-88 TO TRUE. DTSBR321
|
|
01022 GO TO S910-MSTR-IO. DTSBR321
|
|
01023 DTSBR321
|
|
01024 S910-MSTR-IO. DTSBR321
|
|
01025 CALL 'DTSBU910' USING L910-LINK-AREA DTSBR321
|
|
01026 MSKL-REC. DTSBR321
|
|
01027 DTSBR321
|
|
01028 S910-EXIT. DTSBR321
|
|
01029 EXIT. DTSBR321
|
|
01030 SKIP2 DTSBR321
|
|
01031 S999-ABEND. DTSBR321
|
|
01032 DISPLAY '**** dtsBR321 ABENDING ' DTSBR321
|
|
01033 DTSBR321
|
|
01034 CALL 'DTSBU999' USING WRK-ABEND-CODE. DTSBR321
|
|
01035 DTSBR321
|
|
01036 S999-EXIT. DTSBR321
|
|
01037 EXIT. DTSBR321
|
|
01038 DTSBR321
|