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