00001 IDENTIFICATION DIVISION. 02/10/21 00002 PROGRAM-ID. DTSBR320. DTSBR320 00003 AUTHOR. TRW S&ITG. LV033 00004 DATE-WRITTEN. MARCH 1999 DTSBR320 00005 DATE-COMPILED. DTSBR320 00006 SKIP3 DTSBR320 00007 ***** DTSBR320 00008 * CALLING SEQUENCE: DTSBR320 00009 * DTSBR320 00010 * DTSBR320 READS DTSIR320 RECORDS. DTSBR320 00011 * DTSBR320 00012 * FUNCTION: penalty assessment/ missing report notices DTSBR320 00013 * DTSBR320 00014 * DTSBR320 00015 * MODIFICATION HISTORY: DTSBR320 00016 * DTSBR320 00017 * 07-16-13 new program. print penalty assessment letter DTSBR320 00018 * for rated and self insured filers DTSBR320 00019 * REFERENCE XXXXXXXXX PROGRAMMER: zl1 DTSBR320 00020 * DTSBR320 00021 * DTSBR320 00022 * 12-22-13 modified program to print missing report letter for DTSBR320 00023 * all employers who have not filed their quarterly DTSBR320 00024 * report also a penalty is charged. DTSBR320 00025 * REFERENCE XXXXXXXXX PROGRAMMER: zl1 DTSBR320 00026 * DTSBR320 00027 * DTSBR320 00028 * 07-22-14 modified program to print missing report and penalty DTSBR320 00029 * report listings for trms DTSBR320 00030 * REFERENCE XXXXXXXXX PROGRAMMER: zl1 DTSBR320 00031 * DTSBR320 00032 * DTSBR320 00033 * 05-23-15 modified program to notify employer credit was applied DTSBR320 00034 * to pay late penalty DTSBR320 00035 * REFERENCE XXXXXXXXX PROGRAMMER: zl1 DTSBR320 00036 * DTSBR320 00037 * XX-XX-XX XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBR320 00038 * XXXXXXXXXXXX. DTSBR320 00039 * REFERENCE XXXXXXXXX PROGRAMMER: XXX DTSBR320 00040 * DTSBR320 00041 * DESCRIPTION: DTSBR320 00042 * DTSBR320 00043 * THIS MODULE PRINTS penalty charge and missing report DTSBR320 00044 * notices. DTSBR320 00045 * DTSBR320 00046 * DTSBR320 00047 * RECORDS READ: DTSBR320 00048 * DTSBR320 00049 * NONE. DTSBR320 00050 * DTSBR320 00051 * DTSBR320 00052 * PRINTED OUTPUTS: DTSBR320 00053 * DTSBR320 00054 * 320R1 penalty charge letter DTSBR320 00055 * 320r2 missing report letter DTSBR320 00056 * DTSBR320 00057 * RECORDS WRITTEN: DTSBR320 00058 * DTSBR320 00059 * NONE. DTSBR320 00060 * DTSBR320 00061 * DTSBR320 00062 * MODULES CALLED: DTSBR320 00063 * DTSBR320 00064 * DTSBU001 DATE EDIT/CONVERSION MODULE DTSBR320 00065 * DTSBU002 DATE ALPHA CONVERSION MODULE. DTSBR320 00066 * DTSBR320 00067 ***** DTSBR320 00068 EJECT DTSBR320 00069 ENVIRONMENT DIVISION. DTSBR320 00070 SKIP2 DTSBR320 00071 CONFIGURATION SECTION. DTSBR320 00072 SPECIAL-NAMES. C01 IS TOP-OF-PAGE. DTSBR320 00073 SKIP1 DTSBR320 00074 INPUT-OUTPUT SECTION. DTSBR320 00075 SKIP1 DTSBR320 00076 FILE-CONTROL. DTSBR320 00077 SELECT PRT-FILE ASSIGN TO RPT320r3. DTSBR320 00078 SELECT PRT-FILE2 ASSIGN TO RPT320R4. DTSBR320 00079 SELECT pen-FILE ASSIGN TO RPT320R1. DTSBR320 00080 SELECT mis-FILE ASSIGN TO RPT320R2. DTSBR320 00081 DTSBR320 00082 SELECT EMP-RPT-FILE ASSIGN TO DTSBX212. DTSBR320 00083 SKIP3 DTSBR320 00084 DATA DIVISION. DTSBR320 00085 SKIP3 DTSBR320 00086 FILE SECTION. DTSBR320 00087 SKIP2 DTSBR320 00088 FD PRT-FILE DTSBR320 00089 RECORDING MODE IS F DTSBR320 00090 BLOCK CONTAINS 0 RECORDS DTSBR320 00091 LABEL RECORDS ARE OMITTED. DTSBR320 00092 01 XEROX-REPORT. DTSBR320 00093 05 FILLER PIC X(1). DTSBR320 00094 05 XEROX-RPT PIC X(132). DTSBR320 00095 EJECT DTSBR320 00096 DTSBR320 00097 FD PRT-FILE2 DTSBR320 00098 RECORDING MODE IS F DTSBR320 00099 BLOCK CONTAINS 0 RECORDS DTSBR320 00100 LABEL RECORDS ARE OMITTED. DTSBR320 00101 01 XEROX-REPORT2. DTSBR320 00102 05 FILLER PIC X(1). DTSBR320 00103 05 XEROX-RPT2 PIC X(132). DTSBR320 00104 EJECT DTSBR320 00105 DTSBR320 00106 FD pen-FILE DTSBR320 00107 RECORDING MODE IS F DTSBR320 00108 BLOCK CONTAINS 0 RECORDS DTSBR320 00109 LABEL RECORDS ARE OMITTED. DTSBR320 00110 01 pen-REPORT. DTSBR320 00111 05 FILLER PIC X(1). DTSBR320 00112 05 pen-RPT PIC X(132). DTSBR320 00113 EJECT DTSBR320 00114 DTSBR320 00115 DTSBR320 00116 FD mis-FILE DTSBR320 00117 RECORDING MODE IS F DTSBR320 00118 BLOCK CONTAINS 0 RECORDS DTSBR320 00119 LABEL RECORDS ARE OMITTED. DTSBR320 00120 01 mis-REPORT. DTSBR320 00121 05 FILLER PIC X(1). DTSBR320 00122 05 mis-RPT PIC X(132). DTSBR320 00123 EJECT DTSBR320 00124 DTSBR320 00125 DTSBR320 00126 FD EMP-RPT-FILE DTSBR320 00127 RECORDING MODE IS F DTSBR320 00128 BLOCK CONTAINS 0 RECORDS DTSBR320 00129 LABEL RECORDS ARE OMITTED. DTSBR320 00130 DTSBR320 00131 01 EMP-RPT-REC PIC X(106). DTSBR320 00132 DTSBR320 00133 DTSBR320 00134 DTSBR320 00135 WORKING-STORAGE SECTION. DTSBR320 001355 77 PAN-VALET PICTURE X(24) VALUE '033DTSBR320 02/10/21'. DTSBR320 00136 77 PAN-VALET PICTURE X(24) VALUE '005DTSBR320 11/23/15'. DTSBR320 00137 77 PAN-VALET PICTURE X(24) VALUE '047DTSBR320 11/13/15'. DTSBR320 00138 77 PAN-VALET PICTURE X(24) VALUE '003DTSBR320 05/28/14'. DTSBR320 00139 77 PAN-VALET PICTURE X(24) VALUE '031DTSBR320 05/16/14'. DTSBR320 00140 77 PAN-VALET PICTURE X(24) VALUE '001DTSBR320 08/09/13'. DTSBR320 00141 77 PAN-VALET PICTURE X(24) VALUE '017DTSBR320 08/05/13'. DTSBR320 00142 SKIP3 DTSBR320 00143 01 WRK-AREA. DTSBR320 00144 05 Ws-start-pos PIC S9(04) COMP. DTSBR320 00145 05 WRK-ABEND-Code PIC S9(04) COMP VALUE +320.DTSBR320 00146 05 WS-YRQ-UNPACK PIC 9(5) VALUE 0. DTSBR320 00147 05 WS-pen-line-cnt PIC 9(5) VALUE 55. DTSBR320 00148 05 WS-mis-line-cnt PIC 9(5) VALUE 55. DTSBR320 00149 05 WS-pen-page-cnt PIC 9(5) VALUE 0. DTSBR320 00150 05 WS-mis-page-cnt PIC 9(5) VALUE 0. DTSBR320 00151 05 FIRST-TIME-IND PIC X(01) VALUE 'Y'. DTSBR320 00152 05 WS-REC PIC X(132) VALUE SPACES. DTSBR320 00153 05 WS-UC-SHORT-MONTHS. DTSBR320 00154 10 WS-UC-SHORT-MONTH-1 PIC X(03). DTSBR320 00155 10 WS-UC-SHORT-MONTH-2 PIC X(03). DTSBR320 00156 10 WS-UC-SHORT-MONTH-3 PIC X(03). DTSBR320 00157 05 WS-SHORT-YEAR PIC X(02). DTSBR320 00158 DTSBR320 00159 05 WS-LONG-YEAR PIC X(04). DTSBR320 00160 05 ABEND-MSG PIC X(60). DTSBR320 00161 DTSBR320 00162 05 ws-credit-used PIC X(01). DTSBR320 00163 88 ws-credit-used-no-88 VALUE '0'. DTSBR320 00164 88 ws-credit-used-yes-88 VALUE '1'. DTSBR320 00165 DTSBR320 00166 SKIP3 DTSBR320 00167 01 VSCA-LINE. DTSBR320 00168 05 VSCA-DATA PIC X(133) VALUE SPACES. DTSBR320 00169 01 WS-TAX-DUE PIC S9(09)V9(02) COMP-3 DTSBR320 00170 VALUE +0. DTSBR320 00171 01 TOT-pen-cnt PIC 9(05) VALUE 0. DTSBR320 00172 01 TOT-mis-cnt PIC 9(05) VALUE 0. DTSBR320 00173 01 ws-pen-rec-cnt PIC 9(05) VALUE 0. DTSBR320 00174 01 ws-mis-rec-cnt PIC 9(05) VALUE 0. DTSBR320 00175 01 TOL-CNT PIC 9(05) VALUE 0. DTSBR320 00176 01 CREDIT-CNT PIC 9(05) VALUE 0. DTSBR320 00177 01 WRK-MQTR-BAL PIC S9(09)V9(02) COMP-3 DTSBR320 00178 VALUE +0. DTSBR320 00179 01 WRK-paid-amt PIC S9(09)V9(02) COMP-3 DTSBR320 00180 VALUE +0. DTSBR320 00181 01 WRK-EMP-NO PIC 9(06) VALUE ZEROS. DTSBR320 00182 01 WRK-AREAS. DTSBR320 00183 05 WRK-R320-YRQ PIC S9(05) COMP-3 VALUE +0. DTSBR320 00184 05 WRK-R320-YRQX REDEFINES WRK-R320-YRQ. DTSBR320 00185 10 WRK-R320-YR PIC 9(4). DTSBR320 00186 10 WRK-R320-QTR PIC 9(1). DTSBR320 00187 SKIP1 DTSBR320 00188 01 wrk-tables. DTSBR320 00189 05 TF-SUB PIC S9(07) COMP-3. DTSBR320 00190 05 TF-MAX PIC S9(07) COMP-3 DTSBR320 00191 VALUE +999999. DTSBR320 00192 05 TRANS-FILE-RPTS OCCURS 999999 TIMES. DTSBR320 00193 10 TRANS-FILE-RPT-IND PIC X(01). DTSBR320 00194 88 TF-RPT-FOUND-YES-88 VALUE 'Y'. DTSBR320 00195 88 TF-RPT-FOUND-NO-88 VALUE 'N'. DTSBR320 00196 10 TRANS-BYPASSED-IND PIC X(01). DTSBR320 00197 88 TF-BYPASSED-YES-88 VALUE 'Y'. DTSBR320 00198 88 TF-BYPASSED-NO-88 VALUE 'N'. DTSBR320 00199 DTSBR320 00200 01 L001-LINK-AREA. DTSBR320 00201 ++INCLUDE DTSIL001 DTSBR320 00202 EJECT DTSBR320 00203 01 L002-LINK-AREA. DTSBR320 00204 ++INCLUDE DTSIL002 DTSBR320 00205 EJECT DTSBR320 00206 01 L004-LINK-AREA. DTSBR320 00207 ++INCLUDE DTSIL004 DTSBR320 00208 EJECT DTSBR320 00209 01 MIXED-CASE-LITERALS. DTSBR320 00210 ++INCLUDE DTSIZ30D DTSBR320 00211 01 L008-LINK-AREA. DTSBR320 00212 ++INCLUDE DTSIL008 DTSBR320 00213 EJECT DTSBR320 00214 01 L056-LINK-AREA. DTSBR320 00215 ++INCLUDE DTSIL056 DTSBR320 00216 EJECT DTSBR320 00217 01 L090-LINK-AREA. DTSBR320 00218 ++INCLUDE DTSIL090 DTSBR320 00219 EJECT DTSBR320 00220 01 L119-LINK-AREA. DTSBR320 00221 ++INCLUDE DTSIL119 DTSBR320 00222 EJECT DTSBR320 00223 ++INCLUDE DTSIZ30C DTSBR320 00224 SKIP3 DTSBR320 00225 ++INCLUDE DTSXL32A DTSBR320 00226 SKIP3 DTSBR320 00227 ++INCLUDE DTSXL320 DTSBR320 00228 SKIP3 DTSBR320 00229 01 W-EMP-RPT-REC. DTSBR320 00230 ++INCLUDE DTSIX212 DTSBR320 00231 DTSBR320 00232 EJECT DTSBR320 00233 01 LETTER-HEADING. DTSBR320 00234 05 LTH-LINE-1. DTSBR320 00235 10 FILLER PIC X(01) VALUE SPACE. DTSBR320 00236 10 WS-FMT-LINE-1 PIC X(40). DTSBR320 00237 10 FILLER PIC X(27) VALUE SPACES. DTSBR320 00238 10 WS-mail-date PIC X(10). DTSBR320 00239 05 LTH-LINE-2. DTSBR320 00240 10 FILLER PIC X(01) VALUE SPACE. DTSBR320 00241 10 WS-FMT-LINE-2 PIC X(40). DTSBR320 00242 05 LTH-LINE-3. DTSBR320 00243 10 FILLER PIC X(01) VALUE SPACE. DTSBR320 00244 10 WS-FMT-LINE-3 PIC X(40). DTSBR320 00245 10 FILLER PIC X(27) VALUE SPACES. DTSBR320 00246 10 WS-EMP-NO PIC 999B999. DTSBR320 00247 05 LTH-LINE-4. DTSBR320 00248 10 FILLER PIC X(01) VALUE SPACE. DTSBR320 00249 10 WS-FMT-LINE-4 PIC X(40). DTSBR320 00250 05 LTH-LINE-5. DTSBR320 00251 10 FILLER PIC X(01) VALUE SPACE. DTSBR320 00252 10 WS-FMT-LINE-5 PIC X(40). DTSBR320 00253 10 FILLER PIC X(27) VALUE SPACES. DTSBR320 00254 10 WS-payment-DATE PIC X(10). DTSBR320 00255 05 RPT-LINE-1. DTSBR320 00256 10 FILLER PIC X(04) VALUE SPACES. DTSBR320 00257 10 WS-YRQ PIC X(06). DTSBR320 00258 10 FILLER PIC X(01) VALUE SPACE. DTSBR320 00259 10 WS-RPA-TAX-DUE PIC zzZ,ZZZ,ZZ9.99. DTSBR320 00260 10 FILLER PIC X(01) VALUE SPACE. DTSBR320 00261 10 WS-paid-amt PIC zzZ,ZZZ,ZZ9.99. DTSBR320 00262 10 FILLER PIC X(01) VALUE SPACES. DTSBR320 00263 10 WS-PEN-CHARGED-AMT PIC Z,ZZZ,ZZ9.99. DTSBR320 00264 10 FILLER PIC X(01) VALUE SPACES. DTSBR320 00265 10 WS-INT-CHARGED-AMT PIC Z,ZZZ,ZZ9.99. DTSBR320 00266 10 FILLER PIC X(03) VALUE SPACES. DTSBR320 00267 10 WS-TOTAL-DUE PIC zzZ,ZZZ,ZZ9.99. DTSBR320 00268 SKIP2 DTSBR320 00269 DTSBR320 00270 05 pen-LINE-1. DTSBR320 00271 10 FILLER PIC X(04) VALUE SPACES. DTSBR320 00272 10 pen-emp-no PIC 999b999. DTSBR320 00273 10 FILLER PIC X(01) VALUE SPACES. CL**3 00274 10 pen-emp-type PIC X(01) VALUE SPACES. CL**3 00275 10 FILLER PIC X(02) VALUE SPACES. CL**3 00276 10 pen-emp-name PIC X(30). DTSBR320 00277 10 FILLER PIC X(04) VALUE SPACES. DTSBR320 00278 10 pen-YRQ PIC X(06). DTSBR320 00279 10 FILLER PIC X(01) VALUE SPACE. DTSBR320 00280 10 pen-TAX-DUE PIC zzZ,ZZZ,ZZ9.99. DTSBR320 00281 10 FILLER PIC X(01) VALUE SPACE. DTSBR320 00282 10 pen-paid-amt PIC zzZ,ZZZ,ZZ9.99. DTSBR320 00283 10 FILLER PIC X(01) VALUE SPACES. DTSBR320 00284 10 pen-PEN-CHARGED-AMT PIC Z,ZZZ,ZZ9.99. DTSBR320 00285 10 FILLER PIC X(01) VALUE SPACES. DTSBR320 00286 10 pen-INT-CHARGED-AMT PIC Z,ZZZ,ZZ9.99. DTSBR320 00287 10 FILLER PIC X(03) VALUE SPACES. DTSBR320 00288 10 pen-TOTAL-DUE PIC zzZ,ZZZ,ZZ9.99. DTSBR320 00289 05 mis-LINE-1. DTSBR320 00290 10 FILLER PIC X(04) VALUE SPACES. DTSBR320 00291 10 mis-emp-no PIC 999b999. DTSBR320 00292 10 FILLER PIC X(01) VALUE SPACES. CL**3 00293 10 mis-emp-type PIC X(01) VALUE SPACES. CL**3 00294 10 FILLER PIC X(02) VALUE SPACES. CL**3 00295 10 mis-emp-name PIC X(36). DTSBR320 00296 10 FILLER PIC X(04) VALUE SPACES. DTSBR320 00297 10 mis-rpt-DUE PIC x(10) value spaces. DTSBR320 00298 10 FILLER PIC X(01) VALUE SPACE. DTSBR320 00299 10 mis-PEN-CHg-amt PIC Z,ZZZ,ZZ9.99. DTSBR320 00300 EJECT DTSBR320 00301 01 PAGE-HEADING. DTSBR320 00302 05 HDR1-LINE-1. DTSBR320 00303 10 FILLER PIC X(01) VALUE SPACE. DTSBR320 00304 10 FILLER PIC X(49) DTSBR320 00305 VALUE '320R1'. DTSBR320 00306 10 filler PIC X(60) DTSBR320 00307 VALUE 'DISTRICT OF COLUMBIA'. DTSBR320 00308 10 FILLER PIC X(05) DTSBR320 00309 VALUE 'DATE:'. DTSBR320 00310 10 FILLER PIC X(01) VALUE SPACE. DTSBR320 00311 10 HDR1-SYS-DATE PIC X(08). DTSBR320 00312 05 HDR1-LINE-2. DTSBR320 00313 10 FILLER PIC X(54) VALUE SPACES. DTSBR320 00314 10 FILLER PIC X(56) VALUE DTSBR320 00315 'TAX DIVISION'. DTSBR320 00316 10 FILLER PIC X(05) DTSBR320 00317 VALUE 'TIME:'. DTSBR320 00318 10 FILLER PIC X(01) VALUE SPACE. DTSBR320 00319 10 HDR1-SYS-TIME PIC X(08). DTSBR320 00320 05 HDR1-LINE-3. DTSBR320 00321 10 FILLER PIC X(01) VALUE SPACE. DTSBR320 00322 10 FILLER PIC X(27) DTSBR320 00323 VALUE 'ROUTE TO: ENFORCEMENT UNIT'. DTSBR320 00324 10 FILLER PIC X(90) VALUE SPACES. DTSBR320 00325 10 FILLER PIC X(05) DTSBR320 00326 VALUE 'PAGE:'. DTSBR320 00327 10 FILLER PIC X(03) VALUE SPACES. DTSBR320 00328 10 HDR1-PAGE-CNT PIC ZZ,ZZ9. DTSBR320 00329 05 HDR1-LINE-4p. DTSBR320 00330 10 FILLER PIC X(47) VALUE SPACES. DTSBR320 00331 10 FILLER PIC X(43) DTSBR320 00332 VALUE 'penalty assessment report '. DTSBR320 00333 05 HDR1-LINE-4m. DTSBR320 00334 10 FILLER PIC X(44) VALUE SPACES. DTSBR320 00335 10 FILLER PIC X(43) DTSBR320 00336 VALUE ' missing reports listing '. DTSBR320 00337 * 05 HDR1-LINE-5 PIC X(133) VALUE SPACES. DTSBR320 00338 05 HDR1-LINE-6. DTSBR320 00339 10 FILLER PIC X(01) VALUE SPACE. DTSBR320 00340 10 FILLER PIC X(12) DTSBR320 00341 VALUE 'SUBJECT YRQ:'. DTSBR320 00342 10 FILLER PIC X(01) VALUE SPACE. DTSBR320 00343 10 WRK-SUBJECT-SLASH-QTR PIC X(06). DTSBR320 00344 05 HDR1-LINE-7 PIC X(133) VALUE SPACES. DTSBR320 00345 * 05 HDR1-LINE-8. DTSBR320 00346 * 10 FILLER PIC X(09) VALUE SPACES. DTSBR320 00347 * 10 FILLER PIC X(08) DTSBR320 00348 * VALUE 'SUBJ YRQ'. DTSBR320 00349 * 10 FILLER PIC X(48) VALUE SPACES. DTSBR320 00350 * 10 FILLER PIC X(07) DTSBR320 00351 * VALUE 'SENT TO'. DTSBR320 00352 05 HDR1-LINE-9m. DTSBR320 00353 10 FILLER PIC X(01) VALUE SPACE. DTSBR320 00354 10 FILLER PIC X(06) DTSBR320 00355 VALUE 'EMP NO'. DTSBR320 00356 10 FILLER PIC X(06) VALUE SPACE. DTSBR320 00357 10 FILLER PIC X(07) DTSBR320 00358 VALUE 'name '. DTSBR320 00359 10 FILLER PIC X(36) VALUE SPACE. DTSBR320 00360 10 FILLER PIC X(10) DTSBR320 00361 VALUE 'due date'. DTSBR320 00362 10 FILLER PIC X(15) DTSBR320 00363 VALUE 'penalty amt'. DTSBR320 00364 DTSBR320 00365 05 HDR1-LINE-9p. DTSBR320 00366 10 FILLER PIC X(01) VALUE SPACE. DTSBR320 00367 10 FILLER PIC X(06) DTSBR320 00368 VALUE 'EMP NO'. DTSBR320 00369 10 FILLER PIC X(06) VALUE SPACE. DTSBR320 00370 10 FILLER PIC X(07) DTSBR320 00371 VALUE 'name '. DTSBR320 00372 10 FILLER PIC X(42) VALUE SPACE. DTSBR320 00373 10 FILLER PIC X(08) DTSBR320 00374 VALUE 'tax due'. DTSBR320 00375 10 FILLER PIC X(06) VALUE SPACE. DTSBR320 00376 10 FILLER PIC X(14) DTSBR320 00377 VALUE 'tax paid '. DTSBR320 00378 10 FILLER PIC X(15) DTSBR320 00379 VALUE 'penalty '. DTSBR320 00380 10 FILLER PIC X(12) DTSBR320 00381 VALUE 'interest '. DTSBR320 00382 10 FILLER PIC X(12) DTSBR320 00383 VALUE 'total due '. DTSBR320 00384 01 missing-FOOTING-FINAL. DTSBR320 00385 05 mis-LINE-3. DTSBR320 00386 10 FILLER PIC X(15) VALUE SPACES. DTSBR320 00387 10 mis-REC-CNT PIC ZZ,ZZ9. DTSBR320 00388 10 FILLER PIC X(01) VALUE SPACE. DTSBR320 00389 10 FILLER PIC X(40) DTSBR320 00390 VALUE 'EMPLOYERS WITH MISSING reports '. DTSBR320 00391 01 penalty-FOOTING-FINAL. DTSBR320 00392 05 pen-LINE-3. DTSBR320 00393 10 FILLER PIC X(15) VALUE SPACES. DTSBR320 00394 10 pen-REC-CNT PIC ZZ,ZZ9. DTSBR320 00395 10 FILLER PIC X(01) VALUE SPACE. DTSBR320 00396 10 FILLER PIC X(40) DTSBR320 00397 VALUE 'EMPLOYERS received penalty for non/full '. DTSBR320 00398 10 FILLER PIC X(11) DTSBR320 00399 VALUE 'payment '. DTSBR320 00400 EJECT DTSBR320 00401 05 cred-LINE. DTSBR320 00402 10 FILLER PIC X(10) VALUE SPACES. DTSBR320 00403 10 FILLER PIC X(01) VALUE SPACE. DTSBR320 00404 10 FILLER PIC X(39) DTSBR320 00405 VALUE '**** Your available credit was applied '. DTSBR320 00406 10 FILLER PIC X(39) DTSBR320 00407 VALUE 'to the TOTAL AMOUNT DUE **** '. DTSBR320 00408 EJECT DTSBR320 00409 01 L101-LINK-AREA. DTSBR320 00410 ++INCLUDE DTSIL101 DTSBR320 00411 01 MQTR-REC. DTSBR320 00412 ++INCLUDE DTSIMQTR DTSBR320 00413 EJECT DTSBR320 00414 *RW1 DTSBR320 00415 DTSBR320 00416 01 L910-LINK-AREA. DTSBR320 00417 ++INCLUDE DTSIL910 DTSBR320 00418 DTSBR320 00419 01 MSKL-REC. DTSBR320 00420 ++INCLUDE DTSIMSKL DTSBR320 00421 DTSBR320 00422 01 CONVERT-BARCODE-LINE. DTSBR320 00423 05 BARC-EMP-NO PIC 9(06) VALUE ZEROS. DTSBR320 00424 DTSBR320 00425 01 WS-BARC-LINE. DTSBR320 00426 05 FILLER PIC X(40) VALUE SPACES. DTSBR320 00427 05 CONVERTED-BARCODE PIC X(50). DTSBR320 00428 05 FILLER PIC X(30) VALUE SPACES. DTSBR320 00429 DTSBR320 00430 01 BARI-LINK-AREA. DTSBR320 00431 ++INCLUDE BARIL599 DTSBR320 00432 SKIP3 DTSBR320 00433 *RW2 DTSBR320 00434 LINKAGE SECTION. DTSBR320 00435 SKIP3 DTSBR320 00436 01 LRCM-LINK-AREA. DTSBR320 00437 ++INCLUDE DTSILRCM DTSBR320 00438 01 R320-REC. DTSBR320 00439 ++INCLUDE DTSIR320 DTSBR320 00440 PROCEDURE DIVISION USING LRCM-LINK-AREA DTSBR320 00441 R320-REC. DTSBR320 00442 SKIP2 DTSBR320 00443 IF FIRST-TIME-IND = 'Y' DTSBR320 00444 PERFORM I1000-INITIATE THRU I1000-EXIT DTSBR320 00445 MOVE 'N' TO FIRST-TIME-IND. DTSBR320 00446 SKIP1 DTSBR320 00447 IF LRCM-EOR-88 DTSBR320 00448 PERFORM T1000-TERMINATE THRU T1000-EXIT DTSBR320 00449 ELSE DTSBR320 00450 PERFORM P1000-PROCESS THRU P1000-EXIT. DTSBR320 00451 SKIP2 DTSBR320 00452 GOBACK. DTSBR320 00453 EJECT DTSBR320 00454 I1000-INITIATE. DTSBR320 00455 DTSBR320 00456 OPEN OUTPUT PRT-FILE prt-file2 DTSBR320 00457 pen-FILE mis-file. DTSBR320 00458 DTSBR320 00459 OPEN INPUT EMP-RPT-FILE. DTSBR320 00460 DTSBR320 00461 perform I4000-TRANS-ICESA thru i4000-exit. DTSBR320 00462 DTSBR320 00463 MOVE SPACES TO XEROX-REPORT xerox-report2. DTSBR320 00464 DTSBR320 00465 WRITE XEROX-REPORT FROM VSCA-LINE DTSBR320 00466 AFTER ADVANCING TOP-OF-PAGE. DTSBR320 00467 WRITE XEROX-REPORT FROM VSCA-LINE AFTER ADVANCING 11. DTSBR320 00468 WRITE XEROX-REPORT FROM ROUTE-INFO-LINE13 DTSBR320 00469 WRITE XEROX-REPORT FROM ROUTE-INFO-LINE14. DTSBR320 00470 WRITE XEROX-REPORT FROM ROUTE-INFO-LINE15. DTSBR320 00471 WRITE XEROX-REPORT FROM ROUTE-INFO-LINE16. DTSBR320 00472 WRITE XEROX-REPORT FROM ROUTE-INFO-LINE17. DTSBR320 00473 * WRITE XEROX-REPORT FROM XEROX-CNTL-LINE18 DTSBR320 00474 * WRITE XEROX-REPORT FROM XEROX-CNTL-LINE19. DTSBR320 00475 * WRITE XEROX-REPORT FROM XEROX-CNTL-LINE20. DTSBR320 00476 DTSBR320 00477 WRITE XEROX-REPORT2 FROM VSCA-LINE DTSBR320 00478 AFTER ADVANCING TOP-OF-PAGE. DTSBR320 00479 WRITE XEROX-REPORT2 FROM VSCA-LINE AFTER ADVANCING 11. DTSBR320 00480 WRITE XEROX-REPORT2 FROM ROUTE-INFO-LINE13 DTSBR320 00481 WRITE XEROX-REPORT2 FROM ROUTE-INFO-LINE14. DTSBR320 00482 WRITE XEROX-REPORT2 FROM ROUTE-INFO-LINE15. DTSBR320 00483 WRITE XEROX-REPORT2 FROM ROUTE-INFO-LINE16. DTSBR320 00484 * WRITE XEROX-REPORT FROM ROUTE-INFO-LINE17. DTSBR320 00485 DTSBR320 00486 MOVE LOW-VALUES TO MQTR-KEY-AREA. CL*17 00487 SET MQTR-QTR-88 TO TRUE. CL*17 00488 MOVE MQTR-KEY-AREA TO MSKL-KEY-AREA. CL*17 00489 * PERFORM S910-OPEN THRU S910-EXIT. CL*18 00490 DTSBR320 00491 SKIP2 DTSBR320 00492 I1000-EXIT. DTSBR320 00493 EXIT. DTSBR320 00494 EJECT DTSBR320 00495 I4000-TRANS-ICESA. DTSBR320 00496 READ EMP-RPT-FILE INTO W-EMP-RPT-REC AT END DTSBR320 00497 GO TO I4000-EXIT. DTSBR320 00498 MOVE X212-EMP-NBR TO WRK-EMP-NO DTSBR320 00499 * MOVE X212-QTR TO WRK-ICESA-YRQ DTSBR320 00500 * MOVE '2014/4' TO WRK-ICESA-YRQ DTSBR320 00501 * MOVE WRK-ICESA-CCYY TO WRK-RPT-CCYY DTSBR320 00502 * MOVE WRK-ICESA-QTR TO WRK-RPT-QTR DTSBR320 00503 DTSBR320 00504 * MOVE WRK-RPT-WS TO WRK-RPT-YRQ. DTSBR320 00505 DTSBR320 00506 * IF WRK-RPT-YRQ = WRK-PARM-SUBJECT-YRQ DTSBR320 00507 SET TF-RPT-FOUND-YES-88 (WRK-EMP-NO) TO TRUE. DTSBR320 00508 * ADD +1 TO WRK-TF-TABLE-CNT DTSBR320 00509 DISPLAY 'emp-loaded in table: ' WRK-EMP-NO. DTSBR320 00510 DTSBR320 00511 GO TO I4000-TRANS-ICESA. DTSBR320 00512 I4000-EXIT. DTSBR320 00513 EXIT. DTSBR320 00514 P1000-PROCESS. DTSBR320 00515 DISPLAY 'r320 emp : ' r320-EMP-NO. DTSBR320 00516 MOVE r320-EMP-NO TO WRK-EMP-NO DTSBR320 00517 IF TF-RPT-FOUND-YES-88 (WRK-EMP-NO) DTSBR320 00518 SET TF-BYPASSED-YES-88 (WRK-EMP-NO) TO TRUE DTSBR320 00519 DISPLAY 'TBL EMP BYPASSED: ' wrk-EMP-NO DTSBR320 00520 * ADD +1 TO WRK-BYPASS-CNT DTSBR320 00521 GO TO P1000-EXIT. DTSBR320 00522 DTSBR320 00523 if R320-GENERATE-MISS-RPT-LTR-88 DTSBR320 00524 perform p8000-generate-missing-letter thru p8000-exit DTSBR320 00525 go to p1000-exit. DTSBR320 00526 DTSBR320 00527 * if R320-si-filing-88 DTSBR320 00528 * display ' si skipped ' r320-emp-no DTSBR320 00529 * go to p1000-exit. DTSBR320 00530 DTSBR320 00531 set ws-credit-used-no-88 to true. DTSBR320 00532 MOVE ZERO TO WRK-MQTR-BAL DTSBR320 00533 ws-paid-amt DTSBR320 00534 wrk-paid-amt DTSBR320 00535 WS-TAX-DUE. DTSBR320 00536 ADD 1 TO TOT-PEN-CNT. DTSBR320 00537 DTSBR320 00538 MOVE R320-EMP-NO TO ws-emp-no. DTSBR320 00539 DTSBR320 00540 MOVE R320-YRQ TO L004-QTR-5-9. DTSBR320 00541 DTSBR320 00542 SET L004-FROM-5 TO TRUE. DTSBR320 00543 PERFORM S004-FROM-QTR THRU S004-EXIT. DTSBR320 00544 move l004-slash-5-qtr to ws-yrq. DTSBR320 00545 DTSBR320 00546 * DISPLAY ' YRQ ' L004-QTR-5-9. DTSBR320 00547 PERFORM P1100-CHECK-BALANCE-DUE THRU P1100-EXIT. DTSBR320 00548 DTSBR320 00549 MOVE R320-MAIL-DATE TO L001-FED-8-DATE-9. CL*30 00550 * MOVE 20190820 TO L001-FED-8-DATE-9. CL*30 00551 SET L001-FROM-FED-8 TO TRUE. DTSBR320 00552 PERFORM S001-DATE THRU S001-EXIT. DTSBR320 00553 MOVE L001-SLASH-8-DATE TO WS-mail-DATE. DTSBR320 00554 DTSBR320 00555 MOVE R320-tax-due-DATE TO L001-FED-8-DATE-9. DTSBR320 00556 SET L001-FROM-FED-8 TO TRUE. DTSBR320 00557 PERFORM S001-DATE THRU S001-EXIT. DTSBR320 00558 MOVE L001-SLASH-8-DATE TO WS-payment-DATE. DTSBR320 00559 DTSBR320 00560 * ADD R320-SUR-TAX-CHARGED-AMT TO WS-TAX-DUE DTSBR320 00561 move R320-UI-TAX-CHARGED-AMT TO WS-TAX-DUE. DTSBR320 00562 DTSBR320 00563 * IF R320-UI-TAX-CHARGED-AMT < 15.00 DTSBR320 00564 * DISPLAY 'tolr ' MQTR-EMP-NO ' ' MQTR-YRQ ' ' WS-RPA-TAX-DUE DTSBR320 00565 * ' ' WS-PAID-AMT ' ' WS-PEN-CHARGED-AMT DTSBR320 00566 * ' ' WS-INT-CHARGED-AMT ' ' WS-TOTAL-DUE DTSBR320 00567 * ADD 1 TO TOL-CNT. DTSBR320 00568 DTSBR320 00569 DTSBR320 00570 IF WRK-MQTR-BAL = 0 DTSBR320 00571 set ws-credit-used-yes-88 to true DTSBR320 00572 display 'credit applied balance due = 0 ' mqtr-emp-no DTSBR320 00573 ADD 1 TO CREDIT-CNT. DTSBR320 00574 DTSBR320 00575 * if wrk-paid-amt < r320-ui-tax-charged-amt DTSBR320 00576 * next sentence DTSBR320 00577 * else DTSBR320 00578 * DISPLAY 'npen ' MQTR-EMP-NO ' ' MQTR-YRQ ' ' WS-RPA-TAX-DUE DTSBR320 00579 * ' ' WS-PAID-AMT ' ' WS-PEN-CHARGED-AMT DTSBR320 00580 * ' ' WS-INT-CHARGED-AMT ' ' WS-TOTAL-DUE DTSBR320 00581 * go to P1000-EXIT. DTSBR320 00582 DTSBR320 00583 if mqtr-emp-no = 011425 CL**9 00584 display 'paid ' wrk-paid-amt. CL**9 00585 CL**9 00586 MOVE WS-TAX-DUE TO WS-RPA-TAX-DUE. DTSBR320 00587 move wrk-paid-amt to ws-paid-amt. DTSBR320 00588 MOVE R320-PEN-CHARGED-AMT TO WS-PEN-CHARGED-AMT. DTSBR320 00589 MOVE R320-INT-CHARGED-AMT TO WS-INT-CHARGED-AMT. DTSBR320 00590 add R320-INT-CHARGED-AMT TO WS-TAX-DUE DTSBR320 00591 add R320-pen-CHARGED-AMT TO WS-TAX-DUE DTSBR320 00592 subtract wrk-paid-amt from ws-tax-due. DTSBR320 00593 MOVE WS-TAX-DUE TO WS-TOTAL-DUE. DTSBR320 00594 IF WRK-MQTR-BAL = 0 DTSBR320 00595 MOVE 0.00 TO WS-TOTAL-DUE. DTSBR320 00596 PERFORM P2000-PRINT-HEADER THRU P2000-EXIT. DTSBR320 00597 PERFORM P4000-PRINT-DATA THRU P4000-EXIT. DTSBR320 00598 PERFORM P6000-SELF-MAILER-RTN THRU P6000-EXIT. DTSBR320 00599 DISPLAY 'pen ' MQTR-EMP-NO ' ' MQTR-YRQ ' ' WS-RPA-TAX-DUE DTSBR320 00600 ' ' WS-PAID-AMT ' ' WS-PEN-CHARGED-AMT DTSBR320 00601 ' ' WS-INT-CHARGED-AMT ' ' WS-TOTAL-DUE. DTSBR320 00602 perform P9200-PRINT-pen-rpt thru p9200-exit. DTSBR320 00603 SKIP1 DTSBR320 00604 P1000-EXIT. DTSBR320 00605 EXIT. DTSBR320 00606 DTSBR320 00607 P1100-CHECK-BALANCE-DUE. DTSBR320 00608 DTSBR320 00609 MOVE LOW-VALUES TO MQTR-KEY-AREA. DTSBR320 00610 MOVE R320-EMP-NO TO MQTR-EMP-NO. DTSBR320 00611 SET MQTR-QTR-88 TO TRUE. DTSBR320 00612 MOVE L004-QTR-5-9 TO MQTR-YRQ. DTSBR320 00613 MOVE MQTR-KEY-AREA TO MSKL-KEY-AREA. DTSBR320 00614 PERFORM S910-read THRU S910-EXIT. CL*17 00615 DTSBR320 00616 IF L910-OK-88 DTSBR320 00617 MOVE MSKL-REC TO MQTR-REC DTSBR320 00618 * MOVE 4 TO mqtr-acct-cnt DTSBR320 00619 PERFORM DTSBR320 00620 VARYING MQTR-ACCT-IDX FROM +1 BY +1 DTSBR320 00621 UNTIL MQTR-ACCT-IDX > MQTR-ACCT-CNT DTSBR320 00622 IF MQTR-ACCT-UI-88 (MQTR-ACCT-IDX) DTSBR320 00623 ADD MQTR-BALANCE-AMT (MQTR-ACCT-IDX) DTSBR320 00624 TO WRK-MQTR-BAL DTSBR320 00625 * display 'ui amt ' MQTR-BALANCE-AMT (MQTR-ACCT-IDX) DTSBR320 00626 ADD MQTR-paid-AMT (MQTR-ACCT-IDX) DTSBR320 00627 TO WRK-paid-amt DTSBR320 00628 * display 'ui paid ' MQTR-paid-AMT (MQTR-ACCT-IDX) DTSBR320 00629 END-IF DTSBR320 00630 DTSBR320 00631 if mqtr-emp-no = 011425 CL*16 00632 display 'ui pd amt ' wrk-paid-AMT CL*19 00633 END-IF CL*16 00634 CL*16 00635 IF MQTR-ACCT-SUR-88 (MQTR-ACCT-IDX) DTSBR320 00636 if r320-rated-filing-88 CL*21 00637 ADD MQTR-BALANCE-AMT (MQTR-ACCT-IDX) DTSBR320 00638 TO WRK-MQTR-BAL DTSBR320 00639 * display 'si amt ' MQTR-BALANCE-AMT (MQTR-ACCT-IDX)DTSBR320 00640 ADD MQTR-paid-AMT (MQTR-ACCT-IDX) DTSBR320 00641 TO WRK-paid-amt DTSBR320 00642 * display 'si paid ' MQTR-paid-AMT (MQTR-ACCT-IDX) DTSBR320 00643 end-if CL*21 00644 end-if DTSBR320 00645 DTSBR320 00646 if mqtr-emp-no = 011425 CL*11 00647 display '** emp- ' mqtr-emp-no ' ' CL*19 00648 ' su amt ' MQTR-paid-AMT (MQTR-ACCT-IDX) CL*19 00649 ' pd amt ' wrk-paid-AMT CL*19 00650 END-IF CL*13 00651 CL*11 00652 IF MQTR-ACCT-INT-88 (MQTR-ACCT-IDX) DTSBR320 00653 ADD MQTR-BALANCE-AMT (MQTR-ACCT-IDX) DTSBR320 00654 TO WRK-MQTR-BAL DTSBR320 00655 * display 'int amt ' MQTR-BALANCE-AMT (MQTR-ACCT-IDX)DTSBR320 00656 ADD MQTR-paid-AMT (MQTR-ACCT-IDX) DTSBR320 00657 TO WRK-paid-amt DTSBR320 00658 * display 'int paid ' MQTR-paid-AMT (MQTR-ACCT-IDX) DTSBR320 00659 END-IF DTSBR320 00660 DTSBR320 00661 IF MQTR-ACCT-LATE-PEN-88 (MQTR-ACCT-IDX) DTSBR320 00662 ADD MQTR-BALANCE-AMT (MQTR-ACCT-IDX) DTSBR320 00663 TO WRK-MQTR-BAL DTSBR320 00664 * display 'pen amt ' MQTR-BALANCE-AMT (MQTR-ACCT-IDX)DTSBR320 00665 ADD MQTR-paid-AMT (MQTR-ACCT-IDX) DTSBR320 00666 TO WRK-paid-amt DTSBR320 00667 * display 'pen paid ' MQTR-paid-AMT (MQTR-ACCT-IDX) DTSBR320 00668 END-IF DTSBR320 00669 END-PERFORM DTSBR320 00670 END-IF. DTSBR320 00671 P1100-EXIT. DTSBR320 00672 EXIT. DTSBR320 00673 DTSBR320 00674 P2000-PRINT-HEADER. DTSBR320 00675 DTSBR320 00676 MOVE R320-EMP-NO TO BARC-EMP-NO. DTSBR320 00677 PERFORM S599-BARCODE THRU S599-EXIT. DTSBR320 00678 DTSBR320 00679 IF L599-SETB-FONT1 DTSBR320 00680 MOVE 'MODIFY=TAXSM1,' TO CNTL1-CME DTSBR320 00681 ELSE DTSBR320 00682 IF L599-SETB-FONT2 DTSBR320 00683 MOVE 'MODIFY=TAXSM2,' TO CNTL1-CME DTSBR320 00684 ELSE DTSBR320 00685 MOVE 'MODIFY=TAXSM1,' TO CNTL1-CME. DTSBR320 00686 DTSBR320 00687 move 'JDE=T320R1,' to cntl1-jde. DTSBR320 00688 WRITE XEROX-REPORT FROM XEROX-CNTL-LINE18 DTSBR320 00689 AFTER ADVANCING TOP-OF-PAGE. DTSBR320 00690 WRITE XEROX-REPORT FROM XEROX-CNTL-LINE19. DTSBR320 00691 WRITE XEROX-REPORT FROM XEROX-CNTL-LINE20. DTSBR320 00692 DTSBR320 00693 MOVE R320-FMT-LINE (1) TO WS-FMT-LINE-1. DTSBR320 00694 MOVE R320-FMT-LINE (2) TO WS-FMT-LINE-2. DTSBR320 00695 MOVE R320-FMT-LINE (3) TO WS-FMT-LINE-3. DTSBR320 00696 MOVE R320-FMT-LINE (4) TO WS-FMT-LINE-4. DTSBR320 00697 MOVE R320-FMT-LINE (5) TO WS-FMT-LINE-5. DTSBR320 00698 MOVE R320-EMP-NO TO WS-EMP-NO. DTSBR320 00699 * WRITE XEROX-REPORT FROM VSCA-LINE AFTER ADVANCING TOP-OF-PAGEDTSBR320 00700 * WRITE XEROX-REPORT FROM VSCA-LINE AFTER ADVANCING 6 LINE. DTSBR320 00701 WRITE XEROX-REPORT FROM VSCA-LINE AFTER ADVANCING 9 LINE. DTSBR320 00702 WRITE XEROX-REPORT FROM LTH-LINE-1 AFTER ADVANCING 1 LINE. DTSBR320 00703 WRITE XEROX-REPORT FROM LTH-LINE-2 AFTER ADVANCING 1 LINE. DTSBR320 00704 WRITE XEROX-REPORT FROM LTH-LINE-3 AFTER ADVANCING 1 LINE. DTSBR320 00705 WRITE XEROX-REPORT FROM LTH-LINE-4 AFTER ADVANCING 1 LINE. DTSBR320 00706 WRITE XEROX-REPORT FROM LTH-LINE-5 AFTER ADVANCING 1 LINE. DTSBR320 00707 DTSBR320 00708 P2000-EXIT. DTSBR320 00709 EXIT. DTSBR320 00710 DTSBR320 00711 P4000-PRINT-DATA. DTSBR320 00712 if ws-credit-used-yes-88 DTSBR320 00713 * WRITE XEROX-REPORT FROM cred-line AFTER ADVANCING 5 LINE CL*22 00714 WRITE XEROX-REPORT FROM RPT-LINE-1 AFTER ADVANCING 14 LINE CL*33 00715 else DTSBR320 00716 WRITE XEROX-REPORT FROM RPT-LINE-1 AFTER ADVANCING 14 LINE. CL*33 00717 DTSBR320 00718 P4000-EXIT. DTSBR320 00719 EXIT. DTSBR320 00720 DTSBR320 00721 DTSBR320 00722 P6000-SELF-MAILER-RTN. DTSBR320 00723 MOVE R320-FMT-LINE (1) TO WS-ADDR-FMT-LINE-1. DTSBR320 00724 MOVE R320-FMT-LINE (2) TO WS-ADDR-FMT-LINE-2. DTSBR320 00725 MOVE R320-FMT-LINE (3) TO WS-ADDR-FMT-LINE-3. DTSBR320 00726 MOVE R320-FMT-LINE (4) TO WS-ADDR-FMT-LINE-4. DTSBR320 00727 MOVE R320-FMT-LINE (5) TO WS-ADDR-FMT-LINE-5. DTSBR320 00728 PERFORM P7000-PRINT-VSCA-ADDR THRU P7000-EXIT. DTSBR320 00729 P6000-EXIT. DTSBR320 00730 EXIT. DTSBR320 00731 DTSBR320 00732 P7000-PRINT-VSCA-ADDR. DTSBR320 00733 *RW1 DTSBR320 00734 MOVE L599-BARCODED-DATA TO CONVERTED-BARCODE. DTSBR320 00735 DTSBR320 00736 MOVE SPACES TO WS-REC. DTSBR320 00737 WRITE XEROX-REPORT FROM WS-REC DTSBR320 00738 AFTER ADVANCING TOP-OF-PAGE. DTSBR320 00739 DTSBR320 00740 WRITE XEROX-REPORT FROM WS-BARC-LINE AFTER 04. DTSBR320 00741 DTSBR320 00742 * WRITE XEROX-REPORT FROM VSCA-LINE DTSBR320 00743 * AFTER ADVANCING TOP-OF-PAGE. DTSBR320 00744 * WRITE XEROX-REPORT FROM VSCA-LINE AFTER ADVANCING 13 LINE. DTSBR320 00745 WRITE XEROX-REPORT FROM VSCA-LINE AFTER ADVANCING 9 LINE. DTSBR320 00746 *RW2 DTSBR320 00747 WRITE XEROX-REPORT FROM VSCA-ADDR-LINE-15 DTSBR320 00748 AFTER ADVANCING 1 LINE. DTSBR320 00749 WRITE XEROX-REPORT FROM VSCA-ADDR-LINE-16 DTSBR320 00750 AFTER ADVANCING 1 LINE. DTSBR320 00751 WRITE XEROX-REPORT FROM VSCA-ADDR-LINE-17 DTSBR320 00752 AFTER ADVANCING 1 LINE. DTSBR320 00753 WRITE XEROX-REPORT FROM VSCA-ADDR-LINE-18 DTSBR320 00754 AFTER ADVANCING 1 LINE. DTSBR320 00755 WRITE XEROX-REPORT FROM VSCA-ADDR-LINE-19 DTSBR320 00756 AFTER ADVANCING 1 LINE. DTSBR320 00757 WRITE XEROX-REPORT FROM VSCA-ADDR-LINE-20 DTSBR320 00758 AFTER ADVANCING 1 LINE. DTSBR320 00759 DTSBR320 00760 P7000-EXIT. DTSBR320 00761 EXIT. DTSBR320 00762 DTSBR320 00763 P8000-generate-missing-letter. DTSBR320 00764 ADD 1 TO TOT-MIS-CNT. DTSBR320 00765 MOVE R320-MAIL-DATE TO L002-DATE. CL*31 00766 * MOVE 20190820 TO L002-DATE. CL*32 00767 PERFORM S002-MIXED-CASE THRU S002-EXIT. DTSBR320 00768 DTSBR320 00769 COMPUTE WS-START-POS = (18 - L002-LONG-TEXT-CNT) / 2. DTSBR320 00770 DTSBR320 00771 ADD +1 TO WS-START-POS. DTSBR320 00772 DTSBR320 00773 IF (WS-START-POS > +0) DTSBR320 00774 AND DTSBR320 00775 (WS-START-POS < +18) DTSBR320 00776 MOVE SPACES TO WS-LONG-TEXT-MAIL-DATE DTSBR320 00777 MOVE L002-LONG-TEXT-AREA DTSBR320 00778 TO WS-LONG-TEXT-MAIL-DATE (WS-START-POS:) DTSBR320 00779 ELSE DTSBR320 00780 MOVE L002-LONG-TEXT-AREA TO WS-LONG-TEXT-MAIL-DATE. DTSBR320 00781 DTSBR320 00782 * MOVE R417-TOTAL-RATE TO L056-RATE. DTSBR320 00783 * PERFORM S056-DISP1-LEFT-PCT THRU S056-EXIT. DTSBR320 00784 * MOVE L056-DISP-RATE TO WS-DISP-RATE. DTSBR320 00785 DTSBR320 00786 MOVE R320-YRQ TO L008-YRQ. DTSBR320 00787 PERFORM S008-UPPER-CASE THRU S008-EXIT. DTSBR320 00788 MOVE L008-SHORT-MONTHS TO WS-UC-SHORT-MONTHS. DTSBR320 00789 DTSBR320 00790 PERFORM S008-MIXED-CASE THRU S008-EXIT. DTSBR320 00791 MOVE L008-SHORT-DSCR TO DTL-UC-SHORT-QTR-3. DTSBR320 00792 DTSBR320 00793 MOVE L008-YEAR (3:2) TO WS-SHORT-YEAR. DTSBR320 00794 DTSBR320 00795 MOVE L008-YEAR TO WS-LONG-YEAR DTL-LONG-YEAR3. DTSBR320 00796 DTSBR320 00797 SET L004-FROM-5 TO TRUE. DTSBR320 00798 MOVE R320-YRQ TO WS-YRQ-UNPACK. DTSBR320 00799 MOVE WS-YRQ-UNPACK TO L004-QTR-5-AREA. DTSBR320 00800 PERFORM S004-FROM-5 THRU S004-EXIT. DTSBR320 00801 MOVE L004-QTR-END-DATE TO L002-DATE. DTSBR320 00802 DTSBR320 00803 * MOVE l002-date TO L001-FED-8-DATE-9. DTSBR320 00804 MOVE R320-tax-DUE-DATE TO L001-FED-8-DATE-9. DTSBR320 00805 PERFORM S001-FROM-FED-8 THRU S001-EXIT. DTSBR320 00806 MOVE L001-SLASH-8-DATE TO WS-SLASH-DUE-DATE. DTSBR320 00807 DTSBR320 00808 MOVE L004-QTR-default-due-DATE TO L002-DATE. DTSBR320 00809 PERFORM S002-MIXED-CASE THRU S002-EXIT. DTSBR320 00810 * MOVE L002-LONG-TEXT-AREA TO WS-LONG-TEXT-DUE-DATE. DTSBR320 00811 DTSBR320 00812 PERFORM P9500-PRINT-HEADER THRU P9500-EXIT. DTSBR320 00813 DTSBR320 00814 MOVE +130 TO L090-DESIRED-LINE-LIMIT. DTSBR320 00815 MOVE +3 TO L090-PHRASE-CNT. DTSBR320 00816 MOVE MC-LIT-WAS-DUE-BY TO L090-PHRASE (1). DTSBR320 00817 MOVE SPACE TO L090-PHRASE-OVERSTRIKE-IND (1). DTSBR320 00818 * MOVE WS-LONG-TEXT-DUE-DATE TO L090-PHRASE (2). DTSBR320 00819 * MOVE SPACE TO L090-PHRASE-OVERSTRIKE-IND (2). DTSBR320 00820 MOVE SPACES TO L090-PHRASE (2). DTSBR320 00821 STRING L002-LONG-TEXT-AREA DELIMITED BY ' ' DTSBR320 00822 '.' DELIMITED BY SIZE DTSBR320 00823 INTO L090-PHRASE (2). DTSBR320 00824 MOVE SPACES TO L090-PHRASE-OVERSTRIKE-IND (2). DTSBR320 00825 MOVE MC-LIT-IS-NOW-DEL TO L090-PHRASE (3). DTSBR320 00826 MOVE SPACES TO L090-PHRASE-OVERSTRIKE-IND (3). DTSBR320 00827 PERFORM S090-PARAGRAPH-FORMAT THRU S090-EXIT. DTSBR320 00828 * DISPLAY 'L90 ' L090-PARAGRAPH-LINE-CNT DTSBR320 00829 IF (L090-UNSUCCESSFUL-88) DTSBR320 00830 OR DTSBR320 00831 (L090-PARAGRAPH-LINE-CNT NOT = +1) DTSBR320 00832 MOVE 'LOGIC ERROR P1000-1' TO ABEND-MSG DTSBR320 00833 PERFORM S999-ABEND THRU S999-EXIT. DTSBR320 00834 MOVE L090-PARAGRAPH-LINE (1) TO WS-TEXT-LINE-1. DTSBR320 00835 DTSBR320 00836 * MOVE +130 TO L090-DESIRED-LINE-LIMIT. DTSBR320 00837 * MOVE +3 TO L090-PHRASE-CNT. DTSBR320 00838 * MOVE MC-LIT-NOTICE-TO-US TO L090-PHRASE (1). DTSBR320 00839 * MOVE SPACES TO L090-PHRASE-OVERSTRIKE-IND (1). DTSBR320 00840 * SET L004-FROM-5 TO TRUE. DTSBR320 00841 * MOVE R320-YRQ TO WS-YRQ-UNPACK. DTSBR320 00842 * MOVE WS-YRQ-UNPACK TO L004-QTR-5-AREA. DTSBR320 00843 * PERFORM S004-FROM-5 THRU S004-EXIT. DTSBR320 00844 * MOVE L004-QTR-END-DATE TO L002-DATE. DTSBR320 00845 * DTSBR320 00846 * PERFORM S002-MIXED-CASE THRU S002-EXIT. DTSBR320 00847 * MOVE SPACES TO L090-PHRASE (2). DTSBR320 00848 * STRING L002-LONG-TEXT-AREA DELIMITED BY ' ' DTSBR320 00849 * ',' DELIMITED BY SIZE DTSBR320 00850 * INTO L090-PHRASE (2). DTSBR320 00851 * MOVE SPACES TO L090-PHRASE-OVERSTRIKE-IND (2). DTSBR320 00852 * MOVE MC-LIT-NOTICE-TO-US1 TO L090-PHRASE (3). DTSBR320 00853 * MOVE SPACES TO L090-PHRASE-OVERSTRIKE-IND (3). DTSBR320 00854 * PERFORM S090-PARAGRAPH-FORMAT THRU S090-EXIT. DTSBR320 00855 * DISPLAY 'L903 ' L090-PARAGRAPH-LINE-CNT DTSBR320 00856 * DISPLAY ' LIN ' L090-PARAGRAPH-LINE (1) DTSBR320 00857 * IF (L090-UNSUCCESSFUL-88) DTSBR320 00858 * OR DTSBR320 00859 * (L090-PARAGRAPH-LINE-CNT NOT = +1) DTSBR320 00860 * MOVE 'LOGIC ERROR P1000-3' TO ABEND-MSG DTSBR320 00861 * PERFORM S999-ABEND THRU S999-EXIT. DTSBR320 00862 * MOVE L090-PARAGRAPH-LINE (1) TO WS-TEXT-LINE-3. DTSBR320 00863 * DTSBR320 00864 * MOVE +130 TO L090-DESIRED-LINE-LIMIT. DTSBR320 00865 * MOVE +3 TO L090-PHRASE-CNT. DTSBR320 00866 * MOVE MC-LIT-NOTICE-TO-US2 TO L090-PHRASE (1). DTSBR320 00867 * MOVE SPACES TO L090-PHRASE-OVERSTRIKE-IND (1). DTSBR320 00868 * DISPLAY ' RTN BYE DATE ' R417-RETURN-BY-DATE. DTSBR320 00869 * MOVE R417-RETURN-BY-DATE TO L002-DATE. DTSBR320 00870 * PERFORM S002-MIXED-CASE THRU S002-EXIT. DTSBR320 00871 * MOVE SPACES TO L090-PHRASE (2). DTSBR320 00872 * STRING L002-LONG-TEXT-AREA DELIMITED BY ' ' DTSBR320 00873 * ',' DELIMITED BY SIZE DTSBR320 00874 * INTO L090-PHRASE (2). DTSBR320 00875 * MOVE SPACES TO L090-PHRASE-OVERSTRIKE-IND (2). DTSBR320 00876 * MOVE MC-LIT-NOTICE-TO-US3 TO L090-PHRASE (3). DTSBR320 00877 * MOVE SPACES TO L090-PHRASE-OVERSTRIKE-IND (3). DTSBR320 00878 * PERFORM S090-PARAGRAPH-FORMAT THRU S090-EXIT. DTSBR320 00879 * DISPLAY 'L904 ' L090-PARAGRAPH-LINE-CNT DTSBR320 00880 * DISPLAY ' LIN ' L090-PARAGRAPH-LINE (1) DTSBR320 00881 * IF (L090-UNSUCCESSFUL-88) DTSBR320 00882 * OR DTSBR320 00883 * (L090-PARAGRAPH-LINE-CNT NOT = +1) DTSBR320 00884 * MOVE 'LOGIC ERROR P1000-4' TO ABEND-MSG DTSBR320 00885 * PERFORM S999-ABEND THRU S999-EXIT. DTSBR320 00886 * MOVE L090-PARAGRAPH-LINE (1) TO WS-TEXT-LINE-4. DTSBR320 00887 DTSBR320 00888 PERFORM P9000-PRINT-DETAIL-1 THRU P9000-EXIT. DTSBR320 00889 PERFORM P9100-PRINT-miss-rpt THRU P9100-EXIT. DTSBR320 00890 DTSBR320 00891 * MOVE +0 TO DETAIL-2-LINE-CNT. DTSBR320 00892 DTSBR320 00893 PERFORM P9700-SELF-MAILER-RTN THRU P9700-EXIT. DTSBR320 00894 P8000-EXIT. DTSBR320 00895 EXIT. DTSBR320 00896 P9000-PRINT-DETAIL-1. DTSBR320 00897 MOVE hdr-UC-SHORT-MONTH-1 TO DTL-UC-SHORT-MONTH-1. DTSBR320 00898 MOVE hdr-UC-SHORT-MONTH-2 TO DTL-UC-SHORT-MONTH-2. DTSBR320 00899 MOVE hdr-UC-SHORT-MONTH-3 TO DTL-UC-SHORT-MONTH-3. DTSBR320 00900 MOVE hdr-LONG-YEAR TO DTL-LONG-YEAR. DTSBR320 00901 WRITE XEROX-REPORT2 FROM DTL-LINE-2 AFTER ADVANCING 2 LINE. DTSBR320 00902 WRITE XEROX-REPORT2 FROM DTL-LINE-3 AFTER ADVANCING 1 LINE. DTSBR320 00903 * WRITE XEROX-REPORT2 FROM DTL-LINE-4 AFTER ADVANCING 1 LINE. DTSBR320 00904 WRITE XEROX-REPORT2 FROM DTL-LINE-5 AFTER ADVANCING 1 LINE. DTSBR320 00905 WRITE XEROX-REPORT2 FROM DTL-LINE-5A AFTER ADVANCING 1 LINE. DTSBR320 00906 WRITE XEROX-REPORT2 FROM DTL-LINE-6 AFTER ADVANCING 2 LINE. DTSBR320 00907 WRITE XEROX-REPORT2 FROM DTL-LINE-6A AFTER ADVANCING 1 LINE. DTSBR320 00908 * WRITE XEROX-REPORT2 FROM DTL-LINE-7 AFTER ADVANCING 2 LINE. DTSBR320 00909 * WRITE XEROX-REPORT2 FROM DTL-LINE-7A AFTER ADVANCING 1 LINE. DTSBR320 00910 WRITE XEROX-REPORT2 FROM DTL-LINE-8 AFTER ADVANCING 1 LINE. DTSBR320 00911 WRITE XEROX-REPORT2 FROM DTL-LINE-8A AFTER ADVANCING 1 LINE. DTSBR320 00912 WRITE XEROX-REPORT2 FROM DTL-LINE-8b AFTER ADVANCING 1 LINE. DTSBR320 00913 WRITE XEROX-REPORT2 FROM DTL-LINE-9 AFTER ADVANCING 1 LINE. DTSBR320 00914 WRITE XEROX-REPORT2 FROM DTL-LINE-11 AFTER ADVANCING 1 LINE. DTSBR320 00915 WRITE XEROX-REPORT2 FROM DTL-LINE-12 AFTER ADVANCING 1 LINE. DTSBR320 00916 DTSBR320 00917 P9000-EXIT. DTSBR320 00918 EXIT. DTSBR320 00919 P9100-PRINT-miss-rpt. DTSBR320 00920 if ws-mis-line-cnt > 54 DTSBR320 00921 MOVE LRCM-SYS-DATE TO HDR1-SYS-DATE DTSBR320 00922 MOVE LRCM-SYS-TIME TO HDR1-SYS-TIME DTSBR320 00923 add 1 to ws-mis-page-cnt DTSBR320 00924 move l004-slash-5-qtr to wRK-SUBJECT-SLASH-QTR DTSBR320 00925 move ws-mis-page-cnt to hdr1-page-cnt DTSBR320 00926 write mis-report from hdr1-line-1 after advancing DTSBR320 00927 TOP-OF-PAGE DTSBR320 00928 write mis-report from hdr1-line-2 after advancing 1 DTSBR320 00929 write mis-report from hdr1-line-3 after advancing 1 DTSBR320 00930 write mis-report from hdr1-line-4m after advancing 1 DTSBR320 00931 * write mis-report from hdr1-line-5 after advancing 1 DTSBR320 00932 write mis-report from hdr1-line-6 after advancing 1 DTSBR320 00933 write mis-report from hdr1-line-7 after advancing 1 DTSBR320 00934 * write mis-report from hdr1-line-8 after advancing 1 DTSBR320 00935 write mis-report from hdr1-line-9m after advancing 1 DTSBR320 00936 move 9 to ws-mis-line-cnt. DTSBR320 00937 DTSBR320 00938 DTSBR320 00939 if R320-FMT-LINE (1) > spaces DTSBR320 00940 move r320-fmt-line(1) to mis-emp-name DTSBR320 00941 else DTSBR320 00942 if R320-FMT-LINE (2) > spaces DTSBR320 00943 MOVE R320-FMT-LINE (2) TO mis-emp-name DTSBR320 00944 else DTSBR320 00945 if R320-FMT-LINE (3) > spaces DTSBR320 00946 MOVE R320-FMT-LINE (3) TO mis-emp-name DTSBR320 00947 else DTSBR320 00948 if R320-FMT-LINE (4) > spaces DTSBR320 00949 MOVE R320-FMT-LINE (4) TO mis-emp-name DTSBR320 00950 else DTSBR320 00951 MOVE spaces TO mis-emp-name. DTSBR320 00952 DTSBR320 00953 MOVE R320-EMP-NO TO mis-EMP-NO. DTSBR320 00954 if R320-EMP-type = 'Q' CL**6 00955 MOVE 'R' TO mis-EMP-type CL**4 00956 else CL**4 00957 MOVE 'S' TO mis-EMP-type. CL**4 00958 MOVE WS-SLASH-DUE-DATE to mis-rpt-due. DTSBR320 00959 move 100.00 to mis-pen-chg-amt DTSBR320 00960 DTSBR320 00961 write mis-report from mis-line-1 after advancing 1 DTSBR320 00962 add 1 to ws-mis-line-cnt. DTSBR320 00963 add 1 to ws-mis-rec-cnt. DTSBR320 00964 P9100-EXIT. DTSBR320 00965 EXIT. DTSBR320 00966 P9200-PRINT-pen-rpt. DTSBR320 00967 if ws-pen-line-cnt > 54 DTSBR320 00968 MOVE LRCM-SYS-DATE TO HDR1-SYS-DATE DTSBR320 00969 MOVE LRCM-SYS-TIME TO HDR1-SYS-TIME DTSBR320 00970 move l004-slash-5-qtr to wRK-SUBJECT-SLASH-QTR DTSBR320 00971 add 1 to ws-pen-page-cnt DTSBR320 00972 move ws-pen-page-cnt to hdr1-page-cnt DTSBR320 00973 write pen-report from hdr1-line-1 after advancing DTSBR320 00974 TOP-OF-PAGE DTSBR320 00975 write pen-report from hdr1-line-2 after advancing 1 DTSBR320 00976 write pen-report from hdr1-line-3 after advancing 1 DTSBR320 00977 write pen-report from hdr1-line-4p after advancing 1 DTSBR320 00978 * write pen-report from hdr1-line-5 after advancing 1 DTSBR320 00979 write pen-report from hdr1-line-6 after advancing 1 DTSBR320 00980 write pen-report from hdr1-line-7 after advancing 1 DTSBR320 00981 * write pen-report from hdr1-line-8 after advancing 1 DTSBR320 00982 write pen-report from hdr1-line-9p after advancing 1 DTSBR320 00983 move 9 to ws-pen-line-cnt. DTSBR320 00984 DTSBR320 00985 DTSBR320 00986 if R320-FMT-LINE (1) > spaces DTSBR320 00987 move r320-fmt-line(1) to pen-emp-name DTSBR320 00988 else DTSBR320 00989 if R320-FMT-LINE (2) > spaces DTSBR320 00990 MOVE R320-FMT-LINE (2) TO pen-emp-name DTSBR320 00991 else DTSBR320 00992 if R320-FMT-LINE (3) > spaces DTSBR320 00993 MOVE R320-FMT-LINE (3) TO pen-emp-name DTSBR320 00994 else DTSBR320 00995 if R320-FMT-LINE (4) > spaces DTSBR320 00996 MOVE R320-FMT-LINE (4) TO pen-emp-name DTSBR320 00997 else DTSBR320 00998 MOVE spaces TO pen-emp-name. DTSBR320 00999 DTSBR320 01000 MOVE R320-EMP-NO TO PEN-EMP-NO. CL**5 01001 if R320-EMP-type = 'Q' CL**4 01002 MOVE 'R' TO PEN-EMP-type CL**4 01003 else CL**4 01004 MOVE 'S' TO PEN-EMP-type. CL**4 01005 MOVE WS-rpa-TAX-DUE TO pen-TAX-DUE. DTSBR320 01006 move ws-paid-amt to pen-paid-amt. DTSBR320 01007 move R320-int-CHARGED-AMT TO pen-int-charged-amt DTSBR320 01008 move R320-pen-CHARGED-AMT TO pen-pen-charged-amt DTSBR320 01009 MOVE WS-TAX-DUE TO pen-TOTAL-DUE. DTSBR320 01010 write pen-report from pen-line-1 after advancing 1 CL*29 01011 add 1 to ws-pen-rec-cnt. DTSBR320 01012 add 1 to ws-pen-line-cnt. DTSBR320 01013 P9200-EXIT. DTSBR320 01014 EXIT. DTSBR320 01015 P9500-PRINT-HEADER. DTSBR320 01016 MOVE R320-EMP-NO TO BARC-EMP-NO. DTSBR320 01017 PERFORM S599-BARCODE THRU S599-EXIT. DTSBR320 01018 DTSBR320 01019 IF L599-SETB-FONT1 DTSBR320 01020 MOVE 'MODIFY=TAXSM1,' TO CNTL2-CME DTSBR320 01021 ELSE DTSBR320 01022 IF L599-SETB-FONT2 DTSBR320 01023 MOVE 'MODIFY=TAXSM2,' TO CNTL2-CME DTSBR320 01024 ELSE DTSBR320 01025 MOVE 'MODIFY=TAXSM1,' TO CNTL2-CME. DTSBR320 01026 DTSBR320 01027 MOVE 'MODIFY=CME418,' TO CNTL2-CME. DTSBR320 01028 WRITE XEROX-REPORT2 FROM XEROX-CNTL2-LINE18 DTSBR320 01029 AFTER ADVANCING TOP-OF-PAGE. DTSBR320 01030 * WRITE XEROX-REPORT2 FROM XEROX-CNTL2-LINE19. DTSBR320 01031 WRITE XEROX-REPORT2 FROM XEROX-CNTL2-LINE20. DTSBR320 01032 MOVE R320-FMT-LINE (1) TO HDR-FMT-LINE-1. DTSBR320 01033 MOVE R320-FMT-LINE (2) TO HDR-FMT-LINE-2. DTSBR320 01034 MOVE R320-FMT-LINE (3) TO HDR-FMT-LINE-3. DTSBR320 01035 MOVE R320-FMT-LINE (4) TO HDR-FMT-LINE-4. DTSBR320 01036 MOVE R320-FMT-LINE (5) TO HDR-FMT-LINE-5. DTSBR320 01037 MOVE R320-EMP-NO TO HDR-EMP-NO. DTSBR320 01038 MOVE WS-UC-SHORT-MONTH-1 TO HDR-UC-SHORT-MONTH-1. DTSBR320 01039 MOVE WS-UC-SHORT-MONTH-2 TO HDR-UC-SHORT-MONTH-2. DTSBR320 01040 MOVE WS-UC-SHORT-MONTH-3 TO HDR-UC-SHORT-MONTH-3. DTSBR320 01041 MOVE WS-LONG-YEAR TO HDR-LONG-YEAR. DTSBR320 01042 * WRITE XEROX-REPORT FROM VSCA-LINE AFTER ADVANCING TOP-OF-PAGEDTSBR320 01043 WRITE XEROX-REPORT2 FROM VSCA-LINE AFTER ADVANCING 8 LINE. DTSBR320 01044 * WRITE XEROX-REPORT FROM VSCA-LINE AFTER ADVANCING 10 LINE. DTSBR320 01045 WRITE XEROX-REPORT2 FROM HDR-LINE-10 AFTER ADVANCING 1 LINE. DTSBR320 01046 WRITE XEROX-REPORT2 FROM HDR-LINE-11 AFTER ADVANCING 2 LINE. DTSBR320 01047 WRITE XEROX-REPORT2 FROM HDR-LINE-12 AFTER ADVANCING 1 LINE. DTSBR320 01048 WRITE XEROX-REPORT2 FROM HDR-LINE-13 AFTER ADVANCING 1 LINE. DTSBR320 01049 WRITE XEROX-REPORT2 FROM HDR-LINE-14 AFTER ADVANCING 1 LINE. DTSBR320 01050 WRITE XEROX-REPORT2 FROM HDR-LINE-15 AFTER ADVANCING 1 LINE. DTSBR320 01051 DTSBR320 01052 P9500-EXIT. DTSBR320 01053 EXIT. DTSBR320 01054 P9700-SELF-MAILER-RTN. DTSBR320 01055 MOVE R320-FMT-LINE (1) TO C2-ADDR-FMT-LINE-1. DTSBR320 01056 MOVE R320-FMT-LINE (2) TO C2-ADDR-FMT-LINE-2. DTSBR320 01057 MOVE R320-FMT-LINE (3) TO C2-ADDR-FMT-LINE-3. DTSBR320 01058 MOVE R320-FMT-LINE (4) TO C2-ADDR-FMT-LINE-4. DTSBR320 01059 MOVE R320-FMT-LINE (5) TO C2-ADDR-FMT-LINE-5. DTSBR320 01060 DTSBR320 01061 PERFORM P9900-PRINT-VSCA-ADDR THRU P9900-EXIT. DTSBR320 01062 DTSBR320 01063 P9700-EXIT. DTSBR320 01064 EXIT. DTSBR320 01065 P9900-PRINT-VSCA-ADDR. DTSBR320 01066 DTSBR320 01067 MOVE L599-BARCODED-DATA TO CONVERTED-BARCODE. DTSBR320 01068 DTSBR320 01069 MOVE SPACES TO WS-REC. DTSBR320 01070 WRITE XEROX-REPORT2 FROM WS-REC DTSBR320 01071 AFTER ADVANCING TOP-OF-PAGE. DTSBR320 01072 DTSBR320 01073 * WRITE XEROX-REPORT FROM WS-BARC-LINE AFTER 04. DTSBR320 01074 DTSBR320 01075 * WRITE XEROX-REPORT FROM VSCA-LINE DTSBR320 01076 * AFTER ADVANCING TOP-OF-PAGE. DTSBR320 01077 WRITE XEROX-REPORT2 FROM VSCA-LINE AFTER ADVANCING 16 LINE. DTSBR320 01078 * WRITE XEROX-REPORT FROM VSCA-LINE AFTER ADVANCING 13 LINE. DTSBR320 01079 *RW2 DTSBR320 01080 WRITE XEROX-REPORT2 FROM VSC2-ADDR-LINE-17 DTSBR320 01081 AFTER ADVANCING 1 LINE. DTSBR320 01082 WRITE XEROX-REPORT2 FROM VSC2-ADDR-LINE-18 DTSBR320 01083 AFTER ADVANCING 1 LINE. DTSBR320 01084 WRITE XEROX-REPORT2 FROM VSC2-ADDR-LINE-19 DTSBR320 01085 AFTER ADVANCING 1 LINE. DTSBR320 01086 WRITE XEROX-REPORT2 FROM VSC2-ADDR-LINE-20 DTSBR320 01087 AFTER ADVANCING 1 LINE. DTSBR320 01088 WRITE XEROX-REPORT2 FROM VSC2-ADDR-LINE-21 DTSBR320 01089 AFTER ADVANCING 1 LINE. DTSBR320 01090 DTSBR320 01091 P9900-EXIT. DTSBR320 01092 EXIT. DTSBR320 01093 DTSBR320 01094 T1000-tERMINATE. DTSBR320 01095 move ws-pen-rec-cnt to pen-rec-cnt DTSBR320 01096 write pen-report from penalty-FOOTING-FINAL after 2. DTSBR320 01097 move ws-mis-rec-cnt to mis-rec-cnt DTSBR320 01098 write mis-report from missing-FOOTING-FINAL after 2. DTSBR320 01099 DISPLAY ' TOTAL NO OF penalty assessed ' TOT-PEN-CNT. DTSBR320 01100 DISPLAY ' ' DTSBR320 01101 DISPLAY ' NUMBER OF FILERS TAX TOLERATED ' TOL-CNT. DTSBR320 01102 DISPLAY ' ' DTSBR320 01103 DISPLAY ' NUMBER OF FILERS CREDIT APPLID ' CREDIT-CNT. DTSBR320 01104 DISPLAY ' ' DTSBR320 01105 DISPLAY ' NUMBER OF FILERS bal due = 0 ' credit-cnt. DTSBR320 01106 DISPLAY ' ' DTSBR320 01107 DTSBR320 01108 DISPLAY ' TOTAL NO OF MISSING REPORTS ' TOT-MIS-CNT. DTSBR320 01109 DISPLAY ' ' DTSBR320 01110 SKIP1 DTSBR320 01111 CLOSE PRT-FILE PRT-FILE2 DTSBR320 01112 pen-FILE mis-FILE. DTSBR320 01113 CLOSE EMP-RPT-FILE. DTSBR320 01114 DTSBR320 01115 T1000-EXIT. DTSBR320 01116 EXIT. DTSBR320 01117 EJECT DTSBR320 01118 S001-FROM-FED-8. DTSBR320 01119 SET L001-FROM-FED-8 TO TRUE. DTSBR320 01120 GO TO S001-DATE. DTSBR320 01121 DTSBR320 01122 S001-DATE. DTSBR320 01123 SKIP1 DTSBR320 01124 CALL 'DTSBU001' USING L001-LINK-AREA. DTSBR320 01125 SKIP2 DTSBR320 01126 S001-EXIT. DTSBR320 01127 EXIT. DTSBR320 01128 SKIP3 DTSBR320 01129 S002-UPPER-CASE. DTSBR320 01130 SET L002-UPPER-CASE TO TRUE. DTSBR320 01131 GO TO S002-DATE-ALPHA. DTSBR320 01132 DTSBR320 01133 S002-MIXED-CASE. DTSBR320 01134 SET L002-MIXED-CASE TO TRUE. DTSBR320 01135 GO TO S002-DATE-ALPHA. DTSBR320 01136 DTSBR320 01137 S002-DATE-ALPHA. DTSBR320 01138 SKIP1 DTSBR320 01139 CALL 'DTSBU002' USING L002-LINK-AREA. DTSBR320 01140 SKIP2 DTSBR320 01141 S002-EXIT. DTSBR320 01142 EXIT. DTSBR320 01143 SKIP3 DTSBR320 01144 S004-FROM-5. DTSBR320 01145 SET L004-FROM-5 TO TRUE. DTSBR320 01146 GO TO S004-FROM-QTR. DTSBR320 01147 DTSBR320 01148 S004-FROM-QTR. DTSBR320 01149 SKIP1 DTSBR320 01150 CALL 'DTSBU004' USING L004-LINK-AREA. DTSBR320 01151 SKIP2 DTSBR320 01152 S004-EXIT. DTSBR320 01153 EXIT. DTSBR320 01154 SKIP3 DTSBR320 01155 S008-UPPER-CASE. DTSBR320 01156 SET L008-UPPER-CASE TO TRUE. DTSBR320 01157 GO TO S008-QUARTER-ALPHA. DTSBR320 01158 DTSBR320 01159 S008-MIXED-CASE. DTSBR320 01160 SET L008-MIXED-CASE TO TRUE. DTSBR320 01161 GO TO S008-QUARTER-ALPHA. DTSBR320 01162 DTSBR320 01163 S008-QUARTER-ALPHA. DTSBR320 01164 CALL 'DTSBU008' USING L008-LINK-AREA. DTSBR320 01165 S008-EXIT. DTSBR320 01166 EXIT. DTSBR320 01167 SKIP3 DTSBR320 01168 S101-pER-MONTH-NO. DTSBR320 01169 SET L101-PER-MONTH-NO-88 TO TRUE. DTSBR320 01170 GO TO S101-INT-COMP. DTSBR320 01171 S101-INT-COMP. DTSBR320 01172 CALL 'DTSBU101' USING L101-LINK-AREA. DTSBR320 01173 S101-EXIT. DTSBR320 01174 EXIT. DTSBR320 01175 SKIP3 DTSBR320 01176 S090-PARAGRAPH-FORMAT. DTSBR320 01177 MOVE +0 TO L090-INDENT. DTSBR320 01178 SET L090-SPECIAL-CHAR-STD-88 TO TRUE. DTSBR320 01179 DTSBR320 01180 CALL 'DTSBU090' USING L090-LINK-AREA. DTSBR320 01181 S090-EXIT. DTSBR320 01182 EXIT. DTSBR320 01183 SKIP3 DTSBR320 01184 S119-REQ-CAPS. DTSBR320 01185 SET L119-REQ-CAPS-88 TO TRUE. DTSBR320 01186 GO TO S119-AGENCY-FACTS. DTSBR320 01187 S119-REQ-MIXED. DTSBR320 01188 SET L119-REQ-MIXED-88 TO TRUE. DTSBR320 01189 GO TO S119-AGENCY-FACTS. DTSBR320 01190 DTSBR320 01191 S119-AGENCY-FACTS. DTSBR320 01192 CALL 'DTSBU119' USING L119-LINK-AREA. DTSBR320 01193 S119-EXIT. DTSBR320 01194 EXIT. DTSBR320 01195 SKIP3 DTSBR320 01196 DTSBR320 01197 S599-BARCODE. DTSBR320 01198 MOVE CONVERT-BARCODE-LINE TO L599-INPUT-DATA. DTSBR320 01199 MOVE LENGTH OF CONVERT-BARCODE-LINE TO L599-REC-LENGTH. DTSBR320 01200 MOVE 'TAX' TO L599-SYSTEM. DTSBR320 01201 DTSBR320 01202 CALL 'DTSBU599' USING BARI-LINK-AREA. DTSBR320 01203 DTSBR320 01204 IF L599-NOT-CONVERTED DTSBR320 01205 PERFORM S999-ABEND THRU S999-EXIT. DTSBR320 01206 S599-EXIT. DTSBR320 01207 EXIT. DTSBR320 01208 SKIP3 DTSBR320 01209 S910-OPEN. CL*17 01210 SET L910-OPEN-88 TO TRUE. CL*17 01211 GO TO S910-MSTR-IO. DTSBR320 01212 DTSBR320 01213 S910-READ. DTSBR320 01214 SET L910-READ-88 TO TRUE. DTSBR320 01215 GO TO S910-MSTR-IO. DTSBR320 01216 DTSBR320 01217 S910-CLOSE. DTSBR320 01218 SET L910-CLOSE-88 TO TRUE. DTSBR320 01219 GO TO S910-MSTR-IO. DTSBR320 01220 DTSBR320 01221 S910-MSTR-IO. DTSBR320 01222 CALL 'DTSBU910' USING L910-LINK-AREA DTSBR320 01223 MSKL-REC. DTSBR320 01224 DTSBR320 01225 S910-EXIT. DTSBR320 01226 EXIT. DTSBR320 01227 SKIP2 DTSBR320 01228 S999-ABEND. DTSBR320 01229 DISPLAY '**** dtsBR320 ABENDING ' DTSBR320 01230 DTSBR320 01231 CALL 'DTSBU999' USING WRK-ABEND-CODE. DTSBR320 01232 DTSBR320 01233 S999-EXIT. DTSBR320 01234 EXIT. DTSBR320 01235 DTSBR320