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