1138 lines
90 KiB
COBOL
1138 lines
90 KiB
COBOL
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
|