1131 lines
89 KiB
COBOL
1131 lines
89 KiB
COBOL
00001 IDENTIFICATION DIVISION. 05/28/14
|
|
00002 PROGRAM-ID. DTSBR325. DTSBR325
|
|
00003 AUTHOR. NGI. LV009
|
|
00004 DATE-WRITTEN. MAR 2006. DTSBR325
|
|
00005 DATE-COMPILED. DTSBR325
|
|
00006 SKIP3 DTSBR325
|
|
00007 ***** DTSBR325
|
|
00008 * DTSBR325
|
|
00009 * CALLING SEQUENCE: DTSBD400 CALLS DTSBR325
|
|
00010 * DTSBE325 WHICH CREATES DTSIR325 RECORDS DTSBR325
|
|
00011 * DTSBD800 CALLS DTSBR325
|
|
00012 * DTSBR325 WHICH READS DTSIR325 RECORDS DTSBR325
|
|
00013 * DTSBR325
|
|
00014 * FUNCTION: DEBIT MEMO PRINT. DTSBR325
|
|
00015 * DTSBR325
|
|
00016 * MODIFICATION HISTORY: DTSBR325
|
|
00017 * DTSBR325
|
|
00018 * 03-08-06 CREATED FROM DTSBR141. PRODUCE DAILY ASSESMENT BILL DTSBR325
|
|
00019 * FOR SELF INSURED EMPLOYERS DTSBR325
|
|
00020 * REFERENCE RFP # dc sur charge PROGRAMMER: ZL1 DTSBR325
|
|
00021 * DTSBR325
|
|
00022 * 08-21-06 MODIFIED TO RUN FOLLOWING DAILY UPDATE (DTSPDAY1). DTSBR325
|
|
00023 * THE PROGRAM FINDS THE ADMIN ASSESMENT BALANCE DUE DTSBR325
|
|
00024 * FROM THE TAX DATABASE AND SENDS A BILL ONLY IF THERE DTSBR325
|
|
00025 * IS A BALANCE DUE > $1.00. DTSBR325
|
|
00026 * IT ALSO PRODUCES MANAGEMENT REPORTS FORMERLY DTSBR325
|
|
00027 * GENERATED IN DTSBE325. DTSBR325
|
|
00028 * REFERENCE RFP # dc sur charge PROGRAMMER: GD DTSBR325
|
|
00029 * DTSBR325
|
|
00030 * 06-02-10 MODIFIED TO REPORT WHEN THE ASSESSMENT AMOUNT HAS DTSBR325
|
|
00031 * BEEN REVERSED. DTSBR325
|
|
00032 * REFERENCE RFP # PROGRAMMER: GD DTSBR325
|
|
00033 * DTSBR325
|
|
00034 * 04-30-14 MODIFIED p1100-print-bill to only pring bill when DTSBR325
|
|
00035 * the r325-final-assess-due amount is greater than DTSBR325
|
|
00036 * +1 DTSBR325
|
|
00037 * REFERENCE RFP # PROGRAMMER: nh DTSBR325
|
|
00038 * DTSBR325
|
|
00039 * MM-DD-YY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBR325
|
|
00040 * XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBR325
|
|
00041 * REFERENCE RFP #**** PROGRAMMER: XXX DTSBR325
|
|
00042 * DTSBR325
|
|
00043 * DTSBR325
|
|
00044 * DESCRIPTION: DTSBR325
|
|
00045 * DTSBR325
|
|
00046 * THIS MODULE PRINTS ASSESSMENT BILLS FOR SI EMPLOYERS DTSBR325
|
|
00047 * AND MANAGEMENT REPORTS. DTSBR325
|
|
00048 * DTSBR325
|
|
00049 * PROCESSING: DTSBR325
|
|
00050 * DTSBR325
|
|
00051 * DETAIL: DTSBR325
|
|
00052 * DTSBR325
|
|
00053 * DTSBR325
|
|
00054 * RECORDS READ: DTSBR325
|
|
00055 * DTSBR325
|
|
00056 * FOPR. DTSBR325
|
|
00057 * DTSBR325
|
|
00058 * DTSBR325
|
|
00059 * PRINTED OUTPUTS: DTSBR325
|
|
00060 * DTSBR325
|
|
00061 * 325R1 LETTER OF ASSESSMENT BILL SEND TO SI EMPLOYERS. DTSBR325
|
|
00062 * 325R2 100% OF WAGES ON FILE DETAIL REPORT. DTSBR325
|
|
00063 * 325R3 LESS THAN 10% IN WAGE DISCREPANCY DETAIL RPT. DTSBR325
|
|
00064 * 325R4 GREATER THAN 100K OR 10% IN WAGE DISCREPANCY DTSBR325
|
|
00065 * DETAIL REPORT. DTSBR325
|
|
00066 * 325R5 WAGE DATA MISSING DETAIL REPORT. DTSBR325
|
|
00067 * DTSBR325
|
|
00068 * RECORDS WRITTEN: DTSBR325
|
|
00069 * DTSBR325
|
|
00070 * NONE. DTSBR325
|
|
00071 * DTSBR325
|
|
00072 * DTSBR325
|
|
00073 * MODULES CALLED: DTSBR325
|
|
00074 * DTSBR325
|
|
00075 * DTSBU001 DATE EDIT/CONVERSION. DTSBR325
|
|
00076 * DTSBR325
|
|
00077 ***** DTSBR325
|
|
00078 EJECT DTSBR325
|
|
00079 ENVIRONMENT DIVISION. DTSBR325
|
|
00080 SKIP2 DTSBR325
|
|
00081 CONFIGURATION SECTION. DTSBR325
|
|
00082 SPECIAL-NAMES. C01 IS TOP-OF-PAGE. DTSBR325
|
|
00083 INPUT-OUTPUT SECTION. DTSBR325
|
|
00084 SKIP2 DTSBR325
|
|
00085 FILE-CONTROL. DTSBR325
|
|
00086 DTSBR325
|
|
00087 SELECT RPT-FILE1 ASSIGN TO RPT325R1 DTSBR325
|
|
00088 FILE STATUS IS RPT-STATUS. DTSBR325
|
|
00089 DTSBR325
|
|
00090 SELECT RPT-FILE2 ASSIGN TO RPT325R2 DTSBR325
|
|
00091 FILE STATUS IS RPT-STATUS. DTSBR325
|
|
00092 DTSBR325
|
|
00093 SELECT RPT-FILE3 ASSIGN TO RPT325R3 DTSBR325
|
|
00094 FILE STATUS IS RPT-STATUS. DTSBR325
|
|
00095 DTSBR325
|
|
00096 SELECT RPT-FILE4 ASSIGN TO RPT325R4 DTSBR325
|
|
00097 FILE STATUS IS RPT-STATUS. DTSBR325
|
|
00098 DTSBR325
|
|
00099 SELECT RPT-FILE5 ASSIGN TO RPT325R5 DTSBR325
|
|
00100 FILE STATUS IS RPT-STATUS. DTSBR325
|
|
00101 DTSBR325
|
|
00102 DATA DIVISION. DTSBR325
|
|
00103 DTSBR325
|
|
00104 FILE SECTION. DTSBR325
|
|
00105 DTSBR325
|
|
00106 FD RPT-FILE1 DTSBR325
|
|
00107 RECORDING MODE IS F DTSBR325
|
|
00108 LABEL RECORDS ARE STANDARD. DTSBR325
|
|
00109 01 RPT-REC1. DTSBR325
|
|
00110 05 FILLER PIC X(132). DTSBR325
|
|
00111 DTSBR325
|
|
00112 FD RPT-FILE2 DTSBR325
|
|
00113 RECORDING MODE IS F. DTSBR325
|
|
00114 01 RPT-REC2 PIC X(133). DTSBR325
|
|
00115 DTSBR325
|
|
00116 FD RPT-FILE3 DTSBR325
|
|
00117 RECORDING MODE IS F. DTSBR325
|
|
00118 01 RPT-REC3 PIC X(133). DTSBR325
|
|
00119 DTSBR325
|
|
00120 FD RPT-FILE4 DTSBR325
|
|
00121 RECORDING MODE IS F. DTSBR325
|
|
00122 01 RPT-REC4 PIC X(133). DTSBR325
|
|
00123 DTSBR325
|
|
00124 FD RPT-FILE5 DTSBR325
|
|
00125 RECORDING MODE IS F. DTSBR325
|
|
00126 01 RPT-REC5 PIC X(133). DTSBR325
|
|
00127 DTSBR325
|
|
00128 WORKING-STORAGE SECTION. DTSBR325
|
|
001285 77 PAN-VALET PICTURE X(24) VALUE '009DTSBR325 05/28/14'. DTSBR325
|
|
00129 77 PAN-VALET PICTURE X(24) VALUE '016DTSBR325 05/06/14'. DTSBR325
|
|
00130 77 PAN-VALET PICTURE X(24) VALUE '007DTSBR325 06/19/13'. DTSBR325
|
|
00131 77 PAN-VALET PICTURE X(24) VALUE '003DTSBR325 06/19/13'. DTSBR325
|
|
00132 77 PAN-VALET PICTURE X(24) VALUE '005DTSBR325 06/18/13'. DTSBR325
|
|
00133 77 PAN-VALET PICTURE X(24) VALUE '003DTSBR325 06/17/13'. DTSBR325
|
|
00134 77 PAN-VALET PICTURE X(24) VALUE '010DTSBR325 04/10/12'. DTSBR325
|
|
00135 DTSBR325
|
|
00136 01 WRK-AREA-CONSTANTS. DTSBR325
|
|
00137 05 WRK-ABEND-CD PIC S9(04) COMP DTSBR325
|
|
00138 VALUE +325. DTSBR325
|
|
00139 05 WRK-TRACE-IND PIC X(01). DTSBR325
|
|
00140 05 WRK-ABEND-MSG PIC X(60) VALUE SPACES. DTSBR325
|
|
00141 05 WRK-MOD-NAME PIC X(08) VALUE 'DTSBR325'.DTSBR325
|
|
00142 05 FIRST-TIME-IND PIC X(01) VALUE 'Y'. DTSBR325
|
|
00143 DTSBR325
|
|
00144 05 TOT-LINE-CNT PIC S9(04) COMP VALUE +47. DTSBR325
|
|
00145 05 MAX-QTR-PRINT PIC S9(04) COMP VALUE +21. DTSBR325
|
|
00146 05 LINE-CNT PIC S9(04) COMP VALUE +0. DTSBR325
|
|
00147 DTSBR325
|
|
00148 05 RPT-STATUS PIC X(02). DTSBR325
|
|
00149 88 RPT-STATUS-OK-88 VALUE '00'. DTSBR325
|
|
00150 DTSBR325
|
|
00151 05 PRT-STATUS PIC X(02). DTSBR325
|
|
00152 88 PRT-STATUS-OK-88 VALUE '00'. DTSBR325
|
|
00153 DTSBR325
|
|
00154 05 WRK-ERROR-IND PIC X(01). DTSBR325
|
|
00155 88 WRK-ERROR-YES-88 VALUE 'Y'. DTSBR325
|
|
00156 88 WRK-ERROR-NO-88 VALUE 'N'. DTSBR325
|
|
00157 DTSBR325
|
|
00158 05 WRK-TOT-REG-TAX PIC S9(11)V9(02) COMP-3 VALUE +0. DTSBR325
|
|
00159 05 WRK-TOT-ERR-TAX PIC S9(11)V9(02) COMP-3 VALUE +0. DTSBR325
|
|
00160 05 WRK-WAGE-DIFF PIC S9(11)V9(02) COMP-3 VALUE +0. DTSBR325
|
|
00161 05 WRK-TOT-ERR20-TAX PIC S9(11)V9(02) COMP-3 VALUE +0. DTSBR325
|
|
00162 DTSBR325
|
|
00163 05 WRK-100-WAGES-CNT PIC S9(07) COMP-3 VALUE 0. DTSBR325
|
|
00164 05 WRK-080-WAGES-CNT PIC S9(07) COMP-3 VALUE 0. DTSBR325
|
|
00165 05 WRK-079-WAGES-CNT PIC S9(07) COMP-3 VALUE 0. DTSBR325
|
|
00166 05 WRK-ZERO-WAGES-CNT PIC S9(07) COMP-3 VALUE 0. DTSBR325
|
|
00167 DTSBR325
|
|
00168 05 WS-WRK-QTR PIC 9(05) VALUE ZEROS. DTSBR325
|
|
00169 05 WS-WRK-QTR-X REDEFINES WS-WRK-QTR. DTSBR325
|
|
00170 10 WRK-QTR-YR PIC 9(04). DTSBR325
|
|
00171 10 WRK-QTR-Q PIC 9(01). DTSBR325
|
|
00172 DTSBR325
|
|
00173 05 WS-PRT-QTR. DTSBR325
|
|
00174 10 WRK-PRT-YR PIC X(04) VALUE SPACES. DTSBR325
|
|
00175 10 WRK-PRT-SLASH PIC X(01) VALUE SPACES. DTSBR325
|
|
00176 10 WRK-PRT-Q PIC X(01) VALUE SPACES. DTSBR325
|
|
00177 DTSBR325
|
|
00178 05 WS-EMP-NAME. DTSBR325
|
|
00179 10 WRK-FIRST-4 PIC X(04) VALUE SPACES. DTSBR325
|
|
00180 10 WRK-LAST-36 PIC X(36) VALUE SPACES. DTSBR325
|
|
00181 DTSBR325
|
|
00182 05 WS-REC PIC X(132) VALUE SPACES. DTSBR325
|
|
00183 05 WS-XREC PIC X(132) VALUE SPACES. DTSBR325
|
|
00184 DTSBR325
|
|
00185 05 WS-SUR-BAL PIC S9(09)V99 COMP-3. DTSBR325
|
|
00186 05 WS-QTR-PLUS20 PIC 9(3) VALUE ZERO. DTSBR325
|
|
00187 05 WS-QTR-CNT PIC 9(3) VALUE ZERO. DTSBR325
|
|
00188 05 TOT-RPT-CNT PIC 9(5) VALUE ZERO. DTSBR325
|
|
00189 05 WS-QTR-IDX PIC 9(3) VALUE ZERO. DTSBR325
|
|
00190 05 WRK-CTR PIC 9(3) VALUE ZERO. DTSBR325
|
|
00191 05 PAGE-CNT PIC 9(3) VALUE ZERO. DTSBR325
|
|
00192 DTSBR325
|
|
00193 ++INCLUDE DTSXL325 DTSBR325
|
|
00194 SKIP3 DTSBR325
|
|
00195 05 STUB-LINE. DTSBR325
|
|
00196 10 FILLER PIC X(04) VALUE SPACES. DTSBR325
|
|
00197 10 STUB-EMP-NO PIC 999B999. DTSBR325
|
|
00198 10 FILLER PIC X(03) VALUE SPACES. DTSBR325
|
|
00199 10 STUB-NAME-CHEK PIC X(04). DTSBR325
|
|
00200 10 FILLER PIC X(04) VALUE SPACES. DTSBR325
|
|
00201 10 STUB-EMP-FEIN PIC 99B9999999. DTSBR325
|
|
00202 10 FILLER PIC X(03) VALUE SPACES. DTSBR325
|
|
00203 10 STUB-QTR PIC X(10). DTSBR325
|
|
00204 * 10 FILLER PIC X(06) VALUE SPACES. DTSBR325
|
|
00205 10 STUB-STMT-DATE PIC X(10). DTSBR325
|
|
00206 10 FILLER PIC X(04) VALUE SPACES. DTSBR325
|
|
00207 10 STUB-AMT PIC $,$$$,$$$.$$. DTSBR325
|
|
00208 DTSBR325
|
|
00209 05 ADDR01. DTSBR325
|
|
00210 10 FILLER PIC X(01) VALUE SPACE. DTSBR325
|
|
00211 10 FILLER PIC X(27) VALUE SPACES. DTSBR325
|
|
00212 10 STUB-ADDR-LINE1 PIC X(40). DTSBR325
|
|
00213 10 FILLER PIC X(23) value spaces. DTSBR325
|
|
00214 DTSBR325
|
|
00215 05 ADDR02. DTSBR325
|
|
00216 10 FILLER PIC X(01) VALUE SPACE. DTSBR325
|
|
00217 10 FILLER PIC X(27) VALUE SPACES. DTSBR325
|
|
00218 10 STUB-ADDR-LINE2 PIC X(40). DTSBR325
|
|
00219 10 FILLER PIC X(23) value spaces. DTSBR325
|
|
00220 DTSBR325
|
|
00221 05 ADDR03. DTSBR325
|
|
00222 10 FILLER PIC X(01) VALUE SPACE. DTSBR325
|
|
00223 10 FILLER PIC X(27) VALUE SPACES. DTSBR325
|
|
00224 10 STUB-ADDR-LINE3 PIC X(40). DTSBR325
|
|
00225 10 FILLER PIC X(23) value spaces. DTSBR325
|
|
00226 DTSBR325
|
|
00227 05 ADDR04. DTSBR325
|
|
00228 10 FILLER PIC X(01) VALUE SPACE. DTSBR325
|
|
00229 10 FILLER PIC X(27) VALUE SPACES. DTSBR325
|
|
00230 10 STUB-ADDR-LINE4 PIC X(40). DTSBR325
|
|
00231 10 FILLER PIC X(32) VALUE SPACES. DTSBR325
|
|
00232 DTSBR325
|
|
00233 05 ADDR05. DTSBR325
|
|
00234 10 FILLER PIC X(01) VALUE SPACE. DTSBR325
|
|
00235 10 FILLER PIC X(27) VALUE SPACES. DTSBR325
|
|
00236 10 STUB-ADDR-LINE5 PIC X(40). DTSBR325
|
|
00237 10 FILLER PIC X(32) VALUE SPACES. DTSBR325
|
|
00238 DTSBR325
|
|
00239 05 STMT-LINE1. DTSBR325
|
|
00240 10 FILLER PIC X(05) VALUE SPACES. DTSBR325
|
|
00241 10 STMT-EMP-NO PIC 999B999. DTSBR325
|
|
00242 10 FILLER PIC X(07) VALUE SPACES. DTSBR325
|
|
00243 10 STMT-EMP-FEIN PIC 99B9999999. DTSBR325
|
|
00244 10 FILLER PIC X(07) VALUE SPACES. DTSBR325
|
|
00245 10 STMT-QTR PIC X(10). DTSBR325
|
|
00246 10 FILLER PIC X(03) VALUE SPACES. DTSBR325
|
|
00247 10 STMT-STMT-DATE PIC X(10). DTSBR325
|
|
00248 10 FILLER PIC X(04) VALUE SPACES. DTSBR325
|
|
00249 DTSBR325
|
|
00250 05 STMT-LINE2. DTSBR325
|
|
00251 10 FILLER PIC X(05) VALUE SPACES. DTSBR325
|
|
00252 10 FILLER PIC X(50) VALUE DTSBR325
|
|
00253 'YOUR CREDIT HAS BEEN APPLIED TO THE BALANCE DUE'. DTSBR325
|
|
00254 DTSBR325
|
|
00255 05 STMT-QTR-DETAIL. DTSBR325
|
|
00256 * 10 FILLER PIC X(03) VALUE SPACE. DTSBR325
|
|
00257 * 10 QTR-DET-YR. DTSBR325
|
|
00258 * 15 QTR-DET-YR1 PIC X(06). DTSBR325
|
|
00259 * 15 QTR-DET-YR2 PIC X(03). DTSBR325
|
|
00260 10 FILLER PIC X(07). DTSBR325
|
|
00261 10 QTR-DET-TOTAL-WAGE PIC $,$$$,$$$,$$$.99. DTSBR325
|
|
00262 10 FILLER PIC X(04). DTSBR325
|
|
00263 10 QTR-DET-ASSESSMENT-WAGE PIC $,$$$,$$$,$$$.99. DTSBR325
|
|
00264 10 FILLER PIC X(06). DTSBR325
|
|
00265 10 QTR-DET-ASSESSMENT-RATE PIC Z,ZZZ,Z9.999. DTSBR325
|
|
00266 10 FILLER PIC X(13). DTSBR325
|
|
00267 10 QTR-DET-ASSESSMENT-DUE PIC $,$$$,$$$.99. DTSBR325
|
|
00268 10 FILLER PIC X(02). DTSBR325
|
|
00269 DTSBR325
|
|
00270 05 AMT-DISP1 PIC -,---,---,--9.99. DTSBR325
|
|
00271 05 AMT-DISP2 PIC -,---,---,--9.99. DTSBR325
|
|
00272 05 AMT-DISP3 PIC -,---,---,--9.99. DTSBR325
|
|
00273 05 AMT-DISP4 PIC -,---,---,--9.99. DTSBR325
|
|
00274 DTSBR325
|
|
00275 05 DIS-ASSESS-DUE PIC -,---,---,--9.99. DTSBR325
|
|
00276 05 DIS-SUR-BAL PIC -,---,---,--9.99. DTSBR325
|
|
00277 05 DIS-BALANCE-AMT PIC -,---,---,--9.99. DTSBR325
|
|
00278 DTSBR325
|
|
00279 05 WS-REG-LINE-CNT PIC S9(02) COMP-3 VALUE 55. DTSBR325
|
|
00280 05 WS-PAGE-CNT PIC S9(03) COMP-3 VALUE +1. DTSBR325
|
|
00281 DTSBR325
|
|
00282 05 WS-ERR-LINE-CNT PIC S9(02) COMP-3 VALUE 55. DTSBR325
|
|
00283 05 WS-ERR-PAGE-CNT PIC S9(03) COMP-3 VALUE +1. DTSBR325
|
|
00284 DTSBR325
|
|
00285 05 WS-ERR20-LINE-CNT PIC S9(02) COMP-3 VALUE 55. DTSBR325
|
|
00286 05 WS-ERR20-PAGE-CNT PIC S9(03) COMP-3 VALUE +1. DTSBR325
|
|
00287 DTSBR325
|
|
00288 05 WS-ZERO-LINE-CNT PIC S9(02) COMP-3 VALUE 55. DTSBR325
|
|
00289 05 WS-ZERO-PAGE-CNT PIC S9(03) COMP-3 VALUE +1. DTSBR325
|
|
00290 DTSBR325
|
|
00291 01 HEADER1. DTSBR325
|
|
00292 05 FILLER PIC X(01) VALUE SPACES. DTSBR325
|
|
00293 05 HDR1-RPT PIC X(05). DTSBR325
|
|
00294 05 FILLER PIC X(44) VALUE SPACES. DTSBR325
|
|
00295 05 FILLER PIC X(60) VALUE DTSBR325
|
|
00296 'DISTRICT OF COLUMBIA'. DTSBR325
|
|
00297 05 FILLER PIC X(06) VALUE 'DATE:'. DTSBR325
|
|
00298 05 HDR1-DATE PIC X(08). DTSBR325
|
|
00299 DTSBR325
|
|
00300 01 HEADER2. DTSBR325
|
|
00301 05 FILLER PIC X(54) VALUE SPACES. DTSBR325
|
|
00302 05 FILLER PIC X(56) VALUE DTSBR325
|
|
00303 'TAX DIVISION'. DTSBR325
|
|
00304 05 FILLER PIC X(06) VALUE 'TIME:'. DTSBR325
|
|
00305 05 HDR2-TIME PIC X(08). DTSBR325
|
|
00306 DTSBR325
|
|
00307 01 HEADER25. DTSBR325
|
|
00308 05 FILLER PIC X(01) VALUE SPACES. DTSBR325
|
|
00309 05 FILLER PIC X(38) VALUE DTSBR325
|
|
00310 'SELF INSURED EMPLOYERS '. DTSBR325
|
|
00311 05 FILLER PIC X(46) VALUE DTSBR325
|
|
00312 ' ADMINISTRATIVE ASSESSMENT DETAIL REPORT '. DTSBR325
|
|
00313 05 FILLER PIC X(25) VALUE SPACES. DTSBR325
|
|
00314 DTSBR325
|
|
00315 01 HEADER26. DTSBR325
|
|
00316 05 FILLER PIC X(01) VALUE SPACES. DTSBR325
|
|
00317 05 FILLER PIC X(36) VALUE DTSBR325
|
|
00318 'SELF INSURED EMPLOYERS '. DTSBR325
|
|
00319 05 FILLER PIC X(46) VALUE DTSBR325
|
|
00320 ' ADMINISTRATIVE ASSESSMENT EXCEPTION REPORT '. DTSBR325
|
|
00321 05 FILLER PIC X(25) VALUE SPACES. DTSBR325
|
|
00322 DTSBR325
|
|
00323 01 HEADER3. DTSBR325
|
|
00324 05 FILLER PIC X(33) VALUE SPACES. DTSBR325
|
|
00325 05 FILLER PIC X(46) VALUE DTSBR325
|
|
00326 ' 100% OF WAGES ON FILE '. DTSBR325
|
|
00327 05 FILLER PIC X(32) VALUE SPACES. DTSBR325
|
|
00328 05 FILLER PIC X(06) VALUE 'PAGE:'. DTSBR325
|
|
00329 05 HDR3-PAGE PIC ZZ,ZZ9. DTSBR325
|
|
00330 DTSBR325
|
|
00331 01 HEADER35. DTSBR325
|
|
00332 05 FILLER PIC X(01) VALUE SPACES. DTSBR325
|
|
00333 05 FILLER PIC X(37) VALUE SPACES. DTSBR325
|
|
00334 05 FILLER PIC X(46) VALUE DTSBR325
|
|
00335 ' GREATER THAN 100K OR 10% IN WAGE DISCREPANCY'. DTSBR325
|
|
00336 05 FILLER PIC X(27) VALUE SPACES. DTSBR325
|
|
00337 05 FILLER PIC X(06) VALUE 'PAGE:'. DTSBR325
|
|
00338 05 ERR-PAGE PIC ZZ,ZZ9. DTSBR325
|
|
00339 DTSBR325
|
|
00340 01 HEADER36. DTSBR325
|
|
00341 05 FILLER PIC X(01) VALUE SPACES. DTSBR325
|
|
00342 05 FILLER PIC X(38) VALUE SPACES. DTSBR325
|
|
00343 05 FILLER PIC X(46) VALUE DTSBR325
|
|
00344 ' LESS THAN 10% IN WAGE DISCREPANCY'. DTSBR325
|
|
00345 05 FILLER PIC X(26) VALUE SPACES. DTSBR325
|
|
00346 05 FILLER PIC X(06) VALUE 'PAGE:'. DTSBR325
|
|
00347 05 ERR20-PAGE PIC ZZ,ZZ9. DTSBR325
|
|
00348 DTSBR325
|
|
00349 01 HEADER37. DTSBR325
|
|
00350 05 FILLER PIC X(01) VALUE SPACES. DTSBR325
|
|
00351 05 FILLER PIC X(35) VALUE SPACES. DTSBR325
|
|
00352 05 FILLER PIC X(46) VALUE DTSBR325
|
|
00353 ' WAGE DATA MISSING '. DTSBR325
|
|
00354 05 FILLER PIC X(29) VALUE SPACES. DTSBR325
|
|
00355 05 FILLER PIC X(06) VALUE 'PAGE:'. DTSBR325
|
|
00356 05 ERR-ZERO-PAGE PIC ZZ,ZZ9. DTSBR325
|
|
00357 DTSBR325
|
|
00358 01 HEADER4. DTSBR325
|
|
00359 05 FILLER PIC X(01) VALUE SPACES. DTSBR325
|
|
00360 05 FILLER PIC X(132) VALUE SPACES. DTSBR325
|
|
00361 DTSBR325
|
|
00362 01 HEADER5. DTSBR325
|
|
00363 05 FILLER PIC X(01) VALUE SPACES. DTSBR325
|
|
00364 05 FILLER PIC X(02) VALUE SPACES. DTSBR325
|
|
00365 05 FILLER PIC X(06) VALUE DTSBR325
|
|
00366 'EMP NO'. DTSBR325
|
|
00367 05 FILLER PIC X(05) VALUE SPACES. DTSBR325
|
|
00368 05 FILLER PIC X(12) VALUE DTSBR325
|
|
00369 'PRIMARY NAME'. DTSBR325
|
|
00370 05 FILLER PIC X(12) VALUE SPACES. DTSBR325
|
|
00371 05 FILLER PIC X(03) VALUE SPACES. DTSBR325
|
|
00372 05 FILLER PIC X(13) VALUE DTSBR325
|
|
00373 'UC30 REPORTED'. DTSBR325
|
|
00374 05 FILLER PIC X(06) VALUE SPACES. DTSBR325
|
|
00375 05 FILLER PIC X(12) VALUE DTSBR325
|
|
00376 ' WAGE FILE'. DTSBR325
|
|
00377 05 FILLER PIC X(06) VALUE SPACES. DTSBR325
|
|
00378 05 FILLER PIC X(13) VALUE DTSBR325
|
|
00379 'WAGES SUBJECT'. DTSBR325
|
|
00380 05 FILLER PIC X(05) VALUE SPACES. DTSBR325
|
|
00381 05 FILLER PIC X(11) VALUE DTSBR325
|
|
00382 ' ASSESSED '. DTSBR325
|
|
00383 05 FILLER PIC X(04) VALUE SPACES. DTSBR325
|
|
00384 05 FILLER PIC X(03) VALUE DTSBR325
|
|
00385 'QTR'. DTSBR325
|
|
00386 05 FILLER PIC X(05) VALUE SPACES. DTSBR325
|
|
00387 DTSBR325
|
|
00388 01 HEADER55. DTSBR325
|
|
00389 05 FILLER PIC X(42) VALUE SPACES. DTSBR325
|
|
00390 05 FILLER PIC X(13) VALUE DTSBR325
|
|
00391 ' WAGES '. DTSBR325
|
|
00392 05 FILLER PIC X(05) VALUE SPACES. DTSBR325
|
|
00393 05 FILLER PIC X(12) VALUE DTSBR325
|
|
00394 ' WAGES '. DTSBR325
|
|
00395 05 FILLER PIC X(06) VALUE SPACES. DTSBR325
|
|
00396 05 FILLER PIC X(13) VALUE DTSBR325
|
|
00397 'TO ASSESSMENT'. DTSBR325
|
|
00398 05 FILLER PIC X(07) VALUE SPACES. DTSBR325
|
|
00399 05 FILLER PIC X(11) VALUE DTSBR325
|
|
00400 ' AMOUNT '. DTSBR325
|
|
00401 05 FILLER PIC X(09) VALUE SPACES. DTSBR325
|
|
00402 DTSBR325
|
|
00403 01 HEADER6. DTSBR325
|
|
00404 05 FILLER PIC X(01) VALUE SPACES. DTSBR325
|
|
00405 05 FILLER PIC X(132) VALUE SPACES. DTSBR325
|
|
00406 DTSBR325
|
|
00407 01 HEADER7. DTSBR325
|
|
00408 05 FILLER PIC X(01) VALUE SPACES. DTSBR325
|
|
00409 05 FILLER PIC X(02) VALUE SPACES. DTSBR325
|
|
00410 05 FILLER PIC X(06) VALUE DTSBR325
|
|
00411 'EMP NO'. DTSBR325
|
|
00412 05 FILLER PIC X(05) VALUE SPACES. DTSBR325
|
|
00413 05 FILLER PIC X(12) VALUE DTSBR325
|
|
00414 'PRIMARY NAME'. DTSBR325
|
|
00415 05 FILLER PIC X(12) VALUE SPACES. DTSBR325
|
|
00416 05 FILLER PIC X(03) VALUE SPACES. DTSBR325
|
|
00417 05 FILLER PIC X(13) VALUE DTSBR325
|
|
00418 'UC30 REPORTED'. DTSBR325
|
|
00419 05 FILLER PIC X(05) VALUE SPACES. DTSBR325
|
|
00420 05 FILLER PIC X(12) VALUE DTSBR325
|
|
00421 ' WAGE FILE'. DTSBR325
|
|
00422 05 FILLER PIC X(05) VALUE SPACES. DTSBR325
|
|
00423 05 FILLER PIC X(13) VALUE DTSBR325
|
|
00424 ' DIFFERENCE '. DTSBR325
|
|
00425 05 FILLER PIC X(05) VALUE SPACES. DTSBR325
|
|
00426 05 FILLER PIC X(13) VALUE DTSBR325
|
|
00427 'WAGES SUBJECT'. DTSBR325
|
|
00428 05 FILLER PIC X(05) VALUE SPACES. DTSBR325
|
|
00429 05 FILLER PIC X(11) VALUE DTSBR325
|
|
00430 ' ASSESSED '. DTSBR325
|
|
00431 05 FILLER PIC X(03) VALUE SPACES. DTSBR325
|
|
00432 05 FILLER PIC X(06) VALUE DTSBR325
|
|
00433 'QTR '. DTSBR325
|
|
00434 05 FILLER PIC X(05) VALUE SPACES. DTSBR325
|
|
00435 DTSBR325
|
|
00436 01 HEADER71. DTSBR325
|
|
00437 05 FILLER PIC X(01) VALUE SPACES. DTSBR325
|
|
00438 05 FILLER PIC X(02) VALUE SPACES. DTSBR325
|
|
00439 05 FILLER PIC X(06) VALUE DTSBR325
|
|
00440 'EMP NO'. DTSBR325
|
|
00441 05 FILLER PIC X(05) VALUE SPACES. DTSBR325
|
|
00442 05 FILLER PIC X(12) VALUE DTSBR325
|
|
00443 'PRIMARY NAME'. DTSBR325
|
|
00444 05 FILLER PIC X(12) VALUE SPACES. DTSBR325
|
|
00445 05 FILLER PIC X(03) VALUE SPACES. DTSBR325
|
|
00446 05 FILLER PIC X(13) VALUE DTSBR325
|
|
00447 'UC30 REPORTED'. DTSBR325
|
|
00448 05 FILLER PIC X(05) VALUE SPACES. DTSBR325
|
|
00449 05 FILLER PIC X(12) VALUE DTSBR325
|
|
00450 ' WAGE FILE'. DTSBR325
|
|
00451 05 FILLER PIC X(03) VALUE SPACES. DTSBR325
|
|
00452 05 FILLER PIC X(13) VALUE DTSBR325
|
|
00453 ' QTR '. DTSBR325
|
|
00454 01 HEADER72. DTSBR325
|
|
00455 05 FILLER PIC X(41) VALUE SPACES. DTSBR325
|
|
00456 05 FILLER PIC X(13) VALUE DTSBR325
|
|
00457 ' WAGES '. DTSBR325
|
|
00458 05 FILLER PIC X(05) VALUE SPACES. DTSBR325
|
|
00459 05 FILLER PIC X(12) VALUE DTSBR325
|
|
00460 ' WAGES '. DTSBR325
|
|
00461 05 FILLER PIC X(05) VALUE SPACES. DTSBR325
|
|
00462 DTSBR325
|
|
00463 01 HEADER75. DTSBR325
|
|
00464 05 FILLER PIC X(41) VALUE SPACES. DTSBR325
|
|
00465 05 FILLER PIC X(13) VALUE DTSBR325
|
|
00466 ' WAGES '. DTSBR325
|
|
00467 05 FILLER PIC X(05) VALUE SPACES. DTSBR325
|
|
00468 05 FILLER PIC X(12) VALUE DTSBR325
|
|
00469 ' WAGES '. DTSBR325
|
|
00470 05 FILLER PIC X(06) VALUE SPACES. DTSBR325
|
|
00471 05 FILLER PIC X(12) VALUE DTSBR325
|
|
00472 ' IN WAGES '. DTSBR325
|
|
00473 05 FILLER PIC X(05) VALUE SPACES. DTSBR325
|
|
00474 05 FILLER PIC X(13) VALUE DTSBR325
|
|
00475 'TO ASSESSMENT'. DTSBR325
|
|
00476 05 FILLER PIC X(05) VALUE SPACES. DTSBR325
|
|
00477 05 FILLER PIC X(11) VALUE DTSBR325
|
|
00478 ' AMOUNT '. DTSBR325
|
|
00479 05 FILLER PIC X(09) VALUE SPACES. DTSBR325
|
|
00480 DTSBR325
|
|
00481 01 REG-DETAIL. DTSBR325
|
|
00482 05 FILLER PIC X(02) VALUE SPACES. DTSBR325
|
|
00483 05 WS-EMP-NO PIC 999B999. DTSBR325
|
|
00484 05 FILLER PIC X(02) VALUE SPACES. DTSBR325
|
|
00485 05 WS-PRIMARY-NAME PIC X(25). DTSBR325
|
|
00486 05 FILLER PIC X(04) VALUE SPACES. DTSBR325
|
|
00487 05 WS-TOT-WAGE-UC30 PIC -,---,---,---.99. DTSBR325
|
|
00488 05 FILLER PIC X(04) VALUE SPACES. DTSBR325
|
|
00489 05 WS-TOT-WAGE-CALC PIC ---,---,---.99. DTSBR325
|
|
00490 05 FILLER PIC X(04) VALUE SPACES. DTSBR325
|
|
00491 05 WS-TAX-WAGE PIC -,---,---,---.99. DTSBR325
|
|
00492 05 FILLER PIC X(04) VALUE SPACES. DTSBR325
|
|
00493 05 WS-SUR-CHARGE-AMT PIC -,---,--9.99. DTSBR325
|
|
00494 05 FILLER PIC X(04) VALUE SPACES. DTSBR325
|
|
00495 05 WS-QTR PIC X(06). DTSBR325
|
|
00496 05 FILLER PIC X(04) VALUE SPACES. DTSBR325
|
|
00497 05 WS-AMEND PIC X(12). DTSBR325
|
|
00498 DTSBR325
|
|
00499 01 ERR-DETAIL. DTSBR325
|
|
00500 05 FILLER PIC X(02) VALUE SPACES. DTSBR325
|
|
00501 05 WS-ERR-EMP-NO PIC 999B999. DTSBR325
|
|
00502 05 FILLER PIC X(02) VALUE SPACES. DTSBR325
|
|
00503 05 WS-ERR-PRIMARY-NAME PIC X(25). DTSBR325
|
|
00504 05 FILLER PIC X(04) VALUE SPACES. DTSBR325
|
|
00505 05 WS-ERR-UC30-WAGES PIC -,---,---,---.99. DTSBR325
|
|
00506 05 FILLER PIC X(03) VALUE SPACES. DTSBR325
|
|
00507 05 WS-ERR-CALC-WAGES PIC -,---,---,---.99. DTSBR325
|
|
00508 05 FILLER PIC X(03) VALUE SPACES. DTSBR325
|
|
00509 05 WS-ERR-DIFF PIC -,---,---,---.99. DTSBR325
|
|
00510 05 FILLER PIC X(05) VALUE SPACES. DTSBR325
|
|
00511 05 WS-ERR-TAX-WAGES PIC ---,---,---.99. DTSBR325
|
|
00512 05 FILLER PIC X(01) VALUE SPACES. DTSBR325
|
|
00513 05 WS-ERR-SUR-CHARGE-AMT PIC ---,---,---.99. DTSBR325
|
|
00514 05 FILLER PIC X(03) VALUE SPACES. DTSBR325
|
|
00515 05 WS-ERR-QTR PIC X(06). DTSBR325
|
|
00516 05 FILLER PIC X(01) VALUE SPACES. DTSBR325
|
|
00517 05 WS-ERR-AMEND PIC X(06). DTSBR325
|
|
00518 DTSBR325
|
|
00519 01 NO-WAGE-DETAIL. DTSBR325
|
|
00520 05 FILLER PIC X(02) VALUE SPACES. DTSBR325
|
|
00521 05 WS-WGE-EMP-NO PIC 999B999. DTSBR325
|
|
00522 05 FILLER PIC X(02) VALUE SPACES. DTSBR325
|
|
00523 05 WS-WGE-PRIMARY-NAME PIC X(25). DTSBR325
|
|
00524 05 FILLER PIC X(04) VALUE SPACES. DTSBR325
|
|
00525 05 WS-WGE-UC30-WAGES PIC -,---,---,---.99. DTSBR325
|
|
00526 05 FILLER PIC X(03) VALUE SPACES. DTSBR325
|
|
00527 05 WS-WGE-CALC-WAGES PIC -,---,---,---.99. DTSBR325
|
|
00528 05 FILLER PIC X(04) VALUE SPACES. DTSBR325
|
|
00529 05 WS-WGE-QTR PIC X(06). DTSBR325
|
|
00530 05 FILLER PIC X(03) VALUE SPACES. DTSBR325
|
|
00531 05 WS-WGE-TYPE PIC X(15). DTSBR325
|
|
00532 DTSBR325
|
|
00533 01 FOOTING1 PIC X(116) VALUE ALL '_'. DTSBR325
|
|
00534 01 FOOTING2. DTSBR325
|
|
00535 05 FILLER PIC X(02) VALUE SPACES. DTSBR325
|
|
00536 05 FILLER PIC X(43) VALUE DTSBR325
|
|
00537 'TOTAL ADMINISTRATIVE ASSESSMENT: '. DTSBR325
|
|
00538 05 FILLER PIC X(45) VALUE SPACES. DTSBR325
|
|
00539 05 WS-FOOTING-AMT PIC -,---,---,--9.99. DTSBR325
|
|
00540 DTSBR325
|
|
00541 01 FOOTING3. DTSBR325
|
|
00542 05 FILLER PIC X(02) VALUE SPACES. DTSBR325
|
|
00543 05 FILLER PIC X(43) VALUE DTSBR325
|
|
00544 'TOTAL ADMINISTRATIVE ASSESSMENT: '. DTSBR325
|
|
00545 05 FILLER PIC X(61) VALUE SPACES. DTSBR325
|
|
00546 05 WS-FOOTING-AMT2 PIC -,---,---,--9.99. DTSBR325
|
|
00547 01 FOOTING4 PIC X(131) VALUE ALL '_'. DTSBR325
|
|
00548 DTSBR325
|
|
00549 EJECT DTSBR325
|
|
00550 01 L001-LINK-AREA. DTSBR325
|
|
00551 ++INCLUDE DTSIL001 DTSBR325
|
|
00552 EJECT DTSBR325
|
|
00553 01 L004-LINK-AREA. DTSBR325
|
|
00554 ++INCLUDE DTSIL004 DTSBR325
|
|
00555 EJECT DTSBR325
|
|
00556 01 L005-LINK-AREA. DTSBR325
|
|
00557 ++INCLUDE DTSIL005 DTSBR325
|
|
00558 EJECT DTSBR325
|
|
00559 01 L910-LINK-AREA. DTSBR325
|
|
00560 ++INCLUDE DTSIL910 DTSBR325
|
|
00561 EJECT DTSBR325
|
|
00562 01 MSKL-REC. DTSBR325
|
|
00563 ++INCLUDE DTSIMSKL DTSBR325
|
|
00564 EJECT DTSBR325
|
|
00565 01 MQTR-REC. DTSBR325
|
|
00566 ++INCLUDE DTSIMQTR DTSBR325
|
|
00567 EJECT DTSBR325
|
|
00568 DTSBR325
|
|
00569 LINKAGE SECTION. DTSBR325
|
|
00570 SKIP3 DTSBR325
|
|
00571 01 LRCM-LINK-AREA. DTSBR325
|
|
00572 ++INCLUDE DTSILRCM DTSBR325
|
|
00573 EJECT DTSBR325
|
|
00574 01 R325-REC. DTSBR325
|
|
00575 ++INCLUDE DTSIR325 DTSBR325
|
|
00576 EJECT DTSBR325
|
|
00577 PROCEDURE DIVISION USING LRCM-LINK-AREA DTSBR325
|
|
00578 R325-REC. DTSBR325
|
|
00579 SKIP2 DTSBR325
|
|
00580 IF FIRST-TIME-IND = 'Y' DTSBR325
|
|
00581 PERFORM I1000-INITIATE THRU I1000-EXIT DTSBR325
|
|
00582 MOVE 'N' TO FIRST-TIME-IND. DTSBR325
|
|
00583 DTSBR325
|
|
00584 IF LRCM-EOR-88 DTSBR325
|
|
00585 PERFORM T1000-TERMINATE THRU T1000-EXIT DTSBR325
|
|
00586 ELSE DTSBR325
|
|
00587 PERFORM P1000-PROCESS THRU P1000-EXIT. DTSBR325
|
|
00588 SKIP2 DTSBR325
|
|
00589 GOBACK. DTSBR325
|
|
00590 EJECT DTSBR325
|
|
00591 I1000-INITIATE. DTSBR325
|
|
00592 DTSBR325
|
|
00593 MOVE 'N' TO WRK-TRACE-IND. DTSBR325
|
|
00594 SET WRK-ERROR-NO-88 TO TRUE. DTSBR325
|
|
00595 DTSBR325
|
|
00596 OPEN OUTPUT RPT-FILE1. DTSBR325
|
|
00597 IF NOT RPT-STATUS-OK-88 DTSBR325
|
|
00598 DISPLAY 'CANNOT OPEN PRT FILE1 ' RPT-STATUS DTSBR325
|
|
00599 SET WRK-ERROR-YES-88 TO TRUE DTSBR325
|
|
00600 GO TO I1000-EXIT. DTSBR325
|
|
00601 DTSBR325
|
|
00602 OPEN OUTPUT RPT-FILE2. DTSBR325
|
|
00603 IF NOT RPT-STATUS-OK-88 DTSBR325
|
|
00604 DISPLAY 'CANNOT OPEN RPT FILE2 ' RPT-STATUS DTSBR325
|
|
00605 SET WRK-ERROR-YES-88 TO TRUE DTSBR325
|
|
00606 GO TO I1000-EXIT. DTSBR325
|
|
00607 DTSBR325
|
|
00608 OPEN OUTPUT RPT-FILE3. DTSBR325
|
|
00609 IF NOT RPT-STATUS-OK-88 DTSBR325
|
|
00610 DISPLAY 'CANNOT OPEN RPT FILE3' RPT-STATUS DTSBR325
|
|
00611 SET WRK-ERROR-YES-88 TO TRUE DTSBR325
|
|
00612 GO TO I1000-EXIT. DTSBR325
|
|
00613 DTSBR325
|
|
00614 OPEN OUTPUT RPT-FILE4. DTSBR325
|
|
00615 IF NOT RPT-STATUS-OK-88 DTSBR325
|
|
00616 DISPLAY 'CANNOT OPEN RPT FILE4' RPT-STATUS DTSBR325
|
|
00617 SET WRK-ERROR-YES-88 TO TRUE DTSBR325
|
|
00618 GO TO I1000-EXIT. DTSBR325
|
|
00619 DTSBR325
|
|
00620 OPEN OUTPUT RPT-FILE5. DTSBR325
|
|
00621 IF NOT RPT-STATUS-OK-88 DTSBR325
|
|
00622 DISPLAY 'CANNOT OPEN RPT FILE5' RPT-STATUS DTSBR325
|
|
00623 SET WRK-ERROR-YES-88 TO TRUE DTSBR325
|
|
00624 GO TO I1000-EXIT. DTSBR325
|
|
00625 DTSBR325
|
|
00626 MOVE WRK-TRACE-IND TO L910-TRACE-IND. DTSBR325
|
|
00627 MOVE WRK-MOD-NAME TO L910-MOD-NAME. DTSBR325
|
|
00628 DTSBR325
|
|
00629 MOVE LRCM-SYS-DATE TO HDR1-DATE. DTSBR325
|
|
00630 MOVE LRCM-SYS-TIME TO HDR2-TIME. DTSBR325
|
|
00631 DTSBR325
|
|
00632 MOVE +0 TO PAGE-CNT. DTSBR325
|
|
00633 DTSBR325
|
|
00634 MOVE 0 TO STMT-EMP-NO DTSBR325
|
|
00635 STUB-EMP-NO DTSBR325
|
|
00636 STUB-EMP-FEIN DTSBR325
|
|
00637 STMT-EMP-FEIN. DTSBR325
|
|
00638 MOVE SPACES TO STMT-STMT-DATE. DTSBR325
|
|
00639 DTSBR325
|
|
00640 MOVE XEROX-8X11-LINE TO WS-REC. DTSBR325
|
|
00641 WRITE RPT-REC1 FROM WS-REC DTSBR325
|
|
00642 AFTER ADVANCING PAGE. DTSBR325
|
|
00643 DTSBR325
|
|
00644 MOVE XEROX-CNTL-LINE2 TO WS-REC. DTSBR325
|
|
00645 WRITE RPT-REC1 FROM WS-REC DTSBR325
|
|
00646 AFTER ADVANCING 1. DTSBR325
|
|
00647 DTSBR325
|
|
00648 I1000-EXIT. DTSBR325
|
|
00649 EXIT. DTSBR325
|
|
00650 DTSBR325
|
|
00651 P1000-PROCESS. DTSBR325
|
|
00652 MOVE ZERO TO WS-SUR-BAL. DTSBR325
|
|
00653 DTSBR325
|
|
00654 *& DTSBR325
|
|
00655 MOVE R325-CALC-ASSESS-DUE TO DIS-BALANCE-AMT. DTSBR325
|
|
00656 DISPLAY 'BR325 P1000 ' R325-EMP-NO ' ' R325-QTR DTSBR325
|
|
00657 ' ' R325-RPT-TYPE ' ' DIS-BALANCE-AMT. DTSBR325
|
|
00658 *& DTSBR325
|
|
00659 * IF R325-RPT-CHG-ASSESS-88 DTSBR325
|
|
00660 * MOVE LOW-VALUES TO MQTR-KEY-AREA DTSBR325
|
|
00661 * SET MQTR-QTR-88 TO TRUE DTSBR325
|
|
00662 * MOVE R325-EMP-NO TO MQTR-EMP-NO DTSBR325
|
|
00663 * MOVE R325-QTR TO MQTR-YRQ DTSBR325
|
|
00664 * MOVE MQTR-KEY-AREA TO MSKL-KEY-AREA DTSBR325
|
|
00665 * PERFORM S910-READ THRU S910-EXIT DTSBR325
|
|
00666 * IF L910-OK-88 DTSBR325
|
|
00667 * MOVE MSKL-REC TO MQTR-REC DTSBR325
|
|
00668 * PERFORM DTSBR325
|
|
00669 * VARYING MQTR-ACCT-IDX FROM +1 BY +1 DTSBR325
|
|
00670 * UNTIL MQTR-ACCT-IDX > MQTR-ACCT-CNT DTSBR325
|
|
00671 * IF MQTR-ACCT-SUR-88 (MQTR-ACCT-IDX) DTSBR325
|
|
00672 * ADD MQTR-BALANCE-AMT (MQTR-ACCT-IDX) DTSBR325
|
|
00673 * TO WS-SUR-BAL DTSBR325
|
|
00674 * END-IF DTSBR325
|
|
00675 * END-PERFORM DTSBR325
|
|
00676 * IF WS-SUR-BAL > 1 DTSBR325
|
|
00677 * DISPLAY 'BR325 P1000 sub bal ' ws-sur-bal DTSBR325
|
|
00678 * PERFORM P1100-PRINT-BILL THRU P1100-EXIT DTSBR325
|
|
00679 * ELSE DTSBR325
|
|
00680 * DISPLAY 'BR325 P1000 sub bal=0 ' ws-sur-bal DTSBR325
|
|
00681 * END-IF DTSBR325
|
|
00682 * ELSE DTSBR325
|
|
00683 * DISPLAY 'BR325 P1000 NOT FOUND ' DTSBR325
|
|
00684 * R325-EMP-NO ' ' R325-QTR DTSBR325
|
|
00685 * END-IF DTSBR325
|
|
00686 * END-IF. DTSBR325
|
|
00687 DTSBR325
|
|
00688 IF R325-RPT-CHG-ASSESS-88 DTSBR325
|
|
00689 PERFORM P1100-PRINT-BILL THRU P1100-EXIT. DTSBR325
|
|
00690 PERFORM P2000-PRINT-REPORTS THRU P2000-EXIT. DTSBR325
|
|
00691 DTSBR325
|
|
00692 P1000-EXIT. DTSBR325
|
|
00693 EXIT. DTSBR325
|
|
00694 SKIP3 DTSBR325
|
|
00695 DTSBR325
|
|
00696 P1100-PRINT-BILL. DTSBR325
|
|
00697 DTSBR325
|
|
00698 if (r325-final-assess-due > +1 or DTSBR325
|
|
00699 (r325-final-assess-due = 0 and R325-CALC-ASSESS-DUE DTSBR325
|
|
00700 > +0)) DTSBR325
|
|
00701 MOVE r325-final-assess-due TO DIS-BALANCE-AMT DTSBR325
|
|
00702 dISPLAY 'P1100 ' R325-EMP-NO ' ' R325-RPT-TYPE DTSBR325
|
|
00703 ' ' DIS-BALANCE-AMT DTSBR325
|
|
00704 DTSBR325
|
|
00705 MOVE SPACES TO WS-REC DTSBR325
|
|
00706 DTSBR325
|
|
00707 ADD 1 TO TOT-RPT-CNT DTSBR325
|
|
00708 MOVE R325-EMP-NO TO STUB-EMP-NO DTSBR325
|
|
00709 STMT-EMP-NO DTSBR325
|
|
00710 MOVE R325-EMP-FEIN TO STUB-EMP-FEIN DTSBR325
|
|
00711 STMT-EMP-FEIN DTSBR325
|
|
00712 DTSBR325
|
|
00713 MOVE R325-STMT-DATE TO L001-FED-8-DATE-9 DTSBR325
|
|
00714 PERFORM S001-FROM-FED-8 THRU S001-EXIT DTSBR325
|
|
00715 MOVE L001-SLASH-8-DATE TO STUB-STMT-DATE DTSBR325
|
|
00716 STMT-STMT-DATE DTSBR325
|
|
00717 DTSBR325
|
|
00718 MOVE R325-QTR TO WS-WRK-QTR DTSBR325
|
|
00719 MOVE WRK-QTR-Q TO WRK-PRT-Q DTSBR325
|
|
00720 MOVE WRK-QTR-YR TO WRK-PRT-YR DTSBR325
|
|
00721 MOVE '/' TO WRK-PRT-SLASH DTSBR325
|
|
00722 MOVE WS-PRT-QTR TO STUB-QTR DTSBR325
|
|
00723 STMT-QTR DTSBR325
|
|
00724 DTSBR325
|
|
00725 MOVE R325-FMT-LINE (1) TO STUB-ADDR-LINE1 DTSBR325
|
|
00726 MAIL-ADDR-LINE1 DTSBR325
|
|
00727 WS-EMP-NAME DTSBR325
|
|
00728 DTSBR325
|
|
00729 MOVE R325-FMT-LINE (2) TO STUB-ADDR-LINE2 DTSBR325
|
|
00730 MAIL-ADDR-LINE2 DTSBR325
|
|
00731 DTSBR325
|
|
00732 MOVE R325-FMT-LINE (3) TO STUB-ADDR-LINE3 DTSBR325
|
|
00733 MAIL-ADDR-LINE3 DTSBR325
|
|
00734 DTSBR325
|
|
00735 mOVE R325-FMT-LINE (4) TO STUB-ADDR-LINE4 DTSBR325
|
|
00736 MAIL-ADDR-LINE4 DTSBR325
|
|
00737 DTSBR325
|
|
00738 MOVE R325-FMT-LINE (5) TO STUB-ADDR-LINE5 DTSBR325
|
|
00739 MAIL-ADDR-LINE5 DTSBR325
|
|
00740 DTSBR325
|
|
00741 MOVE WRK-FIRST-4 TO STUB-NAME-CHEK DTSBR325
|
|
00742 DTSBR325
|
|
00743 MOVE R325-UC30-WAGES TO QTR-DET-TOTAL-WAGE DTSBR325
|
|
00744 MOVE R325-ASSESSMENT-WAGES TO QTR-DET-ASSESSMENT-WAGE DTSBR325
|
|
00745 MOVE R325-ASSESSMENT-RATE TO QTR-DET-ASSESSMENT-RATE DTSBR325
|
|
00746 MOVE r325-final-assess-due TO QTR-DET-ASSESSMENT-DUE DTSBR325
|
|
00747 STUB-AMT DTSBR325
|
|
00748 PERFORM P1200-PRINT-STUB-MAILR THRU P1200-EXIT DTSBR325
|
|
00749 DTSBR325
|
|
00750 mOVE 24 TO LINE-CNT DTSBR325
|
|
00751 DTSBR325
|
|
00752 DTSBR325
|
|
00753 WRITE RPT-REC1 FROM WS-REC DTSBR325
|
|
00754 AFTER ADVANCING WRK-CTR LINES DTSBR325
|
|
00755 DTSBR325
|
|
00756 MOVE SPACES TO WS-REC DTSBR325
|
|
00757 DTSBR325
|
|
00758 DTSBR325
|
|
00759 WRITE RPT-REC1 FROM WS-REC DTSBR325
|
|
00760 AFTER ADVANCING 1 LINES DTSBR325
|
|
00761 DTSBR325
|
|
00762 MOVE SPACES TO WS-XREC DTSBR325
|
|
00763 DTSBR325
|
|
00764 PERFORM P1500-PRINT-MAILR-ADDR THRU P1500-EXIT DTSBR325
|
|
00765 end-if. DTSBR325
|
|
00766 P1100-EXIT. DTSBR325
|
|
00767 EXIT. DTSBR325
|
|
00768 SKIP3 DTSBR325
|
|
00769 P1200-PRINT-STUB-MAILR. DTSBR325
|
|
00770 DTSBR325
|
|
00771 ADD +1 TO PAGE-CNT DTSBR325
|
|
00772 WRITE RPT-REC1 FROM WS-REC AFTER ADVANCING PAGE DTSBR325
|
|
00773 WRITE RPT-REC1 FROM WS-REC AFTER ADVANCING 6 LINES DTSBR325
|
|
00774 MOVE STUB-LINE TO WS-REC DTSBR325
|
|
00775 WRITE RPT-REC1 FROM WS-REC AFTER ADVANCING 1 LINES DTSBR325
|
|
00776 MOVE ADDR01 TO WS-REC DTSBR325
|
|
00777 WRITE RPT-REC1 FROM WS-REC AFTER ADVANCING 2 LINES DTSBR325
|
|
00778 MOVE ADDR02 TO WS-REC DTSBR325
|
|
00779 WRITE RPT-REC1 FROM WS-REC AFTER ADVANCING 1 LINES DTSBR325
|
|
00780 MOVE ADDR03 TO WS-REC DTSBR325
|
|
00781 WRITE RPT-REC1 FROM WS-REC AFTER ADVANCING 1 LINES DTSBR325
|
|
00782 MOVE ADDR04 TO WS-REC DTSBR325
|
|
00783 WRITE RPT-REC1 FROM WS-REC AFTER ADVANCING 1 LINES DTSBR325
|
|
00784 MOVE ADDR05 TO WS-REC DTSBR325
|
|
00785 WRITE RPT-REC1 FROM WS-REC AFTER ADVANCING 1 LINES DTSBR325
|
|
00786 MOVE STMT-LINE1 TO WS-REC DTSBR325
|
|
00787 WRITE RPT-REC1 FROM WS-REC AFTER ADVANCING 20 LINES DTSBR325
|
|
00788 *nh credit testing DTSBR325
|
|
00789 if r325-final-assess-due = 0 and DTSBR325
|
|
00790 R325-CALC-ASSESS-DUE > 0 DTSBR325
|
|
00791 write rpt-rec1 from stmt-line2 DTSBR325
|
|
00792 after advancing 3 lines DTSBR325
|
|
00793 MOVE SPACES TO WS-REC DTSBR325
|
|
00794 WRITE RPT-REC1 FROM STMT-QTR-DETAIL DTSBR325
|
|
00795 AFTER ADVANCING 5 LINE DTSBR325
|
|
00796 else DTSBR325
|
|
00797 MOVE SPACES TO WS-REC DTSBR325
|
|
00798 WRITE RPT-REC1 FROM STMT-QTR-DETAIL DTSBR325
|
|
00799 AFTER ADVANCING 8 LINE DTSBR325
|
|
00800 end-if. DTSBR325
|
|
00801 DTSBR325
|
|
00802 P1200-EXIT. DTSBR325
|
|
00803 EXIT. DTSBR325
|
|
00804 SKIP3 DTSBR325
|
|
00805 DTSBR325
|
|
00806 P1500-PRINT-MAILR-ADDR. DTSBR325
|
|
00807 DTSBR325
|
|
00808 WRITE RPT-REC1 FROM WS-XREC AFTER ADVANCING PAGE DTSBR325
|
|
00809 MOVE LINE-ADDR-17 TO WS-XREC DTSBR325
|
|
00810 WRITE RPT-REC1 FROM WS-XREC DTSBR325
|
|
00811 AFTER ADVANCING 17 LINES DTSBR325
|
|
00812 MOVE LINE-ADDR-18 TO WS-XREC DTSBR325
|
|
00813 WRITE RPT-REC1 FROM WS-XREC AFTER 1 DTSBR325
|
|
00814 MOVE LINE-ADDR-19 TO WS-XREC DTSBR325
|
|
00815 WRITE RPT-REC1 FROM WS-XREC AFTER 1 DTSBR325
|
|
00816 MOVE LINE-ADDR-20 TO WS-XREC DTSBR325
|
|
00817 WRITE RPT-REC1 FROM WS-XREC AFTER 1 DTSBR325
|
|
00818 MOVE LINE-ADDR-21 TO WS-XREC DTSBR325
|
|
00819 WRITE RPT-REC1 FROM WS-XREC AFTER 1. DTSBR325
|
|
00820 P1500-EXIT. DTSBR325
|
|
00821 EXIT. DTSBR325
|
|
00822 SKIP3 DTSBR325
|
|
00823 P2000-PRINT-REPORTS. DTSBR325
|
|
00824 * DISPLAY 'P2000 ' R325-EMP-NO ' ' R325-RPT-TYPE. DTSBR325
|
|
00825 EVALUATE TRUE DTSBR325
|
|
00826 WHEN R325-RPT-EXACT-88 DTSBR325
|
|
00827 OR R325-RPT-WITHIN-TOL-88 DTSBR325
|
|
00828 OR R325-RPT-REVERSE-88 DTSBR325
|
|
00829 PERFORM P2100-ALL-WAGES THRU P2100-EXIT DTSBR325
|
|
00830 DTSBR325
|
|
00831 WHEN R325-RPT-UNDER-MAX-88 DTSBR325
|
|
00832 PERFORM P2200-UNDER-MAX THRU P2200-EXIT DTSBR325
|
|
00833 DTSBR325
|
|
00834 WHEN R325-RPT-OVER-MAX-88 DTSBR325
|
|
00835 PERFORM P2300-OVER-MAX THRU P2300-EXIT DTSBR325
|
|
00836 DTSBR325
|
|
00837 WHEN R325-RPT-NO-WAGES-88 DTSBR325
|
|
00838 PERFORM P2400-NO-WAGES THRU P2400-EXIT DTSBR325
|
|
00839 END-EVALUATE. DTSBR325
|
|
00840 DTSBR325
|
|
00841 P2000-EXIT. DTSBR325
|
|
00842 EXIT. DTSBR325
|
|
00843 DTSBR325
|
|
00844 P2100-ALL-WAGES. DTSBR325
|
|
00845 ADD 1 TO WRK-100-WAGES-CNT. DTSBR325
|
|
00846 IF WS-REG-LINE-CNT > 50 DTSBR325
|
|
00847 MOVE WS-PAGE-CNT TO HDR3-PAGE DTSBR325
|
|
00848 MOVE '325R2' TO HDR1-RPT DTSBR325
|
|
00849 WRITE RPT-REC2 FROM HEADER1 AFTER ADVANCING TOP-OF-PAGE DTSBR325
|
|
00850 WRITE RPT-REC2 FROM HEADER2 AFTER ADVANCING 1 DTSBR325
|
|
00851 WRITE RPT-REC2 FROM HEADER25 AFTER ADVANCING 1 DTSBR325
|
|
00852 WRITE RPT-REC2 FROM HEADER3 AFTER ADVANCING 1 DTSBR325
|
|
00853 WRITE RPT-REC2 FROM HEADER4 AFTER ADVANCING 1 DTSBR325
|
|
00854 WRITE RPT-REC2 FROM HEADER5 AFTER ADVANCING 1 DTSBR325
|
|
00855 WRITE RPT-REC2 FROM HEADER55 AFTER ADVANCING 1 DTSBR325
|
|
00856 WRITE RPT-REC2 FROM HEADER6 AFTER ADVANCING 1 DTSBR325
|
|
00857 ADD 1 TO WS-PAGE-CNT DTSBR325
|
|
00858 MOVE 1 TO WS-REG-LINE-CNT DTSBR325
|
|
00859 END-IF. DTSBR325
|
|
00860 DTSBR325
|
|
00861 MOVE R325-EMP-NO TO WS-EMP-NO. DTSBR325
|
|
00862 MOVE R325-FMT-LINE (1) TO WS-PRIMARY-NAME. DTSBR325
|
|
00863 MOVE R325-UC30-WAGES TO WS-TOT-WAGE-UC30. DTSBR325
|
|
00864 MOVE R325-WAGE-FILE-WAGES TO WS-TOT-WAGE-CALC. DTSBR325
|
|
00865 MOVE R325-ASSESSMENT-WAGES TO WS-TAX-WAGE. DTSBR325
|
|
00866 MOVE R325-CALC-ASSESS-DUE TO WS-SUR-CHARGE-AMT. DTSBR325
|
|
00867 MOVE R325-QTR TO L004-QTR-5-9. DTSBR325
|
|
00868 PERFORM S004-FROM-5 THRU S004-EXIT. DTSBR325
|
|
00869 MOVE L004-SLASH-5-QTR TO WS-QTR. DTSBR325
|
|
00870 MOVE SPACES TO WS-AMEND. DTSBR325
|
|
00871 DTSBR325
|
|
00872 WRITE RPT-REC2 FROM REG-DETAIL AFTER ADVANCING 1. DTSBR325
|
|
00873 DTSBR325
|
|
00874 ADD 1 TO WS-REG-LINE-CNT. DTSBR325
|
|
00875 ADD R325-CALC-ASSESS-DUE TO WRK-TOT-REG-TAX. DTSBR325
|
|
00876 DTSBR325
|
|
00877 P2100-EXIT. DTSBR325
|
|
00878 EXIT. DTSBR325
|
|
00879 DTSBR325
|
|
00880 P2200-UNDER-MAX. DTSBR325
|
|
00881 ADD 1 TO WRK-080-WAGES-CNT. DTSBR325
|
|
00882 IF WS-ERR-LINE-CNT > 50 DTSBR325
|
|
00883 MOVE WS-ERR-PAGE-CNT TO ERR20-PAGE DTSBR325
|
|
00884 MOVE '325R3' TO HDR1-RPT DTSBR325
|
|
00885 WRITE RPT-REC3 FROM HEADER1 AFTER ADVANCING TOP-OF-PAGE DTSBR325
|
|
00886 WRITE RPT-REC3 FROM HEADER2 AFTER ADVANCING 1 DTSBR325
|
|
00887 WRITE RPT-REC3 FROM HEADER26 AFTER ADVANCING 1 DTSBR325
|
|
00888 WRITE RPT-REC3 FROM HEADER36 AFTER ADVANCING 1 DTSBR325
|
|
00889 WRITE RPT-REC3 FROM HEADER4 AFTER ADVANCING 1 DTSBR325
|
|
00890 WRITE RPT-REC3 FROM HEADER7 AFTER ADVANCING 1 DTSBR325
|
|
00891 WRITE RPT-REC3 FROM HEADER75 AFTER ADVANCING 1 DTSBR325
|
|
00892 WRITE RPT-REC3 FROM HEADER6 AFTER ADVANCING 1 DTSBR325
|
|
00893 ADD 1 TO WS-ERR-PAGE-CNT DTSBR325
|
|
00894 MOVE 1 TO WS-ERR-LINE-CNT DTSBR325
|
|
00895 END-IF. DTSBR325
|
|
00896 DTSBR325
|
|
00897 COMPUTE WRK-WAGE-DIFF = DTSBR325
|
|
00898 (R325-UC30-WAGES - R325-WAGE-FILE-WAGES). DTSBR325
|
|
00899 DTSBR325
|
|
00900 IF WRK-WAGE-DIFF < ZERO DTSBR325
|
|
00901 COMPUTE WRK-WAGE-DIFF = WRK-WAGE-DIFF * -1. DTSBR325
|
|
00902 DTSBR325
|
|
00903 MOVE R325-EMP-NO TO WS-ERR-EMP-NO. DTSBR325
|
|
00904 MOVE R325-FMT-LINE (1) TO WS-ERR-PRIMARY-NAME. DTSBR325
|
|
00905 MOVE R325-UC30-WAGES TO WS-ERR-UC30-WAGES. DTSBR325
|
|
00906 MOVE R325-WAGE-FILE-WAGES TO WS-ERR-CALC-WAGES. DTSBR325
|
|
00907 MOVE WRK-WAGE-DIFF TO WS-ERR-DIFF. DTSBR325
|
|
00908 MOVE R325-ASSESSMENT-WAGES TO WS-ERR-TAX-WAGES. DTSBR325
|
|
00909 MOVE R325-CALC-ASSESS-DUE TO WS-ERR-SUR-CHARGE-AMT. DTSBR325
|
|
00910 MOVE R325-QTR TO L004-QTR-5-9. DTSBR325
|
|
00911 PERFORM S004-FROM-5 THRU S004-EXIT. DTSBR325
|
|
00912 MOVE L004-SLASH-5-QTR TO WS-ERR-QTR. DTSBR325
|
|
00913 MOVE SPACES TO WS-ERR-AMEND. DTSBR325
|
|
00914 DTSBR325
|
|
00915 WRITE RPT-REC3 FROM ERR-DETAIL AFTER ADVANCING 1. DTSBR325
|
|
00916 DTSBR325
|
|
00917 ADD 1 TO WS-ERR-LINE-CNT. DTSBR325
|
|
00918 ADD R325-CALC-ASSESS-DUE TO WRK-TOT-ERR-TAX. DTSBR325
|
|
00919 DTSBR325
|
|
00920 P2200-EXIT. DTSBR325
|
|
00921 EXIT. DTSBR325
|
|
00922 DTSBR325
|
|
00923 P2300-OVER-MAX. DTSBR325
|
|
00924 ADD 1 TO WRK-079-WAGES-CNT. DTSBR325
|
|
00925 IF WS-ERR20-LINE-CNT > 50 DTSBR325
|
|
00926 MOVE WS-ERR20-PAGE-CNT TO ERR-PAGE DTSBR325
|
|
00927 MOVE '325R4' TO HDR1-RPT DTSBR325
|
|
00928 WRITE RPT-REC4 FROM HEADER1 AFTER ADVANCING TOP-OF-PAGE DTSBR325
|
|
00929 WRITE RPT-REC4 FROM HEADER2 AFTER ADVANCING 1 DTSBR325
|
|
00930 WRITE RPT-REC4 FROM HEADER26 AFTER ADVANCING 1 DTSBR325
|
|
00931 WRITE RPT-REC4 FROM HEADER35 AFTER ADVANCING 1 DTSBR325
|
|
00932 WRITE RPT-REC4 FROM HEADER4 AFTER ADVANCING 1 DTSBR325
|
|
00933 WRITE RPT-REC4 FROM HEADER7 AFTER ADVANCING 1 DTSBR325
|
|
00934 WRITE RPT-REC4 FROM HEADER75 AFTER ADVANCING 1 DTSBR325
|
|
00935 WRITE RPT-REC4 FROM HEADER6 AFTER ADVANCING 1 DTSBR325
|
|
00936 ADD 1 TO WS-ERR20-PAGE-CNT DTSBR325
|
|
00937 MOVE 1 TO WS-ERR20-LINE-CNT DTSBR325
|
|
00938 END-IF. DTSBR325
|
|
00939 DTSBR325
|
|
00940 COMPUTE WRK-WAGE-DIFF = DTSBR325
|
|
00941 (R325-UC30-WAGES - R325-WAGE-FILE-WAGES). DTSBR325
|
|
00942 DTSBR325
|
|
00943 IF WRK-WAGE-DIFF < ZERO DTSBR325
|
|
00944 COMPUTE WRK-WAGE-DIFF = WRK-WAGE-DIFF * -1. DTSBR325
|
|
00945 DTSBR325
|
|
00946 MOVE R325-EMP-NO TO WS-ERR-EMP-NO. DTSBR325
|
|
00947 MOVE R325-FMT-LINE (1) TO WS-ERR-PRIMARY-NAME. DTSBR325
|
|
00948 MOVE R325-UC30-WAGES TO WS-ERR-UC30-WAGES. DTSBR325
|
|
00949 MOVE R325-WAGE-FILE-WAGES TO WS-ERR-CALC-WAGES. DTSBR325
|
|
00950 MOVE WRK-WAGE-DIFF TO WS-ERR-DIFF. DTSBR325
|
|
00951 MOVE R325-ASSESSMENT-WAGES TO WS-ERR-TAX-WAGES. DTSBR325
|
|
00952 MOVE R325-CALC-ASSESS-DUE TO WS-ERR-SUR-CHARGE-AMT. DTSBR325
|
|
00953 MOVE R325-QTR TO L004-QTR-5-9. DTSBR325
|
|
00954 PERFORM S004-FROM-5 THRU S004-EXIT. DTSBR325
|
|
00955 MOVE L004-SLASH-5-QTR TO WS-ERR-QTR. DTSBR325
|
|
00956 MOVE SPACES TO WS-ERR-AMEND. DTSBR325
|
|
00957 DTSBR325
|
|
00958 MOVE ZEROS TO WS-ERR-SUR-CHARGE-AMT. DTSBR325
|
|
00959 DTSBR325
|
|
00960 WRITE RPT-REC4 FROM ERR-DETAIL AFTER ADVANCING 1. DTSBR325
|
|
00961 DTSBR325
|
|
00962 ADD 1 TO WS-ERR20-LINE-CNT. DTSBR325
|
|
00963 ADD R325-CALC-ASSESS-DUE TO WRK-TOT-ERR20-TAX. DTSBR325
|
|
00964 DTSBR325
|
|
00965 P2300-EXIT. DTSBR325
|
|
00966 EXIT. DTSBR325
|
|
00967 DTSBR325
|
|
00968 P2400-NO-WAGES. DTSBR325
|
|
00969 ADD 1 TO WRK-ZERO-WAGES-CNT. DTSBR325
|
|
00970 IF WS-ZERO-LINE-CNT > 50 DTSBR325
|
|
00971 MOVE WS-ZERO-PAGE-CNT TO ERR-ZERO-PAGE DTSBR325
|
|
00972 MOVE '325R5' TO HDR1-RPT DTSBR325
|
|
00973 WRITE RPT-REC5 FROM HEADER1 AFTER ADVANCING TOP-OF-PAGE DTSBR325
|
|
00974 WRITE RPT-REC5 FROM HEADER2 AFTER ADVANCING 1 DTSBR325
|
|
00975 WRITE RPT-REC5 FROM HEADER26 AFTER ADVANCING 1 DTSBR325
|
|
00976 WRITE RPT-REC5 FROM HEADER37 AFTER ADVANCING 1 DTSBR325
|
|
00977 WRITE RPT-REC5 FROM HEADER4 AFTER ADVANCING 1 DTSBR325
|
|
00978 WRITE RPT-REC5 FROM HEADER71 AFTER ADVANCING 1 DTSBR325
|
|
00979 WRITE RPT-REC5 FROM HEADER72 AFTER ADVANCING 1 DTSBR325
|
|
00980 WRITE RPT-REC5 FROM HEADER6 AFTER ADVANCING 1 DTSBR325
|
|
00981 ADD 1 TO WS-ZERO-PAGE-CNT DTSBR325
|
|
00982 MOVE 1 TO WS-ZERO-LINE-CNT DTSBR325
|
|
00983 END-IF. DTSBR325
|
|
00984 DTSBR325
|
|
00985 MOVE R325-EMP-NO TO WS-WGE-EMP-NO. DTSBR325
|
|
00986 MOVE R325-FMT-LINE (1) TO WS-WGE-PRIMARY-NAME. DTSBR325
|
|
00987 MOVE R325-UC30-WAGES TO WS-WGE-UC30-WAGES. DTSBR325
|
|
00988 MOVE R325-WAGE-FILE-WAGES TO WS-WGE-CALC-WAGES. DTSBR325
|
|
00989 MOVE R325-QTR TO L004-QTR-5-9. DTSBR325
|
|
00990 PERFORM S004-FROM-5 THRU S004-EXIT. DTSBR325
|
|
00991 MOVE L004-SLASH-5-QTR TO WS-WGE-QTR. DTSBR325
|
|
00992 DTSBR325
|
|
00993 WRITE RPT-REC5 FROM NO-WAGE-DETAIL AFTER ADVANCING 1. DTSBR325
|
|
00994 ADD 1 TO WS-ZERO-LINE-CNT. DTSBR325
|
|
00995 DTSBR325
|
|
00996 P2400-EXIT. DTSBR325
|
|
00997 EXIT. DTSBR325
|
|
00998 DTSBR325
|
|
00999 T1000-TERMINATE. DTSBR325
|
|
01000 PERFORM T2000-REPORT-TOTALS THRU T2000-EXIT. DTSBR325
|
|
01001 DTSBR325
|
|
01002 DISPLAY ' '. DTSBR325
|
|
01003 DTSBR325
|
|
01004 DISPLAY '*** DTSBR325 (SI ASSESSMENT BILLS ) ' DTSBR325
|
|
01005 'TERMINATION STATISTICS'. DTSBR325
|
|
01006 DISPLAY 'TOTAL ASSESSMENT STATEMENT GENERATED ' TOT-RPT-CNT.DTSBR325
|
|
01007 DISPLAY ' '. DTSBR325
|
|
01008 DISPLAY ' REPORTS WITH 100% WAGES : ' WRK-100-WAGES-CNT. DTSBR325
|
|
01009 DISPLAY ' REPORTS WITHIN TOLERENCE : ' WRK-080-WAGES-CNT. DTSBR325
|
|
01010 DISPLAY ' REPORTS EXCEEDED TOLERENCE: ' WRK-079-WAGES-CNT. DTSBR325
|
|
01011 DISPLAY ' REPORTS WITH ZERO WAGES : ' WRK-ZERO-WAGES-CNT. DTSBR325
|
|
01012 DISPLAY ' '. DTSBR325
|
|
01013 DISPLAY '***END JOB****'. DTSBR325
|
|
01014 DTSBR325
|
|
01015 CLOSE RPT-FILE1 RPT-FILE2 RPT-FILE3 RPT-FILE4 DTSBR325
|
|
01016 RPT-FILE5. DTSBR325
|
|
01017 DTSBR325
|
|
01018 T1000-EXIT. DTSBR325
|
|
01019 EXIT. DTSBR325
|
|
01020 EJECT DTSBR325
|
|
01021 T2000-REPORT-TOTALS. DTSBR325
|
|
01022 ADD 1 TO WS-REG-LINE-CNT. DTSBR325
|
|
01023 IF WS-REG-LINE-CNT > 60 DTSBR325
|
|
01024 MOVE WS-PAGE-CNT TO HDR3-PAGE DTSBR325
|
|
01025 MOVE '325R2' TO HDR1-RPT DTSBR325
|
|
01026 WRITE RPT-REC2 FROM HEADER1 AFTER ADVANCING TOP-OF-PAGE DTSBR325
|
|
01027 WRITE RPT-REC2 FROM HEADER2 AFTER ADVANCING 1 DTSBR325
|
|
01028 WRITE RPT-REC2 FROM HEADER3 AFTER ADVANCING 1 DTSBR325
|
|
01029 WRITE RPT-REC2 FROM HEADER4 AFTER ADVANCING 1 DTSBR325
|
|
01030 WRITE RPT-REC2 FROM HEADER5 AFTER ADVANCING 1 DTSBR325
|
|
01031 WRITE RPT-REC2 FROM HEADER6 AFTER ADVANCING 1 DTSBR325
|
|
01032 ADD 1 TO WS-PAGE-CNT DTSBR325
|
|
01033 MOVE 1 TO WS-REG-LINE-CNT DTSBR325
|
|
01034 END-IF. DTSBR325
|
|
01035 DTSBR325
|
|
01036 IF WRK-TOT-REG-TAX = ZEROS DTSBR325
|
|
01037 NEXT SENTENCE DTSBR325
|
|
01038 ELSE DTSBR325
|
|
01039 WRITE RPT-REC2 FROM FOOTING1 AFTER ADVANCING 1 DTSBR325
|
|
01040 MOVE WRK-TOT-REG-TAX TO WS-FOOTING-AMT DTSBR325
|
|
01041 WRITE RPT-REC2 FROM FOOTING2 AFTER ADVANCING 1 DTSBR325
|
|
01042 WRITE RPT-REC2 FROM FOOTING1 AFTER ADVANCING 1. DTSBR325
|
|
01043 DTSBR325
|
|
01044 ADD 1 TO WS-ERR-LINE-CNT. DTSBR325
|
|
01045 IF WS-ERR-LINE-CNT > 60 DTSBR325
|
|
01046 MOVE WS-ERR-PAGE-CNT TO ERR20-PAGE DTSBR325
|
|
01047 MOVE '325R3' TO HDR1-RPT DTSBR325
|
|
01048 WRITE RPT-REC3 FROM HEADER1 AFTER ADVANCING TOP-OF-PAGE DTSBR325
|
|
01049 WRITE RPT-REC3 FROM HEADER2 AFTER ADVANCING 1 DTSBR325
|
|
01050 WRITE RPT-REC3 FROM HEADER35 AFTER ADVANCING 1 DTSBR325
|
|
01051 WRITE RPT-REC3 FROM HEADER4 AFTER ADVANCING 1 DTSBR325
|
|
01052 WRITE RPT-REC3 FROM HEADER7 AFTER ADVANCING 1 DTSBR325
|
|
01053 WRITE RPT-REC3 FROM HEADER6 AFTER ADVANCING 1 DTSBR325
|
|
01054 ADD 1 TO WS-ERR-PAGE-CNT DTSBR325
|
|
01055 MOVE 1 TO WS-ERR-LINE-CNT DTSBR325
|
|
01056 END-IF. DTSBR325
|
|
01057 DTSBR325
|
|
01058 IF WRK-TOT-ERR-TAX = ZEROS DTSBR325
|
|
01059 NEXT SENTENCE DTSBR325
|
|
01060 ELSE DTSBR325
|
|
01061 WRITE RPT-REC3 FROM FOOTING4 AFTER ADVANCING 1 DTSBR325
|
|
01062 MOVE WRK-TOT-ERR-TAX TO WS-FOOTING-AMT2 DTSBR325
|
|
01063 WRITE RPT-REC3 FROM FOOTING3 AFTER ADVANCING 1 DTSBR325
|
|
01064 WRITE RPT-REC3 FROM FOOTING4 AFTER ADVANCING 1. DTSBR325
|
|
01065 DTSBR325
|
|
01066 T2000-EXIT. DTSBR325
|
|
01067 EXIT. DTSBR325
|
|
01068 DTSBR325
|
|
01069 S001-FROM-FED-8. DTSBR325
|
|
01070 SET L001-FROM-FED-8 TO TRUE. DTSBR325
|
|
01071 GO TO S001-DATE. DTSBR325
|
|
01072 DTSBR325
|
|
01073 S001-DATE. DTSBR325
|
|
01074 CALL 'DTSBU001' USING L001-LINK-AREA. DTSBR325
|
|
01075 S001-EXIT. DTSBR325
|
|
01076 EXIT. DTSBR325
|
|
01077 DTSBR325
|
|
01078 S004-FROM-5. DTSBR325
|
|
01079 SET L004-FROM-5 TO TRUE. DTSBR325
|
|
01080 GO TO S004-EDIT-QTR. DTSBR325
|
|
01081 DTSBR325
|
|
01082 S004-FROM-ABS. DTSBR325
|
|
01083 SET L004-FROM-ABS TO TRUE. DTSBR325
|
|
01084 GO TO S004-EDIT-QTR. DTSBR325
|
|
01085 DTSBR325
|
|
01086 S004-EDIT-QTR. DTSBR325
|
|
01087 CALL 'DTSBU004' USING L004-LINK-AREA. DTSBR325
|
|
01088 DTSBR325
|
|
01089 S004-EXIT. DTSBR325
|
|
01090 EXIT. DTSBR325
|
|
01091 DTSBR325
|
|
01092 S005-SYS-DATE. DTSBR325
|
|
01093 SET L005-FROM-SYS TO TRUE DTSBR325
|
|
01094 GO TO S005-ABSTIME. DTSBR325
|
|
01095 S005-FROM-ABSTIME. DTSBR325
|
|
01096 SET L005-FROM-ABSTIME TO TRUE. DTSBR325
|
|
01097 GO TO S005-ABSTIME. DTSBR325
|
|
01098 S005-ABSTIME. DTSBR325
|
|
01099 CALL 'DTSBU005' USING L005-LINK-AREA. DTSBR325
|
|
01100 S005-EXIT. DTSBR325
|
|
01101 EXIT. DTSBR325
|
|
01102 DTSBR325
|
|
01103 S910-OPEN-READ. DTSBR325
|
|
01104 SET L910-OPEN-READ-88 TO TRUE. DTSBR325
|
|
01105 GO TO S910-MSTR-IO. DTSBR325
|
|
01106 S910-READ. DTSBR325
|
|
01107 SET L910-READ-88 TO TRUE. DTSBR325
|
|
01108 GO TO S910-MSTR-IO. DTSBR325
|
|
01109 S910-START-BROWSE. DTSBR325
|
|
01110 SET L910-START-BROWSE-88 TO TRUE DTSBR325
|
|
01111 GO TO S910-MSTR-IO. DTSBR325
|
|
01112 S910-READ-NEXT. DTSBR325
|
|
01113 SET L910-READ-NEXT-88 TO TRUE DTSBR325
|
|
01114 GO TO S910-MSTR-IO. DTSBR325
|
|
01115 S910-CLOSE. DTSBR325
|
|
01116 SET L910-CLOSE-88 TO TRUE DTSBR325
|
|
01117 GO TO S910-MSTR-IO. DTSBR325
|
|
01118 S910-MSTR-IO. DTSBR325
|
|
01119 CALL 'DTSBU910' USING L910-LINK-AREA DTSBR325
|
|
01120 MSKL-REC. DTSBR325
|
|
01121 S910-EXIT. DTSBR325
|
|
01122 EXIT. DTSBR325
|
|
01123 DTSBR325
|
|
01124 S999-ABEND. DTSBR325
|
|
01125 DISPLAY WRK-ABEND-MSG. DTSBR325
|
|
01126 DTSBR325
|
|
01127 CALL 'DTSBU999' USING WRK-ABEND-CD. DTSBR325
|
|
01128 S999-EXIT. DTSBR325
|
|
01129 EXIT. DTSBR325
|