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