00001 IDENTIFICATION DIVISION. 07/02/24 00002 PROGRAM-ID. DTSBR414. DTSBR414 00003 AUTHOR. TRICOASTAL CONSULTING LTD. LV040 00004 DATE-WRITTEN. NOV 2002. DTSBR414 00005 DATE-COMPILED. DTSBR414 00006 SKIP3 DTSBR414 00007 ***** DTSBR414 00008 * DTSBR414 00009 * CALLING SEQUENCE: DTSBD400 CALLS DTSBR414 00010 * DTSBE414 WHICH CREATES DTSIR414 RECORDS DTSBR414 00011 * DTSBD800 CALLS DTSBR414 00012 * DTSBR414 WHICH READS DTSIR414 RECORDS DTSBR414 00013 * DTSBR414 00014 * FUNCTION: DEBIT MEMO PRINT. DTSBR414 00015 * DTSBR414 00016 * MODIFICATION HISTORY: DTSBR414 00017 * DTSBR414 00018 * 11-12-02 MODIFIED TO REFORMAT BILL USING NEW FORM. DTSBR414 00019 * DTSBR414 00020 * REFERENCE RFP # PROGRAMMER: ZL1 DTSBR414 00021 * 03-08-06 MODIFIED TO include sur charge on a seperate column DTSBR414 00022 * on monthly bill. DTSBR414 00023 * REFERENCE RFP # dc sur charge PROGRAMMER: ZL1 DTSBR414 00024 * DTSBR414 00025 * 06-10-14 MODIFIED TO print all employers who are delinquent DTSBR414 00026 * REFERENCE RFP per patrick holmes PROGRAMMER: nh1 DTSBR414 00027 * DTSBR414 00028 * 04-06-17 MODIFIED program to adjust print lines on bill due to DTSBR414 00029 * text changes to T414r1 PROGRAMMER: nh1 DTSBR414 00030 * MM-DD-YY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBR414 00031 * XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBR414 00032 * REFERENCE RFP #**** PROGRAMMER: XXX DTSBR414 00033 * DTSBR414 00034 * DTSBR414 00035 * DESCRIPTION: DTSBR414 00036 * DTSBR414 00037 * THIS MODULE PRINTS DEBIT MEMOS. DTSBR414 00038 * DTSBR414 00039 * IF DTSBR414 IS MODIFIED, THERE IS A STRONG PROBABILITY DTSBR414 00040 * THAT CORRESPONDING MODIFICATIONS MUST BE MADE TO DTSBR414 00041 * DTSCS46 (ON-LINE STATEMENT OF ACCOUNT PRINT). DTSBR414 00042 * DTSBR414 00043 * DTSBR414 00044 * PROCESSING: DTSBR414 00045 * DTSBR414 00046 * DETAIL: DTSBR414 00047 * DTSBR414 00048 * DTSBR414 00049 * RECORDS READ: DTSBR414 00050 * DTSBR414 00051 * FOPR. DTSBR414 00052 * DTSBR414 00053 * DTSBR414 00054 * PRINTED OUTPUTS: DTSBR414 00055 * DTSBR414 00056 * 414R1 STATEMENT OF ACCOUNT (DEBIT). DTSBR414 00057 * DTSBR414 00058 * DTSBR414 00059 * RECORDS WRITTEN: DTSBR414 00060 * DTSBR414 00061 * NONE. DTSBR414 00062 * DTSBR414 00063 * DTSBR414 00064 * MODULES CALLED: DTSBR414 00065 * DTSBR414 00066 * DTSBU001 DATE EDIT/CONVERSION. DTSBR414 00067 * DTSBR414 00068 ***** DTSBR414 00069 EJECT DTSBR414 00070 ENVIRONMENT DIVISION. DTSBR414 00071 SKIP2 DTSBR414 00072 INPUT-OUTPUT SECTION. DTSBR414 00073 DTSBR414 00074 FILE-CONTROL. DTSBR414 00075 SELECT PRT-FILE1 ASSIGN TO RPT414R1. DTSBR414 00076 SELECT PRT-FILE2 ASSIGN TO RPT414R2. CL**6 00077 SELECT PRT-FILE4 ASSIGN TO RPT414R4. DTSBR414 00078 SELECT PRT-FILE6 ASSIGN TO RPT414R6. DTSBR414 00079 SKIP3 DTSBR414 00080 DATA DIVISION. DTSBR414 00081 SKIP3 DTSBR414 00082 FILE SECTION. DTSBR414 00083 SKIP3 DTSBR414 00084 FD PRT-FILE1 DTSBR414 00085 LABEL RECORDS ARE STANDARD. DTSBR414 00086 01 PRT-REC1. DTSBR414 00087 05 FILLER PIC X(132). DTSBR414 00088 SKIP3 DTSBR414 00089 FD PRT-FILE2 CL**6 00090 LABEL RECORDS ARE STANDARD. CL**6 00091 01 PRT-REC2. CL**6 00092 05 FILLER PIC X(132). CL**6 00093 FD PRT-FILE4 DTSBR414 00094 LABEL RECORDS ARE STANDARD. DTSBR414 00095 01 PRT-REC4. DTSBR414 00096 05 FILLER PIC X(132). DTSBR414 00097 FD PRT-FILE6 DTSBR414 00098 LABEL RECORDS ARE STANDARD. DTSBR414 00099 01 PRT-REC6. DTSBR414 00100 05 FILLER PIC X(132). DTSBR414 00101 SKIP3 DTSBR414 00102 WORKING-STORAGE SECTION. DTSBR414 001025 77 PAN-VALET PICTURE X(24) VALUE '040DTSBR414 07/02/24'. DTSBR414 00103 77 PAN-VALET PICTURE X(24) VALUE '181DTSBR414 04/06/17'. DTSBR414 00104 77 PAN-VALET PICTURE X(24) VALUE '014DTSBR414 04/06/17'. DTSBR414 00105 77 PAN-VALET PICTURE X(24) VALUE '179DTSBR414 07/10/14'. DTSBR414 00106 77 PAN-VALET PICTURE X(24) VALUE '039DTSBR414 07/08/14'. DTSBR414 00107 SKIP3 DTSBR414 00108 01 WRK-AREA-CONSTANTS. DTSBR414 00109 05 WRK-ABEND-CD PIC S9(04) COMP DTSBR414 00110 VALUE +414. DTSBR414 00111 DTSBR414 00112 05 FIRST-TIME-IND PIC X(01) VALUE 'Y'. DTSBR414 00113 DTSBR414 00114 05 TOT-LINE-CNT PIC S9(04) COMP VALUE +47. DTSBR414 00115 05 MAX-QTR-PRINT PIC S9(04) COMP VALUE +6. DTSBR414 00116 05 LINE-CNT PIC S9(04) COMP VALUE +0. DTSBR414 00117 05 WS-REPT-CNT PIC S9(05) COMP VALUE +0. DTSBR414 00118 05 REC2-LINE-CNT PIC S9(04) COMP VALUE +55. DTSBR414 00119 05 REC2-PAGE-CNT PIC S9(04) COMP VALUE +0. DTSBR414 00120 05 WS-FLD-REP-ID PIC X(02) VALUE SPACES. DTSBR414 00121 05 WS-qtr4-FLD-REP-ID PIC X(02) VALUE SPACES. DTSBR414 00122 05 REC3-LINE-CNT PIC S9(04) COMP VALUE +55. DTSBR414 00123 05 REC3-PAGE-CNT PIC S9(04) COMP VALUE +0. DTSBR414 00124 DTSBR414 00125 05 ABEND-MSG PIC X(60) VALUE SPACE. DTSBR414 00126 05 BLKLINE PIC X(133) VALUE SPACE. DTSBR414 00127 DTSBR414 00128 05 PRT-FILE1-PAGE-CNT PIC S9(07) COMP-3 VALUE +0. DTSBR414 00129 DTSBR414 00130 05 DISPLAY-CNT PIC X(09) VALUE ZEROS. DTSBR414 00131 05 DISPLAY-CNT-Z REDEFINES DISPLAY-CNT DTSBR414 00132 PIC Z,ZZZ,ZZ9. DTSBR414 00133 05 WS-WRK-QTR PIC 9(05) VALUE ZEROS. DTSBR414 00134 05 WS-WRK-QTR-X REDEFINES WS-WRK-QTR. DTSBR414 00135 10 WRK-QTR-YR PIC 9(04). DTSBR414 00136 10 WRK-QTR-Q PIC 9(01). DTSBR414 00137 DTSBR414 00138 05 WS-PRT-QTR. DTSBR414 00139 10 WRK-PRT-YR PIC X(04) VALUE SPACES. DTSBR414 00140 10 WRK-PRT-SLASH PIC X(01) VALUE SPACES. DTSBR414 00141 10 WRK-PRT-Q PIC X(01) VALUE SPACES. DTSBR414 00142 DTSBR414 00143 05 WS-EMP-NAME. DTSBR414 00144 10 WRK-FIRST-4 PIC X(04) VALUE SPACES. DTSBR414 00145 10 WRK-LAST-36 PIC X(36) VALUE SPACES. DTSBR414 00146 DTSBR414 00147 SKIP3 DTSBR414 00148 05 WS-REC PIC X(132) VALUE SPACES. DTSBR414 00149 05 WS-XREC PIC X(132) VALUE SPACES. DTSBR414 00150 DTSBR414 00151 05 AMT-DISPLAYED-IND PIC X(01). DTSBR414 00152 88 AMT-DISPLAYED-NO-88 VALUE 'N'. DTSBR414 00153 88 AMT-DISPLAYED-YES-88 VALUE 'Y'. DTSBR414 00154 DTSBR414 00155 05 PRINT-PRIOR-QTRS-IND PIC X(01). DTSBR414 00156 88 PRINT-PRIOR-QTRS-NO-88 VALUE 'N'. DTSBR414 00157 88 PRINT-PRIOR-QTRS-YES-88 VALUE 'Y'. DTSBR414 00158 DTSBR414 00159 05 PRINT-STMT-IND PIC X(01). DTSBR414 00160 88 PRINT-STMT-NO-88 VALUE 'N'. DTSBR414 00161 88 PRINT-STMT-YES-88 VALUE 'Y'. DTSBR414 00162 DTSBR414 00163 05 PRINT-BILL-IND PIC X(01). DTSBR414 00164 88 PRINT-BILL-NO-88 VALUE 'N'. DTSBR414 00165 88 PRINT-BILL-YES-88 VALUE 'Y'. DTSBR414 00166 DTSBR414 00167 05 PRINT-FNOTE1-IND PIC X(01). DTSBR414 00168 88 PRINT-FNOTE1-NO-88 VALUE 'N'. DTSBR414 00169 88 PRINT-FNOTE1-YES-88 VALUE 'Y'. DTSBR414 00170 DTSBR414 00171 05 PRINT-FNOTE2-IND PIC X(01). DTSBR414 00172 88 PRINT-FNOTE2-NO-88 VALUE 'N'. DTSBR414 00173 88 PRINT-FNOTE2-YES-88 VALUE 'Y'. DTSBR414 00174 DTSBR414 00175 05 PRINT-FNOTE3-IND PIC X(01). DTSBR414 00176 88 PRINT-FNOTE3-NO-88 VALUE 'N'. DTSBR414 00177 88 PRINT-FNOTE3-YES-88 VALUE 'Y'. DTSBR414 00178 DTSBR414 00179 05 PRINT-FNOTE4-IND PIC X(01). DTSBR414 00180 88 PRINT-FNOTE4-NO-88 VALUE 'N'. DTSBR414 00181 88 PRINT-FNOTE4-YES-88 VALUE 'Y'. DTSBR414 00182 DTSBR414 00183 05 SUM-PRIOR-QTRS-IND PIC X(01). DTSBR414 00184 88 SUM-PRIOR-QTRS-NO-88 VALUE 'N'. DTSBR414 00185 88 SUM-PRIOR-QTRS-YES-88 VALUE 'Y'. DTSBR414 00186 DTSBR414 00187 SKIP3 DTSBR414 00188 05 WS-TOTAL-CONTRIB-AMT PIC S9(09)V9(02) COMP-3 DTSBR414 00189 VALUE +0. DTSBR414 00190 05 WS-TOTAL-INTEREST-AMT PIC S9(09)V9(02) COMP-3 DTSBR414 00191 VALUE +0. DTSBR414 00192 05 WS-TOTAL-SURCHARG-AMT PIC S9(09)V9(02) COMP-3 DTSBR414 00193 VALUE +0. DTSBR414 00194 05 WS-TOTAL-PENALTY-AMT PIC S9(09)V9(02) COMP-3 DTSBR414 00195 VALUE +0. DTSBR414 00196 05 WS-TOTAL-BALANCE-AMT PIC S9(09)V9(02) COMP-3 DTSBR414 00197 VALUE +0. DTSBR414 00198 05 WS-STUB-BALANCE-AMT PIC S9(09)V9(02) COMP-3 DTSBR414 00199 VALUE +0. DTSBR414 00200 05 WS-max-camt PIC S9(09)V9(02) COMP-3 DTSBR414 00201 VALUE +0. DTSBR414 00202 05 WS-max-iamt PIC S9(09)V9(02) COMP-3 DTSBR414 00203 VALUE +0. DTSBR414 00204 05 WS-max-samt PIC S9(09)V9(02) COMP-3 DTSBR414 00205 VALUE +0. DTSBR414 00206 05 WS-max-PAMT PIC S9(09)V9(02) COMP-3 DTSBR414 00207 VALUE +0. DTSBR414 00208 05 ws-max-BAMT PIC S9(09)V9(02) COMP-3 DTSBR414 00209 VALUE +0. DTSBR414 00210 05 WS-QTR-PLUS20 PIC 9(3) VALUE ZERO. DTSBR414 00211 05 WS-QTR4-cnt PIC 9(3) VALUE ZERO. DTSBR414 00212 05 WS-QTR-CNT PIC 9(3) VALUE ZERO. DTSBR414 00213 05 WS-QTR-IDX PIC 9(3) VALUE ZERO. DTSBR414 00214 05 WRK-CNT PIC 9(3) DTSBR414 00215 VALUE ZERO. DTSBR414 00216 05 WRK-CTR PIC S9(04) COMP DTSBR414 00217 VALUE +0. DTSBR414 00218 05 WS-QTR-FNOTE PIC X(7) VALUE SPACES. DTSBR414 00219 05 WS-QTR-FNOTEX REDEFINES WS-QTR-FNOTE. DTSBR414 00220 10 WFNOTE1 PIC X(03). DTSBR414 00221 10 WFNOTE2 PIC X(03). DTSBR414 00222 10 FILLER PIC X. DTSBR414 00223 EJECT DTSBR414 00224 ** DTSBR414 00225 ++INCLUDE DTSXL414 DTSBR414 00226 SKIP3 DTSBR414 00227 05 CONVERT-BARCODE-LINE. DTSBR414 00228 10 BARC-EMP-NO PIC 9(06) VALUE ZEROS. DTSBR414 00229 DTSBR414 00230 05 WS-BARC-LINE. DTSBR414 00231 10 FILLER PIC X(40) VALUE SPACES. DTSBR414 00232 10 CONVERTED-BARCODE PIC X(50). DTSBR414 00233 10 FILLER PIC X(30) VALUE SPACES. DTSBR414 00234 ** DTSBR414 00235 05 STUB-LINE. DTSBR414 00236 10 FILLER PIC X(04) VALUE SPACES. DTSBR414 00237 10 STUB-EMP-NO PIC 999B999. DTSBR414 00238 10 FILLER PIC X(03) VALUE SPACES. DTSBR414 00239 10 STUB-EMP-FEIN PIC 99B9999999. DTSBR414 00240 10 FILLER PIC X(04) VALUE SPACES. DTSBR414 00241 10 STUB-STMT-DATE PIC X(10). DTSBR414 00242 10 FILLER PIC X(06) VALUE SPACES. DTSBR414 00243 10 STUB-COMP-DATE PIC X(10). DTSBR414 00244 10 FILLER PIC X(07) VALUE SPACES. DTSBR414 00245 10 STUB-AMT PIC $,$$$,$$$.$$. DTSBR414 00246 DTSBR414 00247 05 ADDR01. DTSBR414 00248 10 FILLER PIC X(01) VALUE SPACE. DTSBR414 00249 10 FILLER PIC X(27) VALUE SPACES. DTSBR414 00250 10 STUB-ADDR-LINE1 PIC X(40). DTSBR414 00251 10 FILLER PIC X(23) value spaces. DTSBR414 00252 DTSBR414 00253 05 ADDR02. DTSBR414 00254 10 FILLER PIC X(01) VALUE SPACE. DTSBR414 00255 10 FILLER PIC X(27) VALUE SPACES. DTSBR414 00256 10 STUB-ADDR-LINE2 PIC X(40). DTSBR414 00257 10 FILLER PIC X(23) value spaces. DTSBR414 00258 DTSBR414 00259 05 ADDR03. DTSBR414 00260 10 FILLER PIC X(01) VALUE SPACE. DTSBR414 00261 10 FILLER PIC X(27) VALUE SPACES. DTSBR414 00262 10 STUB-ADDR-LINE3 PIC X(40). DTSBR414 00263 10 FILLER PIC X(23) value spaces. DTSBR414 00264 DTSBR414 00265 05 ADDR04. DTSBR414 00266 10 FILLER PIC X(01) VALUE SPACE. DTSBR414 00267 10 FILLER PIC X(27) VALUE SPACES. DTSBR414 00268 10 STUB-ADDR-LINE4 PIC X(40). DTSBR414 00269 10 FILLER PIC X(32) VALUE SPACES. DTSBR414 00270 DTSBR414 00271 05 ADDR05. DTSBR414 00272 10 FILLER PIC X(01) VALUE SPACE. DTSBR414 00273 10 FILLER PIC X(27) VALUE SPACES. DTSBR414 00274 10 STUB-ADDR-LINE5 PIC X(40). DTSBR414 00275 10 FILLER PIC X(32) VALUE SPACES. DTSBR414 00276 DTSBR414 00277 05 STMT-LINE2. DTSBR414 00278 10 FILLER PIC X(63) VALUE SPACE. DTSBR414 00279 10 STMT-LAST-ACCT-UPDATE-DATE DTSBR414 00280 PIC X(10). DTSBR414 00281 10 FILLER PIC X(02) VALUE '. '. DTSBR414 00282 DTSBR414 00283 05 STMT-LINE1. DTSBR414 00284 10 FILLER PIC X(03) VALUE SPACES. DTSBR414 00285 10 STMT-EMP-NO PIC 999B999. DTSBR414 00286 10 FILLER PIC X(03) VALUE SPACES. DTSBR414 00287 10 STMT-NAME-CHEK PIC X(04). DTSBR414 00288 10 FILLER PIC X(04) VALUE SPACES. DTSBR414 00289 10 STMT-EMP-FEIN PIC 99B9999999. DTSBR414 00290 10 FILLER PIC X(03) VALUE SPACES. DTSBR414 00291 10 STMT-STMT-DATE PIC X(10). DTSBR414 00292 10 FILLER PIC X(04) VALUE SPACES. DTSBR414 00293 10 STMT-COMP-DATE PIC X(10). DTSBR414 00294 10 FILLER PIC X(06) VALUE SPACES. DTSBR414 00295 DTSBR414 00296 05 STMT-QTR-DETAIL. DTSBR414 00297 10 FILLER PIC X(03) VALUE SPACE. DTSBR414 00298 10 QTR-DET-YR. DTSBR414 00299 15 QTR-DET-YR1 PIC X(06). DTSBR414 00300 15 QTR-DET-YR2 PIC X(03). DTSBR414 00301 10 QTR-DET-FNOTE. DTSBR414 00302 15 QTR-DET-FNOTE1 PIC X(06). DTSBR414 00303 15 QTR-DET-FNOTE2 PIC X(01). DTSBR414 00304 10 FILLER PIC X(02). DTSBR414 00305 10 QTR-DET-CONTRIB-AMT PIC ZZZ,ZZZ,ZZZ.ZZ. DTSBR414 00306 * 10 FILLER PIC X(04). DTSBR414 00307 10 QTR-DET-INTEREST-AMT PIC ZZZ,ZZZ,ZZZ.ZZ. DTSBR414 00308 * 10 FILLER PIC X(03). DTSBR414 00309 10 QTR-DET-PENALTY-AMT PIC Z,ZZZ,ZZZ.ZZ. DTSBR414 00310 * 10 FILLER PIC X(03). DTSBR414 00311 10 QTR-DET-SURCHARG-AMT PIC Z,ZZZ,ZZZ.ZZ. DTSBR414 00312 10 FILLER PIC X(02). DTSBR414 00313 10 QTR-DET-BALANCE-AMT PIC ZZZ,ZZZ,ZZZ.ZZ. DTSBR414 00314 10 FILLER PIC X(02). DTSBR414 00315 DTSBR414 00316 05 STMT-TOTAL-LINE. DTSBR414 00317 10 FILLER PIC X(21) VALUE SPACE. DTSBR414 00318 10 TOTAL-CONTRIB-AMT PIC $$$,$$$,$$$.$$. DTSBR414 00319 * 10 FILLER PIC X(03) VALUE SPACES. DTSBR414 00320 10 TOTAL-INTEREST-AMT PIC $$$,$$$,$$$.$$. DTSBR414 00321 * 10 FILLER PIC X(03) VALUE SPACES. DTSBR414 00322 10 TOTAL-PENALTY-AMT PIC $,$$$,$$$.$$. DTSBR414 00323 * 10 FILLER PIC X(04) VALUE SPACES. DTSBR414 00324 10 TOTAL-SURCHARG-AMT PIC $$,$$$,$$$.$$. DTSBR414 00325 10 FILLER PIC X(01) VALUE SPACES. DTSBR414 00326 10 TOTAL-BALANCE-AMT PIC $$$,$$$,$$$.$$. DTSBR414 00327 10 FILLER PIC X(02) VALUE SPACES. DTSBR414 00328 DTSBR414 00329 05 FNOTE1. DTSBR414 00330 10 FILLER PIC X(03) VALUE SPACE. DTSBR414 00331 10 FILLER PIC X(31) VALUE DTSBR414 00332 '(a) = estimated report on file'. DTSBR414 00333 DTSBR414 00334 05 FNOTE2. DTSBR414 00335 10 FILLER PIC X(03) VALUE SPACE. DTSBR414 00336 10 FILLER PIC X(31) VALUE DTSBR414 00337 '(b) = report missing '. DTSBR414 00338 DTSBR414 00339 05 FNOTE3. DTSBR414 00340 10 FILLER PIC X(03) VALUE SPACE. DTSBR414 00341 10 FILLER PIC X(31) VALUE DTSBR414 00342 '(c) = annual report '. DTSBR414 00343 DTSBR414 00344 05 FNOTE4. DTSBR414 00345 10 FILLER PIC X(03) VALUE SPACE. DTSBR414 00346 10 FILLER PIC X(31) VALUE DTSBR414 00347 '(d) = appeal pending '. DTSBR414 00348 DTSBR414 00349 05 FNOTE-MISSING-RPT. DTSBR414 00350 10 FILLER PIC X(33) VALUE SPACE. DTSBR414 00351 10 FILLER PIC X(57) VALUE DTSBR414 00352 'Balance Due does not include charges for missing reports'. DTSBR414 00353 DTSBR414 00354 DTSBR414 00355 01 HEADER1. DTSBR414 00356 05 FILLER PIC X(01) VALUE SPACES. DTSBR414 00357 05 HDR1-RPT PIC X(05). DTSBR414 00358 05 FILLER PIC X(44) VALUE SPACES. DTSBR414 00359 05 FILLER PIC X(60) VALUE DTSBR414 00360 'DISTRICT OF COLUMBIA'. DTSBR414 00361 05 FILLER PIC X(06) VALUE 'DATE:'. DTSBR414 00362 05 HDR1-DATE PIC X(08). DTSBR414 00363 DTSBR414 00364 DTSBR414 00365 01 HEADER2. DTSBR414 00366 05 FILLER PIC X(54) VALUE SPACES. DTSBR414 00367 05 FILLER PIC X(56) VALUE DTSBR414 00368 'TAX DIVISION'. DTSBR414 00369 05 FILLER PIC X(06) VALUE 'TIME:'. DTSBR414 00370 05 HDR2-TIME PIC X(08). DTSBR414 00371 DTSBR414 00372 01 HEADER3. DTSBR414 00373 05 FILLER PIC X(01) VALUE SPACES. DTSBR414 00374 05 FILLER PIC X(14) VALUE DTSBR414 00375 'FIELD REP ID: '. DTSBR414 00376 05 HDR3-ID PIC X(2). DTSBR414 00377 05 FILLER PIC X(18) VALUE SPACES. DTSBR414 00378 05 FILLER PIC X(43) VALUE DTSBR414 00379 'EMPLOYERS WITH GREATER THAN FOUR DELINQUENT'. DTSBR414 00380 05 FILLER PIC X(09) VALUE DTSBR414 00381 ' QUARTERS'. DTSBR414 00382 05 FILLER PIC X(23) VALUE SPACES. DTSBR414 00383 05 FILLER PIC X(06) VALUE 'PAGE:'. DTSBR414 00384 05 HDR3-PAGE PIC ZZ,ZZ9. DTSBR414 00385 01 HEADER4. DTSBR414 00386 05 FILLER PIC X(01) VALUE SPACES. DTSBR414 00387 05 FILLER PIC X(02) VALUE SPACES. DTSBR414 00388 05 FILLER PIC X(06) VALUE DTSBR414 00389 'EMP NO'. DTSBR414 00390 05 FILLER PIC X(05) VALUE SPACES. DTSBR414 00391 05 FILLER PIC X(12) VALUE DTSBR414 00392 'PRIMARY NAME'. DTSBR414 00393 05 FILLER PIC X(09) VALUE SPACES. DTSBR414 00394 05 FILLER PIC X(05) VALUE ' DELQ'. DTSBR414 00395 05 FILLER PIC X(03) VALUE SPACES. DTSBR414 00396 05 FILLER PIC X(13) VALUE DTSBR414 00397 'CONTRIBUTIONS'. DTSBR414 00398 05 FILLER PIC X(02) VALUE SPACES. DTSBR414 00399 05 FILLER PIC X(12) VALUE DTSBR414 00400 ' INTEREST'. DTSBR414 00401 05 FILLER PIC X(02) VALUE SPACES. DTSBR414 00402 05 FILLER PIC X(13) VALUE DTSBR414 00403 ' PENALTY '. DTSBR414 00404 05 FILLER PIC X(02) VALUE SPACES. DTSBR414 00405 05 FILLER PIC X(06) VALUE DTSBR414 00406 'ADMIN.'. DTSBR414 00407 05 FILLER PIC X(09) VALUE SPACES. DTSBR414 00408 05 FILLER PIC X(14) VALUE DTSBR414 00409 'BALANCE '. DTSBR414 00410 DTSBR414 00411 01 HEADER45. DTSBR414 00412 05 FILLER PIC X(01) VALUE SPACES. DTSBR414 00413 05 FILLER PIC X(02) VALUE SPACES. DTSBR414 00414 05 FILLER PIC X(06) VALUE DTSBR414 00415 'EMP NO'. DTSBR414 00416 05 FILLER PIC X(05) VALUE SPACES. DTSBR414 00417 05 FILLER PIC X(12) VALUE DTSBR414 00418 'PRIMARY NAME'. DTSBR414 00419 05 FILLER PIC X(08) VALUE SPACES. DTSBR414 00420 05 FILLER PIC X(05) VALUE ' YR/Q'. DTSBR414 00421 05 FILLER PIC X(04) VALUE SPACES. DTSBR414 00422 05 FILLER PIC X(13) VALUE DTSBR414 00423 'CONTRIBUTIONS'. DTSBR414 00424 05 FILLER PIC X(02) VALUE SPACES. DTSBR414 00425 05 FILLER PIC X(12) VALUE DTSBR414 00426 ' INTEREST'. DTSBR414 00427 05 FILLER PIC X(02) VALUE SPACES. DTSBR414 00428 05 FILLER PIC X(13) VALUE DTSBR414 00429 ' PENALTY '. DTSBR414 00430 05 FILLER PIC X(02) VALUE SPACES. DTSBR414 00431 05 FILLER PIC X(06) VALUE DTSBR414 00432 'ADMIN.'. DTSBR414 00433 05 FILLER PIC X(09) VALUE SPACES. DTSBR414 00434 05 FILLER PIC X(14) VALUE DTSBR414 00435 'BALANCE '. DTSBR414 00436 * 05 FILLER PIC X(15) VALUE DTSBR414 00437 * 'last update'. DTSBR414 00438 01 HEADER5. DTSBR414 00439 05 FILLER PIC X(30) VALUE SPACES. DTSBR414 00440 05 FILLER PIC X(13) VALUE DTSBR414 00441 ' QTRS '. DTSBR414 00442 05 FILLER PIC X(05) VALUE SPACES. DTSBR414 00443 05 FILLER PIC X(13) VALUE DTSBR414 00444 ' DUE '. DTSBR414 00445 05 FILLER PIC X(04) VALUE SPACES. DTSBR414 00446 05 FILLER PIC X(11) VALUE DTSBR414 00447 ' OWED '. DTSBR414 00448 05 FILLER PIC X(09) VALUE DTSBR414 00449 ' OWED '. DTSBR414 00450 05 FILLER PIC X(13) VALUE DTSBR414 00451 'ASSESSMENT '. DTSBR414 00452 05 FILLER PIC X(08) VALUE SPACES. DTSBR414 00453 05 FILLER PIC X(10) VALUE DTSBR414 00454 'DUE '. DTSBR414 00455 01 HEADER55. DTSBR414 00456 05 FILLER PIC X(30) VALUE SPACES. DTSBR414 00457 05 FILLER PIC X(13) VALUE DTSBR414 00458 ' '. DTSBR414 00459 05 FILLER PIC X(05) VALUE SPACES. DTSBR414 00460 05 FILLER PIC X(13) VALUE DTSBR414 00461 ' DUE '. DTSBR414 00462 05 FILLER PIC X(04) VALUE SPACES. DTSBR414 00463 05 FILLER PIC X(11) VALUE DTSBR414 00464 ' OWED '. DTSBR414 00465 05 FILLER PIC X(09) VALUE DTSBR414 00466 ' OWED '. DTSBR414 00467 05 FILLER PIC X(13) VALUE DTSBR414 00468 'ASSESSMENT '. DTSBR414 00469 05 FILLER PIC X(08) VALUE SPACES. DTSBR414 00470 05 FILLER PIC X(10) VALUE DTSBR414 00471 'DUE '. DTSBR414 00472 * 05 FILLER PIC X(15) VALUE DTSBR414 00473 * ' date '. DTSBR414 00474 DTSBR414 00475 01 REPT-STMT-LINE. DTSBR414 00476 10 FILLER PIC X(03) VALUE SPACES. DTSBR414 00477 10 rept-EMP-NO PIC 999B999. DTSBR414 00478 10 FILLER PIC X(03) VALUE SPACES. DTSBR414 00479 10 rept-EMP-NAME PIC X(20). DTSBR414 00480 10 FILLER PIC X(04) VALUE SPACES. DTSBR414 00481 10 rept-QTR-CNT PIC Z9. DTSBR414 00482 10 FILLER PIC X(03) VALUE SPACES. DTSBR414 00483 10 rept-CONTRIB-AMT PIC $$$,$$$,$$$.$$. DTSBR414 00484 * 10 FILLER PIC X(03) VALUE SPACES. DTSBR414 00485 10 rept-INTEREST-AMT PIC $$$,$$$,$$$.$$. DTSBR414 00486 * 10 FILLER PIC X(03) VALUE SPACES. DTSBR414 00487 10 rept-PENALTY-AMT PIC $,$$$,$$$.$$. DTSBR414 00488 * 10 FILLER PIC X(04) VALUE SPACES. DTSBR414 00489 10 rept-SURCHARG-AMT PIC $$$,$$$.$$. DTSBR414 00490 10 FILLER PIC X(05) VALUE SPACES. DTSBR414 00491 10 rept-BALANCE-AMT PIC $,$$$,$$$.$$. DTSBR414 00492 EJECT DTSBR414 00493 01 REPT-qtr4-LINE. DTSBR414 00494 10 FILLER PIC X(03) VALUE SPACES. DTSBR414 00495 10 QTR4-EMP-NO PIC 999B999. DTSBR414 00496 10 FILLER PIC X(02) VALUE SPACES. DTSBR414 00497 10 QTR4-EMP-NAME PIC X(20). DTSBR414 00498 10 FILLER PIC X(02) VALUE SPACES. DTSBR414 00499 10 QTR4-QTR-CNT PIC x(6). DTSBR414 00500 10 FILLER PIC X(02) VALUE SPACES. DTSBR414 00501 10 QTR4-CONTRIB-AMT PIC $$$,$$$,$$$.$$. DTSBR414 00502 * 10 FILLER PIC X(03) VALUE SPACES. DTSBR414 00503 10 QTR4-INTEREST-AMT PIC $$$,$$$,$$$.$$. DTSBR414 00504 * 10 FILLER PIC X(03) VALUE SPACES. DTSBR414 00505 10 QTR4-PENALTY-AMT PIC $,$$$,$$$.$$. DTSBR414 00506 * 10 FILLER PIC X(04) VALUE SPACES. DTSBR414 00507 10 QTR4-SURCHARG-AMT PIC $$$,$$$.$$. DTSBR414 00508 10 FILLER PIC X(05) VALUE SPACES. DTSBR414 00509 10 QTR4-BALANCE-AMT PIC $,$$$,$$$.$$. DTSBR414 00510 * 10 FILLER PIC X(05) VALUE SPACES. DTSBR414 00511 * 10 QTR4-last-upd-date PIC x(10). DTSBR414 00512 01 excl-STMT-LINE. DTSBR414 00513 10 excl-EMP-NO PIC 999B999. DTSBR414 00514 10 FILLER PIC X(01) VALUE ','. DTSBR414 00515 10 excl-EMP-NAME PIC X(20). DTSBR414 00516 10 FILLER PIC X(01) VALUE ','. DTSBR414 00517 10 excl-QTR-CNT PIC Z9. DTSBR414 00518 10 FILLER PIC X(01) VALUE ','. DTSBR414 00519 10 excl-CONTRIB-AMT PIC ----------.99. DTSBR414 00520 10 FILLER PIC X(01) VALUE ','. DTSBR414 00521 10 excl-INTEREST-AMT PIC ----------.99. DTSBR414 00522 10 FILLER PIC X(01) VALUE ','. DTSBR414 00523 10 excl-PENALTY-AMT PIC ---------.99. DTSBR414 00524 10 FILLER PIC X(01) VALUE ','. DTSBR414 00525 10 excl-SURCHARG-AMT PIC -------.99. DTSBR414 00526 10 FILLER PIC X(01) VALUE ','. DTSBR414 00527 10 excl-BALANCE-AMT PIC ---------.99. DTSBR414 00528 EJECT DTSBR414 00529 01 excl-qtr4-LINE. DTSBR414 00530 10 excl-qtr4-EMP-NO PIC 999B999. DTSBR414 00531 10 FILLER PIC X(01) VALUE ','. DTSBR414 00532 10 excl-qtr4-EMP-NAME PIC X(20). DTSBR414 00533 10 FILLER PIC X(01) VALUE ','. DTSBR414 00534 10 excl-qtr4-QTR-CNT PIC x(6). DTSBR414 00535 10 FILLER PIC X(01) VALUE ','. DTSBR414 00536 10 excl-qtr4-CONTRIB-AMT PIC -----------.99. DTSBR414 00537 10 FILLER PIC X(01) VALUE ','. DTSBR414 00538 10 excl-qtr4-INTEREST-AMT PIC -----------.99. DTSBR414 00539 10 FILLER PIC X(01) VALUE ','. DTSBR414 00540 10 excl-qtr4-PENALTY-AMT PIC ---------.99. DTSBR414 00541 10 FILLER PIC X(01) VALUE ','. DTSBR414 00542 10 excl-qtr4-SURCHARG-AMT PIC -------.99. DTSBR414 00543 10 FILLER PIC X(01) VALUE ','. DTSBR414 00544 10 excl-qtr4-BALANCE-AMT PIC ---------.99. DTSBR414 00545 * 10 excl-qtr4-last-upd-date PIC x(10). DTSBR414 00546 01 excl-rec6-LINE. DTSBR414 00547 10 excl-rec6-EMP-NO PIC 999999. CL*19 00548 10 FILLER PIC X(01) VALUE ','. DTSBR414 00549 10 excl-rec6-EMP-NAME PIC X(20). DTSBR414 00550 10 FILLER PIC X(01) VALUE ','. DTSBR414 00551 10 excl-rec6-QTR-CNT PIC x(6). DTSBR414 00552 10 FILLER PIC X(01) VALUE ','. DTSBR414 00553 10 excl-rec6-CONTRIB-AMT PIC -----------.99. DTSBR414 00554 10 FILLER PIC X(01) VALUE ','. DTSBR414 00555 10 excl-rec6-INTEREST-AMT PIC -----------.99. DTSBR414 00556 10 FILLER PIC X(01) VALUE ','. DTSBR414 00557 10 excl-rec6-PENALTY-AMT PIC ---------.99. DTSBR414 00558 10 FILLER PIC X(01) VALUE ','. DTSBR414 00559 10 excl-rec6-SURCHARG-AMT PIC -------.99. DTSBR414 00560 10 FILLER PIC X(01) VALUE ','. DTSBR414 00561 10 excl-rec6-BALANCE-AMT PIC ---------.99. DTSBR414 00562 10 FILLER PIC X(01) VALUE ','. DTSBR414 00563 10 excl-rec6-field-rep PIC x(2). CL*32 00564 10 FILLER PIC X(01) VALUE ','. CL*20 00565 10 excl-rec6-status PIC x(01). CL*25 00566 10 FILLER PIC X(01) VALUE ','. CL*29 00567 10 excl-rec6-class PIC x(01). CL*29 00568 10 FILLER PIC X(01) VALUE ','. CL*35 00569 10 excl-rec6-lien PIC x(01). CL*37 00570 10 FILLER PIC X(01) VALUE ','. CL*39 00571 10 excl-rec6-pursued pic 9(02). CL*39 00572 * CL*25 00573 01 L001-LINK-AREA. DTSBR414 00574 ++INCLUDE DTSIL001 DTSBR414 00575 EJECT DTSBR414 00576 01 L005-LINK-AREA. DTSBR414 00577 ++INCLUDE DTSIL005 DTSBR414 00578 DTSBR414 00579 01 BARI-LINK-AREA. DTSBR414 00580 ++INCLUDE BARIL599 DTSBR414 00581 DTSBR414 00582 LINKAGE SECTION. DTSBR414 00583 SKIP3 DTSBR414 00584 01 LRCM-LINK-AREA. DTSBR414 00585 ++INCLUDE DTSILRCM DTSBR414 00586 EJECT DTSBR414 00587 01 R414-REC. DTSBR414 00588 ++INCLUDE DTSIR414 DTSBR414 00589 EJECT DTSBR414 00590 PROCEDURE DIVISION USING LRCM-LINK-AREA DTSBR414 00591 R414-REC. DTSBR414 00592 SKIP2 DTSBR414 00593 IF FIRST-TIME-IND = 'Y' DTSBR414 00594 PERFORM I1000-INITIATE THRU I1000-EXIT DTSBR414 00595 MOVE 'N' TO FIRST-TIME-IND. DTSBR414 00596 DTSBR414 00597 IF LRCM-EOR-88 DTSBR414 00598 PERFORM T1000-TERMINATE THRU T1000-EXIT DTSBR414 00599 ELSE DTSBR414 00600 PERFORM P1000-PROCESS THRU P1000-EXIT. DTSBR414 00601 SKIP2 DTSBR414 00602 GOBACK. DTSBR414 00603 EJECT DTSBR414 00604 I1000-INITIATE. DTSBR414 00605 OPEN OUTPUT PRT-FILE1 PRT-FILE2 PRT-FILE4 CL**6 00606 ** OPEN OUTPUT PRT-FILE1 PRT-FILE4 PRT-FILE6. CL**6 00607 PRT-FILE6. CL**6 00608 DTSBR414 00609 MOVE +0 TO PRT-FILE1-PAGE-CNT. DTSBR414 00610 DTSBR414 00611 MOVE 0 TO STMT-EMP-NO DTSBR414 00612 STUB-EMP-NO DTSBR414 00613 STUB-EMP-FEIN DTSBR414 00614 STMT-EMP-FEIN DTSBR414 00615 rept-emp-no. DTSBR414 00616 MOVE SPACES TO STMT-STMT-DATE DTSBR414 00617 STMT-COMP-DATE. DTSBR414 00618 DTSBR414 00619 PERFORM S005-FROM-SYS THRU S005-EXIT. DTSBR414 00620 MOVE L005-SLASH-DATE TO HDR1-DATE DTSBR414 00621 MOVE L005-DISPLAY-TIME TO HDR2-TIME. DTSBR414 00622 DTSBR414 00623 I1000-EXIT. DTSBR414 00624 EXIT. DTSBR414 00625 SKIP3 DTSBR414 00626 P1000-PROCESS. DTSBR414 00627 if r414-emp-no = 022647 DTSBR414 00628 display 'br414 p0 ' r414-emp-no DTSBR414 00629 end-if. DTSBR414 00630 DTSBR414 00631 SET PRINT-FNOTE1-NO-88 TO TRUE. DTSBR414 00632 SET PRINT-FNOTE2-NO-88 TO TRUE. DTSBR414 00633 SET PRINT-FNOTE3-NO-88 TO TRUE. DTSBR414 00634 SET PRINT-FNOTE4-NO-88 TO TRUE. DTSBR414 00635 SET PRINT-BILL-NO-88 TO TRUE. DTSBR414 00636 MOVE SPACES TO WS-REC. DTSBR414 00637 DTSBR414 00638 MOVE +0 TO WS-TOTAL-CONTRIB-AMT DTSBR414 00639 WS-TOTAL-PENALTY-AMT DTSBR414 00640 WS-TOTAL-INTEREST-AMT DTSBR414 00641 WS-TOTAL-SURCHARG-AMT DTSBR414 00642 WS-STUB-BALANCE-AMT DTSBR414 00643 WS-TOTAL-BALANCE-AMT. DTSBR414 00644 DTSBR414 00645 IF R414-QTR-CNT > 70 CL*17 00646 PERFORM P2000-PRINT-REPORT THRU P2000-EXIT CL*12 00647 **testing the printing of all quarters DTSBR414 00648 GO TO P1000-EXIT. CL*12 00649 DTSBR414 00650 PERFORM P1100-STUB-STMT-TOTALS THRU P1100-EXIT DTSBR414 00651 VARYING R414-QTR-IDX FROM 1 BY 1 DTSBR414 00652 UNTIL R414-QTR-IDX > R414-QTR-CNT. DTSBR414 00653 DTSBR414 00654 MOVE R414-EMP-NO TO STUB-EMP-NO DTSBR414 00655 STMT-EMP-NO DTSBR414 00656 BARC-EMP-NO. DTSBR414 00657 MOVE R414-EMP-FEIN TO STUB-EMP-FEIN DTSBR414 00658 STMT-EMP-FEIN. DTSBR414 00659 MOVE WS-STUB-BALANCE-AMT TO STUB-AMT. DTSBR414 00660 DTSBR414 00661 MOVE R414-STMT-DATE TO L001-FED-8-DATE-9. DTSBR414 00662 PERFORM S001-FROM-FED-8 THRU S001-EXIT. DTSBR414 00663 MOVE L001-SLASH-8-DATE TO STUB-STMT-DATE DTSBR414 00664 STMT-STMT-DATE. DTSBR414 00665 DTSBR414 00666 MOVE R414-COMP-DATE TO L001-FED-8-DATE-9. DTSBR414 00667 PERFORM S001-FROM-FED-8 THRU S001-EXIT. DTSBR414 00668 IF L001-INVALID-DATE DTSBR414 00669 MOVE SPACES TO STUB-COMP-DATE DTSBR414 00670 STMT-COMP-DATE DTSBR414 00671 ELSE DTSBR414 00672 MOVE L001-SLASH-8-DATE TO STUB-COMP-DATE DTSBR414 00673 STMT-COMP-DATE. DTSBR414 00674 DTSBR414 00675 MOVE R414-FMT-LINE (1) TO STUB-ADDR-LINE1 DTSBR414 00676 MAIL-ADDR-LINE1 DTSBR414 00677 WS-EMP-NAME. DTSBR414 00678 DTSBR414 00679 MOVE R414-FMT-LINE (2) TO STUB-ADDR-LINE2 DTSBR414 00680 MAIL-ADDR-LINE2. DTSBR414 00681 DTSBR414 00682 MOVE R414-FMT-LINE (3) TO STUB-ADDR-LINE3 DTSBR414 00683 MAIL-ADDR-LINE3. DTSBR414 00684 DTSBR414 00685 MOVE R414-FMT-LINE (4) TO STUB-ADDR-LINE4 DTSBR414 00686 MAIL-ADDR-LINE4. DTSBR414 00687 DTSBR414 00688 MOVE R414-FMT-LINE (5) TO STUB-ADDR-LINE5 DTSBR414 00689 MAIL-ADDR-LINE5. DTSBR414 00690 DTSBR414 00691 MOVE WRK-FIRST-4 TO STMT-NAME-CHEK. DTSBR414 00692 DTSBR414 00693 MOVE R414-LAST-ACCT-UPDATE-DATE TO L001-FED-8-DATE-9. DTSBR414 00694 PERFORM S001-FROM-FED-8 THRU S001-EXIT. DTSBR414 00695 MOVE L001-SLASH-8-DATE TO STMT-LAST-ACCT-UPDATE-DATE. DTSBR414 00696 DTSBR414 00697 IF PRINT-BILL-YES-88 DTSBR414 00698 PERFORM P1200-PRINT-STUB-MAILR THRU P1200-EXIT. DTSBR414 00699 DTSBR414 00700 * IF PRT-FILE1-PAGE-CNT > 10 DTSBR414 00701 * SET LRCM-EOR-88 TO TRUE DTSBR414 00702 * GO TO P1000-EXIT. DTSBR414 00703 DTSBR414 00704 MOVE 24 TO LINE-CNT. DTSBR414 00705 DTSBR414 00706 SET AMT-DISPLAYED-NO-88 TO TRUE. DTSBR414 00707 SET SUM-PRIOR-QTRS-NO-88 TO TRUE. DTSBR414 00708 SET PRINT-PRIOR-QTRS-NO-88 TO TRUE. DTSBR414 00709 DTSBR414 00710 MOVE 0 TO WS-QTR-PLUS20 DTSBR414 00711 WS-QTR-CNT. DTSBR414 00712 **nh testing DTSBR414 00713 MOVE +0 TO WS-TOTAL-CONTRIB-AMT DTSBR414 00714 WS-TOTAL-PENALTY-AMT DTSBR414 00715 WS-TOTAL-INTEREST-AMT DTSBR414 00716 WS-TOTAL-SURCHARG-AMT DTSBR414 00717 WS-STUB-BALANCE-AMT DTSBR414 00718 WS-TOTAL-BALANCE-AMT. DTSBR414 00719 DTSBR414 00720 PERFORM P1300-DISPLAY-QTR THRU P1300-EXIT DTSBR414 00721 VARYING R414-QTR-IDX FROM 1 BY 1 DTSBR414 00722 UNTIL R414-QTR-IDX > R414-QTR-CNT. DTSBR414 00723 DTSBR414 00724 MOVE SPACES TO WS-REC DTSBR414 00725 DTSBR414 00726 ** IF PRINT-BILL-NO-88 CL*30 00727 ** GO TO P1000-EXIT. CL*30 00728 DTSBR414 00729 IF AMT-DISPLAYED-YES-88 DTSBR414 00730 *** IF AMT-DISPLAYED-YES-88 and DTSBR414 00731 *** ws-total-balance-amt > +5.00 DTSBR414 00732 MOVE WS-TOTAL-CONTRIB-AMT TO TOTAL-CONTRIB-AMT DTSBR414 00733 MOVE WS-TOTAL-INTEREST-AMT TO TOTAL-INTEREST-AMT DTSBR414 00734 MOVE WS-TOTAL-SURCHARG-AMT TO TOTAL-SURCHARG-AMT DTSBR414 00735 MOVE WS-TOTAL-PENALTY-AMT TO TOTAL-PENALTY-AMT DTSBR414 00736 MOVE WS-TOTAL-BALANCE-AMT TO TOTAL-BALANCE-AMT. DTSBR414 00737 ** else DTSBR414 00738 ** GO TO P1000-EXIT DTSBR414 00739 ** end-if. DTSBR414 00740 **nh DTSBR414 00741 ** COMPUTE WRK-CTR = TOT-LINE-CNT - LINE-CNT. DTSBR414 00742 COMPUTE WRK-CTR = TOT-LINE-CNT - LINE-CNT - 2. DTSBR414 00743 DTSBR414 00744 IF AMT-DISPLAYED-YES-88 DTSBR414 00745 MOVE STMT-TOTAL-LINE TO WS-REC DTSBR414 00746 ELSE DTSBR414 00747 MOVE SPACES TO WS-REC. DTSBR414 00748 DTSBR414 00749 WRITE PRT-REC1 FROM WS-REC DTSBR414 00750 AFTER ADVANCING WRK-CTR LINES. DTSBR414 00751 DTSBR414 00752 MOVE SPACES TO WS-REC DTSBR414 00753 DTSBR414 00754 DTSBR414 00755 IF PRINT-FNOTE2-YES-88 DTSBR414 00756 WRITE PRT-REC1 FROM FNOTE-MISSING-RPT DTSBR414 00757 AFTER ADVANCING 1 LINES DTSBR414 00758 WRITE PRT-REC1 FROM WS-REC DTSBR414 00759 AFTER ADVANCING 1 LINES DTSBR414 00760 ELSE DTSBR414 00761 WRITE PRT-REC1 FROM WS-REC DTSBR414 00762 AFTER ADVANCING 1 LINES. DTSBR414 00763 DTSBR414 00764 IF PRINT-FNOTE1-YES-88 DTSBR414 00765 WRITE PRT-REC1 FROM FNOTE1 DTSBR414 00766 AFTER ADVANCING 1 LINES. DTSBR414 00767 DTSBR414 00768 IF PRINT-FNOTE2-YES-88 DTSBR414 00769 WRITE PRT-REC1 FROM FNOTE2 DTSBR414 00770 AFTER ADVANCING 1 LINES. DTSBR414 00771 DTSBR414 00772 IF PRINT-FNOTE3-YES-88 DTSBR414 00773 WRITE PRT-REC1 FROM FNOTE3 DTSBR414 00774 AFTER ADVANCING 1 LINES. DTSBR414 00775 DTSBR414 00776 IF PRINT-FNOTE4-YES-88 DTSBR414 00777 WRITE PRT-REC1 FROM FNOTE4 DTSBR414 00778 AFTER ADVANCING 1 LINES. DTSBR414 00779 DTSBR414 00780 DTSBR414 00781 MOVE SPACES TO WS-XREC DTSBR414 00782 DTSBR414 00783 PERFORM P1500-PRINT-MAILR-ADDR THRU P1500-EXIT. DTSBR414 00784 DTSBR414 00785 PERFORM P1600-excel-MAILR-sent THRU P1600-EXIT. DTSBR414 00786 DTSBR414 00787 P1000-EXIT. DTSBR414 00788 EXIT. DTSBR414 00789 SKIP3 DTSBR414 00790 DTSBR414 00791 P1100-STUB-STMT-TOTALS. DTSBR414 00792 DTSBR414 00793 SET PRINT-BILL-YES-88 TO TRUE. DTSBR414 00794 DTSBR414 00795 IF R414-BALANCE-AMT (R414-QTR-IDX) > ZEROS DTSBR414 00796 ADD R414-BALANCE-AMT (R414-QTR-IDX) DTSBR414 00797 TO WS-STUB-BALANCE-AMT. DTSBR414 00798 CL*17 00799 P1100-EXIT. DTSBR414 00800 EXIT. DTSBR414 00801 SKIP3 DTSBR414 00802 DTSBR414 00803 P1200-PRINT-STUB-MAILR. DTSBR414 00804 ** DTSBR414 00805 PERFORM S599-BARCODE THRU S599-EXIT. DTSBR414 00806 DTSBR414 00807 IF L599-SETB-FONT1 DTSBR414 00808 MOVE 'MODIFY=TAXSM1,' TO XEROX-CME DTSBR414 00809 ELSE DTSBR414 00810 IF L599-SETB-FONT2 DTSBR414 00811 MOVE 'MODIFY=TAXSM2,' TO XEROX-CME DTSBR414 00812 ELSE DTSBR414 00813 MOVE 'MODIFY=TAXSM1,' TO XEROX-CME. DTSBR414 00814 DTSBR414 00815 MOVE XEROX-8X11-LINE TO WS-REC. DTSBR414 00816 WRITE PRT-REC1 FROM WS-REC DTSBR414 00817 AFTER ADVANCING PAGE. DTSBR414 00818 DTSBR414 00819 MOVE XEROX-CNTL-LINE2 TO WS-REC. DTSBR414 00820 WRITE PRT-REC1 FROM WS-REC DTSBR414 00821 AFTER ADVANCING 1. DTSBR414 00822 ** DTSBR414 00823 ADD +1 TO PRT-FILE1-PAGE-CNT DTSBR414 00824 MOVE SPACES TO WS-REC DTSBR414 00825 WRITE PRT-REC1 FROM WS-REC AFTER ADVANCING 09 LINES DTSBR414 00826 MOVE STUB-LINE TO WS-REC DTSBR414 00827 WRITE PRT-REC1 FROM WS-REC AFTER ADVANCING 1 LINES DTSBR414 00828 MOVE ADDR01 TO WS-REC DTSBR414 00829 WRITE PRT-REC1 FROM WS-REC AFTER ADVANCING 1 LINES DTSBR414 00830 MOVE ADDR02 TO WS-REC DTSBR414 00831 WRITE PRT-REC1 FROM WS-REC AFTER ADVANCING 1 LINES DTSBR414 00832 MOVE ADDR03 TO WS-REC DTSBR414 00833 WRITE PRT-REC1 FROM WS-REC AFTER ADVANCING 1 LINES DTSBR414 00834 MOVE ADDR04 TO WS-REC DTSBR414 00835 WRITE PRT-REC1 FROM WS-REC AFTER ADVANCING 1 LINES DTSBR414 00836 MOVE ADDR05 TO WS-REC DTSBR414 00837 WRITE PRT-REC1 FROM WS-REC AFTER ADVANCING 1 LINES DTSBR414 00838 MOVE STMT-LINE1 TO WS-REC DTSBR414 00839 WRITE PRT-REC1 FROM WS-REC AFTER ADVANCING 4 LINES DTSBR414 00840 ** WRITE PRT-REC1 FROM WS-REC AFTER ADVANCING 7 LINES DTSBR414 00841 MOVE STMT-LINE2 TO WS-REC DTSBR414 00842 ** WRITE PRT-REC1 FROM WS-REC AFTER ADVANCING 5 LINES. DTSBR414 00843 WRITE PRT-REC1 FROM WS-REC AFTER ADVANCING 7 LINES. DTSBR414 00844 MOVE SPACES TO WS-REC. DTSBR414 00845 WRITE PRT-REC1 FROM WS-REC AFTER ADVANCING 3 LINES. DTSBR414 00846 P1200-EXIT. DTSBR414 00847 EXIT. DTSBR414 00848 SKIP3 DTSBR414 00849 P1300-DISPLAY-QTR. DTSBR414 00850 DTSBR414 00851 MOVE SPACES TO STMT-QTR-DETAIL DTSBR414 00852 WS-QTR-FNOTE. DTSBR414 00853 IF LRCM-PICKUP-YRQ = R414-QTR (R414-QTR-IDX) DTSBR414 00854 MOVE 'PRIOR TO ' TO QTR-DET-YR DTSBR414 00855 MOVE '1995/4' TO QTR-DET-FNOTE DTSBR414 00856 ELSE DTSBR414 00857 MOVE R414-QTR (R414-QTR-IDX) TO WS-WRK-QTR DTSBR414 00858 IF R414-ANN-FILER-YES-88 (R414-QTR-IDX) DTSBR414 00859 MOVE SPACES TO WRK-PRT-Q DTSBR414 00860 MOVE WRK-QTR-YR TO WRK-PRT-YR DTSBR414 00861 MOVE SPACES TO WRK-PRT-SLASH DTSBR414 00862 MOVE WS-PRT-QTR TO QTR-DET-YR1 DTSBR414 00863 MOVE SPACES TO QTR-DET-YR2 DTSBR414 00864 ELSE DTSBR414 00865 MOVE WRK-QTR-Q TO WRK-PRT-Q DTSBR414 00866 MOVE WRK-QTR-YR TO WRK-PRT-YR DTSBR414 00867 MOVE '/' TO WRK-PRT-SLASH DTSBR414 00868 MOVE WS-PRT-QTR TO QTR-DET-YR1 DTSBR414 00869 MOVE SPACES TO QTR-DET-YR2. DTSBR414 00870 CL*27 00871 IF R414-BALANCE-AMT (R414-QTR-IDX) > +0 DTSBR414 00872 SET AMT-DISPLAYED-YES-88 TO TRUE DTSBR414 00873 MOVE R414-CONTRIB-AMT (R414-QTR-IDX) DTSBR414 00874 TO QTR-DET-CONTRIB-AMT DTSBR414 00875 ADD R414-CONTRIB-AMT (R414-QTR-IDX) DTSBR414 00876 TO WS-TOTAL-CONTRIB-AMT DTSBR414 00877 ADD R414-INTEREST-AMT (R414-QTR-IDX) DTSBR414 00878 TO WS-TOTAL-INTEREST-AMT DTSBR414 00879 MOVE R414-INTEREST-AMT (R414-QTR-IDX) DTSBR414 00880 TO QTR-DET-INTEREST-AMT DTSBR414 00881 ADD R414-PENALTY-AMT (R414-QTR-IDX) DTSBR414 00882 TO WS-TOTAL-PENALTY-AMT DTSBR414 00883 MOVE R414-PENALTY-AMT (R414-QTR-IDX) DTSBR414 00884 TO QTR-DET-PENALTY-AMT DTSBR414 00885 ADD R414-SURCHARG-AMT (R414-QTR-IDX) DTSBR414 00886 TO WS-TOTAL-SURCHARG-AMT DTSBR414 00887 MOVE R414-SURCHARG-AMT (R414-QTR-IDX) DTSBR414 00888 TO QTR-DET-SURCHARG-AMT DTSBR414 00889 ADD R414-BALANCE-AMT (R414-QTR-IDX) DTSBR414 00890 TO WS-TOTAL-BALANCE-AMT DTSBR414 00891 MOVE R414-BALANCE-AMT (R414-QTR-IDX) DTSBR414 00892 TO QTR-DET-BALANCE-AMT. DTSBR414 00893 DTSBR414 00894 IF LRCM-PICKUP-YRQ = R414-QTR (R414-QTR-IDX) DTSBR414 00895 SET R414-ANN-FILER-NO-88 (R414-QTR-IDX) TO TRUE DTSBR414 00896 SET R414-RPT-MISSING-NO-88 (R414-QTR-IDX) TO TRUE DTSBR414 00897 SET R414-QTR-EST-RPT-NO-88 (R414-QTR-IDX) TO TRUE DTSBR414 00898 SET R414-QTR-APPEAL-NO-88 (R414-QTR-IDX) TO TRUE. DTSBR414 00899 DTSBR414 00900 IF R414-QTR-APPEAL-YES-88 (R414-QTR-IDX) DTSBR414 00901 SET PRINT-FNOTE4-YES-88 TO TRUE DTSBR414 00902 MOVE '(d)' TO WFNOTE1 DTSBR414 00903 ELSE DTSBR414 00904 IF R414-QTR-EST-RPT-YES-88 (R414-QTR-IDX) DTSBR414 00905 SET PRINT-FNOTE1-YES-88 TO TRUE DTSBR414 00906 MOVE '(a)' TO WFNOTE1 DTSBR414 00907 ELSE DTSBR414 00908 IF R414-RPT-MISSING-YES-88 (R414-QTR-IDX) DTSBR414 00909 SET PRINT-FNOTE2-YES-88 TO TRUE DTSBR414 00910 MOVE '(b)' TO WFNOTE1. DTSBR414 00911 DTSBR414 00912 IF R414-ANN-FILER-YES-88 (R414-QTR-IDX) DTSBR414 00913 SET PRINT-FNOTE3-YES-88 TO TRUE DTSBR414 00914 IF WFNOTE1 = SPACES DTSBR414 00915 MOVE '(c)' TO WFNOTE1 DTSBR414 00916 ELSE DTSBR414 00917 MOVE '(c)' TO WFNOTE2. DTSBR414 00918 DTSBR414 00919 DTSBR414 00920 IF WS-QTR-FNOTE > SPACES DTSBR414 00921 MOVE WS-QTR-FNOTE TO QTR-DET-FNOTE. DTSBR414 00922 DTSBR414 00923 ** ADD 1 TO LINE-CNT. DTSBR414 00924 ** MOVE STMT-QTR-DETAIL TO WS-REC. DTSBR414 00925 ** WRITE PRT-REC1 FROM WS-REC AFTER 1. DTSBR414 00926 ***testing all bill printing DTSBR414 00927 If line-cnt < 44 and R414-QTR-IDX <= R414-QTR-CNT DTSBR414 00928 ADD 1 TO LINE-CNT DTSBR414 00929 MOVE STMT-QTR-DETAIL TO WS-REC DTSBR414 00930 WRITE PRT-REC1 FROM WS-REC AFTER 1 DTSBR414 00931 else DTSBR414 00932 add r414-contrib-amt(r414-qtr-idx) to ws-max-camt DTSBR414 00933 add r414-interest-amt(r414-qtr-idx) to ws-max-iamt DTSBR414 00934 add r414-penalty-amt(r414-qtr-idx) to ws-max-pamt DTSBR414 00935 add r414-surcharg-amt(r414-qtr-idx) to ws-max-samt DTSBR414 00936 add r414-balance-amt(r414-qtr-idx) to ws-max-bamt DTSBR414 00937 move spaces to ws-rec DTSBR414 00938 if r414-qtr-idx = r414-qtr-cnt DTSBR414 00939 move 'Sub To' to qtr-det-yr1 DTSBR414 00940 move 'tal' to qtr-det-yr2 DTSBR414 00941 move spaces to QTR-DET-FNOTE1 DTSBR414 00942 QTR-DET-FNOTE2 DTSBR414 00943 move ws-max-camt to qtr-det-contrib-amt DTSBR414 00944 move ws-max-iamt to qtr-det-interest-amt DTSBR414 00945 move ws-max-pamt to qtr-det-penalty-amt DTSBR414 00946 move ws-max-samt to qtr-det-surcharg-amt DTSBR414 00947 move ws-max-bamt to qtr-det-balance-amt DTSBR414 00948 MOVE STMT-QTR-DETAIL TO WS-REC DTSBR414 00949 WRITE PRT-REC1 FROM WS-REC after 1 DTSBR414 00950 add 1 to line-cnt DTSBR414 00951 move zeros to ws-max-camt DTSBR414 00952 ws-max-iamt DTSBR414 00953 ws-max-pamt DTSBR414 00954 ws-max-samt DTSBR414 00955 ws-max-bamt DTSBR414 00956 end-if DTSBR414 00957 end-if. DTSBR414 00958 DTSBR414 00959 p1300-EXIT. DTSBR414 00960 eXIT. DTSBR414 00961 DTSBR414 00962 ** DTSBR414 00963 P1500-PRINT-MAILR-ADDR. DTSBR414 00964 ** DTSBR414 00965 MOVE L599-BARCODED-DATA TO converted-barcode. DTSBR414 00966 DTSBR414 00967 MOVE spaces TO WS-REC. DTSBR414 00968 WRITE PRT-REC1 FROM WS-REC DTSBR414 00969 AFTER ADVANCING PAGE. DTSBR414 00970 DTSBR414 00971 WRITE PRT-REC1 FROM WS-BARC-LINE AFTER 04. DTSBR414 00972 ** DTSBR414 00973 MOVE LINE-ADDR-17 TO WS-XREC DTSBR414 00974 WRITE PRT-REC1 FROM WS-XREC DTSBR414 00975 AFTER ADVANCING 13 lines DTSBR414 00976 MOVE LINE-ADDR-18 TO WS-XREC DTSBR414 00977 WRITE PRT-REC1 FROM WS-XREC AFTER 1 DTSBR414 00978 MOVE LINE-ADDR-19 TO WS-XREC DTSBR414 00979 WRITE PRT-REC1 FROM WS-XREC AFTER 1 DTSBR414 00980 MOVE LINE-ADDR-20 TO WS-XREC DTSBR414 00981 WRITE PRT-REC1 FROM WS-XREC AFTER 1 DTSBR414 00982 MOVE LINE-ADDR-21 TO WS-XREC DTSBR414 00983 WRITE PRT-REC1 FROM WS-XREC AFTER 1. DTSBR414 00984 P1500-EXIT. DTSBR414 00985 EXIT. DTSBR414 00986 SKIP3 DTSBR414 00987 ** DTSBR414 00988 P1600-excel-mailr-sent. DTSBR414 00989 DTSBR414 00990 MOVE R414-EMP-NO TO EXCL-REC6-EMP-NO. DTSBR414 00991 MOVE R414-QTR-CNT TO EXCL-REC6-QTR-CNT DTSBR414 00992 MOVE R414-FMT-LINE (1) TO EXCL-REC6-EMP-NAME. DTSBR414 00993 move r414-status to excl-rec6-status. CL*24 00994 move r414-class to excl-rec6-class. CL*28 00995 move r414-field-rep to excl-rec6-field-rep. CL*33 00996 move r414-lien to excl-rec6-lien. CL*36 00997 move r414-pursued to excl-rec6-pursued. CL*38 00998 inspect excl-REC6-emp-name replacing all ',' by spaces DTSBR414 00999 DTSBR414 01000 IF AMT-DISPLAYED-YES-88 DTSBR414 01001 MOVE WS-TOTAL-CONTRIB-AMT TO EXCL-rec6-CONTRIB-AMT DTSBR414 01002 MOVE WS-TOTAL-INTEREST-AMT TO EXCL-rec6-INTEREST-AMT DTSBR414 01003 MOVE WS-TOTAL-SURCHARG-AMT TO EXCL-rec6-SURCHARG-AMT DTSBR414 01004 MOVE WS-TOTAL-PENALTY-AMT TO EXCL-rec6-PENALTY-AMT DTSBR414 01005 MOVE WS-TOTAL-BALANCE-AMT TO EXCL-rec6-BALANCE-AMT DTSBR414 01006 ELSE DTSBR414 01007 MOVE ZEROS TO EXCL-rec6-CONTRIB-AMT DTSBR414 01008 EXCL-rec6-INTEREST-AMT DTSBR414 01009 EXCL-rec6-SURCHARG-AMT DTSBR414 01010 EXCL-rec6-PENALTY-AMT DTSBR414 01011 EXCL-rec6-BALANCE-AMT. DTSBR414 01012 DTSBR414 01013 WRITE PRT-REC6 FROM EXCL-REC6-LINE AFTER 1. DTSBR414 01014 P1600-EXIT. DTSBR414 01015 EXIT. DTSBR414 01016 SKIP3 DTSBR414 01017 P2000-PRINT-REPORT. DTSBR414 01018 IF R414-FLD-REP-ID NOT = WS-FLD-REP-ID CL**8 01019 MOVE R414-FLD-REP-ID TO WS-FLD-REP-ID CL**8 01020 HDR3-ID CL**8 01021 PERFORM P2500-PRINT-HEADERS THRU P2500-EXIT CL**8 01022 ELSE CL**8 01023 IF REC2-LINE-CNT > 51 CL**8 01024 PERFORM P2500-PRINT-HEADERS THRU P2500-EXIT. CL**8 01025 DTSBR414 01026 MOVE R414-EMP-NO TO REPT-EMP-NO DTSBR414 01027 excl-EMP-NO. DTSBR414 01028 MOVE R414-QTR-CNT TO REPT-QTR-CNT DTSBR414 01029 excl-QTR-CNT DTSBR414 01030 MOVE R414-FMT-LINE (1) TO REPT-EMP-NAME DTSBR414 01031 excl-EMP-NAME. DTSBR414 01032 inspect rept-emp-name replacing all ',' by spaces DTSBR414 01033 inspect excl-emp-name replacing all ',' by spaces DTSBR414 01034 ****nh DTSBR414 01035 MOVE +0 TO WS-TOTAL-CONTRIB-AMT DTSBR414 01036 WS-TOTAL-PENALTY-AMT DTSBR414 01037 WS-TOTAL-INTEREST-AMT DTSBR414 01038 WS-TOTAL-SURCHARG-AMT DTSBR414 01039 WS-STUB-BALANCE-AMT DTSBR414 01040 WS-TOTAL-BALANCE-AMT. DTSBR414 01041 ***nh DTSBR414 01042 if r414-emp-no = 122959 CL*40 01043 go to P2000-EXIT. CL*40 01044 ***nh CL*40 01045 PERFORM P2100-REPT-STMT-TOTALS THRU P2100-EXIT DTSBR414 01046 VARYING R414-QTR-IDX FROM 1 BY 1 DTSBR414 01047 UNTIL R414-QTR-IDX > R414-QTR-CNT. DTSBR414 01048 DTSBR414 01049 MOVE WS-TOTAL-CONTRIB-AMT TO REPT-CONTRIB-AMT DTSBR414 01050 excl-CONTRIB-AMT. DTSBR414 01051 MOVE WS-TOTAL-INTEREST-AMT TO REPT-INTEREST-AMT DTSBR414 01052 excl-INTEREST-AMT. DTSBR414 01053 MOVE WS-TOTAL-PENALTY-AMT TO REPT-PENALTY-AMT DTSBR414 01054 excl-PENALTY-AMT. DTSBR414 01055 MOVE WS-TOTAL-SURCHARG-AMT TO REPT-SURCHARG-AMT DTSBR414 01056 excl-SURCHARG-AMT. DTSBR414 01057 MOVE WS-TOTAL-BALANCE-AMT TO REPT-BALANCE-AMT DTSBR414 01058 excl-BALANCE-AMT. DTSBR414 01059 DTSBR414 01060 WRITE PRT-REC2 FROM REPT-STMT-LINE AFTER 1. CL**8 01061 WRITE PRT-REC4 FROM excl-STMT-LINE AFTER 1. DTSBR414 01062 ADD 1 TO REC2-LINE-CNT DTSBR414 01063 WS-REPT-CNT. DTSBR414 01064 P2000-EXIT. DTSBR414 01065 EXIT. DTSBR414 01066 DTSBR414 01067 P2100-REPT-STMT-TOTALS. DTSBR414 01068 IF R414-BALANCE-AMT (R414-QTR-IDX) > +0 DTSBR414 01069 ADD R414-CONTRIB-AMT (R414-QTR-IDX) DTSBR414 01070 TO WS-TOTAL-CONTRIB-AMT DTSBR414 01071 ADD R414-INTEREST-AMT (R414-QTR-IDX) DTSBR414 01072 TO WS-TOTAL-INTEREST-AMT DTSBR414 01073 ADD R414-PENALTY-AMT (R414-QTR-IDX) DTSBR414 01074 TO WS-TOTAL-PENALTY-AMT DTSBR414 01075 ADD R414-SURCHARG-AMT (R414-QTR-IDX) DTSBR414 01076 TO WS-TOTAL-SURCHARG-AMT DTSBR414 01077 ADD R414-BALANCE-AMT (R414-QTR-IDX) DTSBR414 01078 TO WS-TOTAL-BALANCE-AMT. DTSBR414 01079 display 'r414-emp-no ' r414-emp-no. CL*27 01080 P2100-EXIT. DTSBR414 01081 EXIT. DTSBR414 01082 DTSBR414 01083 DTSBR414 01084 P2500-PRINT-HEADERS. CL**8 01085 ADD 1 TO REC2-PAGE-CNT. CL**8 01086 move REC2-PAGE-CNT to hdr3-page. CL**8 01087 WRITE PRT-REC2 FROM HEADER1 AFTER ADVANCING PAGE. CL**8 01088 WRITE PRT-REC2 FROM HEADER2 AFTER ADVANCING 1 CL**8 01089 WRITE PRT-REC2 FROM HEADER3 AFTER ADVANCING 1 CL**8 01090 WRITE PRT-REC2 FROM HEADER4 AFTER ADVANCING 1 CL**8 01091 WRITE PRT-REC2 FROM HEADER5 AFTER ADVANCING 1 CL**8 01092 WRITE PRT-REC2 FROM BLKLINE AFTER ADVANCING 1 CL**8 01093 MOVE 6 TO REC2-LINE-CNT. CL**8 01094 P2500-EXIT. CL**8 01095 EXIT. CL**8 01096 T1000-TERMINATE. DTSBR414 01097 ** CLOSE PRT-FILE1 PRT-FILE2 PRT-FILE4 CL**2 01098 CLOSE PRT-FILE1 PRT-FILE4 PRT-FILE6 CL**2 01099 ** PRT-FILE6. CL**2 01100 DTSBR414 01101 DISPLAY '***'. DTSBR414 01102 DTSBR414 01103 DISPLAY '*** DTSBR414 (STATEMENT OF ACCOUNTS ) ' DTSBR414 01104 'TERMINATION STATISTICS'. DTSBR414 01105 DTSBR414 01106 DISPLAY '***'. DTSBR414 01107 DTSBR414 01108 MOVE PRT-FILE1-PAGE-CNT TO DISPLAY-CNT-Z. DTSBR414 01109 DISPLAY '*** ' DTSBR414 01110 DISPLAY-CNT DTSBR414 01111 ' -8X11 PAGE STATEMENTS PRINTED'. DTSBR414 01112 DTSBR414 01113 DISPLAY ' '. DTSBR414 01114 DISPLAY ' EMPLOYERS WITH > 6 DELQ QTRS: ' WS-REPT-CNT. DTSBR414 01115 DTSBR414 01116 DISPLAY '***END JOB****'. DTSBR414 01117 DTSBR414 01118 T1000-EXIT. DTSBR414 01119 EXIT. DTSBR414 01120 EJECT DTSBR414 01121 S001-FROM-FED-8. DTSBR414 01122 SET L001-FROM-FED-8 TO TRUE. DTSBR414 01123 GO TO S001-DATE. DTSBR414 01124 DTSBR414 01125 S001-DATE. DTSBR414 01126 CALL 'DTSBU001' USING L001-LINK-AREA. DTSBR414 01127 S001-EXIT. DTSBR414 01128 EXIT. DTSBR414 01129 SKIP3 DTSBR414 01130 S005-FROM-SYS. DTSBR414 01131 SET L005-FROM-SYS TO TRUE. DTSBR414 01132 CALL 'DTSBU005' USING L005-LINK-AREA. DTSBR414 01133 S005-EXIT. DTSBR414 01134 EXIT. DTSBR414 01135 SKIP3 DTSBR414 01136 DTSBR414 01137 S599-BARCODE. DTSBR414 01138 MOVE CONVERT-BARCODE-LINE TO L599-INPUT-DATA. DTSBR414 01139 MOVE LENGTH OF CONVERT-BARCODE-LINE TO L599-REC-LENGTH. DTSBR414 01140 MOVE 'TAX' TO L599-SYSTEM. DTSBR414 01141 DTSBR414 01142 CALL 'DTSBU599' USING BARI-LINK-AREA. DTSBR414 01143 DTSBR414 01144 IF L599-NOT-CONVERTED DTSBR414 01145 PERFORM S999-ABEND THRU S999-EXIT. DTSBR414 01146 S599-EXIT. DTSBR414 01147 EXIT. DTSBR414 01148 DTSBR414 01149 S999-ABEND. DTSBR414 01150 DISPLAY ABEND-MSG. DTSBR414 01151 DTSBR414 01152 CALL 'DTSBU999' USING WRK-ABEND-CD. DTSBR414 01153 S999-EXIT. DTSBR414 01154 EXIT. DTSBR414