1156 lines
91 KiB
COBOL
1156 lines
91 KiB
COBOL
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
|