00001 IDENTIFICATION DIVISION. 04/07/10 00002 PROGRAM-ID. DTSBR433. DTSBR433 00003 AUTHOR. ngi. LV003 00004 DATE-WRITTEN. May 2009. DTSBR433 00005 DATE-COMPILED. DTSBR433 00006 SKIP3 DTSBR433 00007 ***** DTSBR433 00008 * CALLING SEQUENCE: DTSBR433 00009 * DTSBR433 00010 * DTSBR433 READS DTSIR433 RECORDS. DTSBR433 00011 * DTSBR433 00012 * FUNCTION: self insured second delinquest notice DTSBR433 00013 * DTSBR433 00014 * DTSBR433 00015 * MODIFICATION HISTORY: DTSBR433 00016 * DTSBR433 00017 * 05-21-09 created program to print self insured delinquent DTSBR433 00018 * notice. DTSBR433 00019 * REFERENCE XXXXXXXXX PROGRAMMER: zl1 DTSBR433 00020 * DTSBR433 00021 * XX-XX-XX XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBR433 00022 * XXXXXXXXXXXX. DTSBR433 00023 * REFERENCE XXXXXXXXX PROGRAMMER: XXX DTSBR433 00024 * DTSBR433 00025 * DESCRIPTION: DTSBR433 00026 * DTSBR433 00027 * THIS MODULE PRINTS self insured delinquent notice DTSBR433 00028 * DTSBR433 00029 * DTSBR433 00030 * RECORDS READ: DTSBR433 00031 * DTSBR433 00032 * NONE. DTSBR433 00033 * DTSBR433 00034 * DTSBR433 00035 * PRINTED OUTPUTS: DTSBR433 00036 * DTSBR433 00037 * 433R1 self insured second notice DTSBR433 00038 * 433r2 management report for view direct DTSBR433 00039 * DTSBR433 00040 * RECORDS WRITTEN: DTSBR433 00041 * DTSBR433 00042 * NONE. DTSBR433 00043 * DTSBR433 00044 * DTSBR433 00045 * MODULES CALLED: DTSBR433 00046 * DTSBR433 00047 * DTSBU001 DATE EDIT/CONVERSION MODULE DTSBR433 00048 * DTSBU002 DATE ALPHA CONVERSION MODULE. DTSBR433 00049 * DTSBR433 00050 ***** DTSBR433 00051 EJECT DTSBR433 00052 ENVIRONMENT DIVISION. DTSBR433 00053 SKIP2 DTSBR433 00054 CONFIGURATION SECTION. DTSBR433 00055 SPECIAL-NAMES. C01 IS TOP-OF-PAGE. DTSBR433 00056 SKIP1 DTSBR433 00057 INPUT-OUTPUT SECTION. DTSBR433 00058 SKIP1 DTSBR433 00059 FILE-CONTROL. DTSBR433 00060 SELECT PRT-FILE1 ASSIGN TO RPT433R1. DTSBR433 00061 SELECT PRT-FILE2 ASSIGN TO RPT433R2. DTSBR433 00062 SKIP3 DTSBR433 00063 DATA DIVISION. DTSBR433 00064 SKIP3 DTSBR433 00065 FILE SECTION. DTSBR433 00066 SKIP2 DTSBR433 00067 FD PRT-FILE1 DTSBR433 00068 RECORDING MODE IS F DTSBR433 00069 BLOCK CONTAINS 0 RECORDS DTSBR433 00070 LABEL RECORDS ARE OMITTED. DTSBR433 00071 01 XEROX-REPORT. DTSBR433 00072 05 FILLER PIC X(1). DTSBR433 00073 05 XEROX-RPT PIC X(132). DTSBR433 00074 EJECT DTSBR433 00075 FD PRT-FILE2 DTSBR433 00076 RECORDING MODE IS F DTSBR433 00077 BLOCK CONTAINS 0 RECORDS DTSBR433 00078 LABEL RECORDS ARE OMITTED. DTSBR433 00079 01 vd-REPORT. DTSBR433 00080 05 vd-RPT PIC X(132). DTSBR433 00081 DTSBR433 00082 DTSBR433 00083 WORKING-STORAGE SECTION. DTSBR433 000835 77 PAN-VALET PICTURE X(24) VALUE '003DTSBR433 04/07/10'. DTSBR433 00084 SKIP3 DTSBR433 00085 01 WRK-AREA. DTSBR433 00086 05 ws-PAGE-NO PIC S9(04) COMP VALUE +0. DTSBR433 00087 05 ws-line-cnt PIC S9(04) COMP VALUE +66. DTSBR433 00088 05 WRK-ABEND-CD PIC S9(04) COMP VALUE +316.DTSBR433 00089 05 FIRST-TIME-IND PIC X(01) VALUE 'Y'. DTSBR433 00090 05 WS-REC PIC X(132) VALUE SPACES. DTSBR433 00091 SKIP3 DTSBR433 00092 01 VSCA-LINE. DTSBR433 00093 05 VSCA-DATA PIC X(133) VALUE SPACES. DTSBR433 00094 01 WRK-EMP-NO PIC 9(06) VALUE ZEROS. DTSBR433 00095 01 ws-stub-balance-amt PIC s9(09)v9(02) value 0. DTSBR433 00096 SKIP1 DTSBR433 00097 01 L001-LINK-AREA. DTSBR433 00098 ++INCLUDE DTSIL001 DTSBR433 00099 EJECT DTSBR433 00100 01 L002-LINK-AREA. DTSBR433 00101 ++INCLUDE DTSIL002 DTSBR433 00102 EJECT DTSBR433 00103 01 L004-LINK-AREA. DTSBR433 00104 ++INCLUDE DTSIL004 DTSBR433 00105 EJECT DTSBR433 00106 ++INCLUDE DTSXL433 DTSBR433 00107 SKIP3 DTSBR433 00108 01 BILL-LINE6. DTSBR433 00109 05 STUB-LINE. DTSBR433 00110 10 FILLER PIC X(04) VALUE SPACES. DTSBR433 00111 10 STUB-EMP-NO PIC 999B999. DTSBR433 00112 10 FILLER PIC X(03) VALUE SPACES. DTSBR433 00113 10 STUB-EMP-FEIN PIC 99B9999999. DTSBR433 00114 10 FILLER PIC X(04) VALUE SPACES. DTSBR433 00115 10 STUB-STMT-DATE PIC X(10). DTSBR433 00116 10 FILLER PIC X(06) VALUE SPACES. DTSBR433 00117 10 STUB-COMP-DATE PIC X(10). DTSBR433 00118 10 FILLER PIC X(07) VALUE SPACES. DTSBR433 00119 10 STUB-AMT PIC $,$$$,$$$.$$. DTSBR433 00120 05 ADDR01. DTSBR433 00121 10 FILLER PIC X(01) VALUE SPACE. DTSBR433 00122 10 FILLER PIC X(27) VALUE SPACES. DTSBR433 00123 10 STUB-ADDR-LINE1 PIC X(40). DTSBR433 00124 10 FILLER PIC X(23) value spaces. DTSBR433 00125 05 ADDR02. DTSBR433 00126 10 FILLER PIC X(01) VALUE SPACE. DTSBR433 00127 10 FILLER PIC X(27) VALUE SPACES. DTSBR433 00128 10 STUB-ADDR-LINE2 PIC X(40). DTSBR433 00129 10 FILLER PIC X(23) value spaces. DTSBR433 00130 05 ADDR03. DTSBR433 00131 10 FILLER PIC X(01) VALUE SPACE. DTSBR433 00132 10 FILLER PIC X(27) VALUE SPACES. DTSBR433 00133 10 STUB-ADDR-LINE3 PIC X(40). DTSBR433 00134 10 FILLER PIC X(23) value spaces. DTSBR433 00135 05 ADDR04. DTSBR433 00136 10 FILLER PIC X(01) VALUE SPACE. DTSBR433 00137 10 FILLER PIC X(27) VALUE SPACES. DTSBR433 00138 10 STUB-ADDR-LINE4 PIC X(40). DTSBR433 00139 10 FILLER PIC X(32) VALUE SPACES. DTSBR433 00140 05 ADDR05. DTSBR433 00141 10 FILLER PIC X(01) VALUE SPACE. DTSBR433 00142 10 FILLER PIC X(27) VALUE SPACES. DTSBR433 00143 10 STUB-ADDR-LINE5 PIC X(40). DTSBR433 00144 10 FILLER PIC X(32) VALUE SPACES. DTSBR433 00145 05 STMT-LINE1. DTSBR433 00146 10 FILLER PIC X(03) VALUE SPACES. DTSBR433 00147 10 STMT-EMP-NO PIC 999B999. DTSBR433 00148 10 FILLER PIC X(03) VALUE SPACES. DTSBR433 00149 10 STMT-NAME-CHEck PIC X(04). DTSBR433 00150 10 FILLER PIC X(04) VALUE SPACES. DTSBR433 00151 10 STMT-EMP-FEIN PIC 99B9999999. DTSBR433 00152 10 FILLER PIC X(03) VALUE SPACES. DTSBR433 00153 10 STMT-STMT-DATE PIC X(10). DTSBR433 00154 10 FILLER PIC X(04) VALUE SPACES. DTSBR433 00155 10 STMT-COMP-DATE PIC X(10). DTSBR433 00156 10 FILLER PIC X(06) VALUE SPACES. DTSBR433 00157 05 STMT-QTR-DETAIL. DTSBR433 00158 10 FILLER PIC X(03) VALUE SPACE. DTSBR433 00159 10 QTR-DET-YR. DTSBR433 00160 15 QTR-DET-YR1 PIC X(06). DTSBR433 00161 15 QTR-DET-YR2 PIC X(03). DTSBR433 00162 10 FILLER PIC X(02). DTSBR433 00163 10 DET-CONTRIB-AMT PIC zZ,ZZZ,ZZZ.ZZ. DTSBR433 00164 10 FILLER PIC X(02). DTSBR433 00165 10 DET-sur-AMT PIC ZZZ,ZZZ.ZZ. DTSBR433 00166 10 FILLER PIC X(04). DTSBR433 00167 10 DET-INTEREST-AMT PIC ZZZ,ZZZ.ZZ. DTSBR433 00168 10 FILLER PIC X(03). DTSBR433 00169 10 DET-PENALTY-AMT PIC ZZZ,ZZZ.ZZ. DTSBR433 00170 10 FILLER PIC X(10). DTSBR433 00171 10 DET-balance-AMT PIC Z,ZZZ,ZZZ.ZZ. DTSBR433 00172 10 FILLER PIC X(02). DTSBR433 00173 05 STMT-TOTAL-LINE. DTSBR433 00174 10 FILLER PIC X(74) VALUE SPACE. DTSBR433 00175 10 TOTAL-BALANCE-AMT PIC $$$,$$$,$$$.$$. DTSBR433 00176 10 FILLER PIC X(02) VALUE SPACES. DTSBR433 00177 01 RPT-LINE-1. DTSBR433 00178 10 FILLER PIC X(04) VALUE SPACE. DTSBR433 00179 10 WS-EMP-NO PIC 999B999. DTSBR433 00180 10 FILLER PIC X(04) VALUE SPACE. DTSBR433 00181 10 WS-EMP-NAME PIC X(40). DTSBR433 00182 10 FILLER PIC X(05) VALUE SPACE. DTSBR433 00183 10 WS-TAX-DUE PIC Z,ZZZ,ZZ9.99. DTSBR433 00184 10 WS-sur-CHARGED-AMT PIC Z,ZZZ,ZZ9.99. DTSBR433 00185 10 FILLER PIC X(03) VALUE SPACES. DTSBR433 00186 10 WS-PEN-CHARGED-AMT PIC Z,ZZZ,ZZ9.99. DTSBR433 00187 10 FILLER PIC X(03) VALUE SPACES. DTSBR433 00188 10 WS-INT-CHARGED-AMT PIC Z,ZZZ,ZZ9.99. DTSBR433 00189 10 FILLER PIC X(03) VALUE SPACES. DTSBR433 00190 10 WS-TOTAL-DUE PIC Z,ZZZ,ZZ9.99. DTSBR433 00191 SKIP2 DTSBR433 00192 01 RPT-DETAIL-HEADER-AREA. DTSBR433 00193 05 RPT-DETAIL-HDR1. DTSBR433 00194 10 FILLER PIC X VALUE SPACE. DTSBR433 00195 10 FILLER PIC X(08) DTSBR433 00196 VALUE 'DTSBR433'. DTSBR433 00197 10 FILLER PIC X(40) VALUE SPACES. DTSBR433 00198 10 FILLER PIC X(33) DTSBR433 00199 VALUE 'DEPARTMENT OF EMPLOYMENT SERVICES'. DTSBR433 00200 10 FILLER PIC X(33) VALUE SPACES. DTSBR433 00201 10 FILLER PIC X(09) DTSBR433 00202 VALUE 'PAGE NO.:'. DTSBR433 00203 10 RPT-DTL-PAGE-NO PIC ZZZ99. DTSBR433 00204 05 RPT-DETAIL-HDR2. DTSBR433 00205 10 FILLER PIC X(01) VALUE SPACES. DTSBR433 00206 10 FILLER PIC X(09) VALUE 'QUARTER: '. DTSBR433 00207 10 WS-YRQ PIC X(06). DTSBR433 00208 10 FILLER PIC X(30) VALUE SPACES. DTSBR433 00209 10 H2-RPT-TYPE PIC X(40) VALUE DTSBR433 00210 'SECOND NOTICE FOR REIMBURSABLE EMPLOYERS'. DTSBR433 00211 10 FILLER PIC X(22) VALUE SPACES. DTSBR433 00212 10 FILLER PIC X(13) DTSBR433 00213 VALUE ' RUN DATE: '. DTSBR433 00214 10 hdr1-date PIC X(10). DTSBR433 00215 05 RPT-DETAIL-HDR3. DTSBR433 00216 10 FILLER PIC X(04) VALUE SPACES. DTSBR433 00217 10 FILLER PIC X(09) VALUE 'emp no '. DTSBR433 00218 10 FILLER PIC X(02) VALUE SPACES. DTSBR433 00219 10 FILLER PIC X(09) VALUE 'emp name '. DTSBR433 00220 10 FILLER PIC X(41) VALUE SPACES. DTSBR433 00221 10 FILLER PIC X(09) VALUE 'tax due '. DTSBR433 00222 10 FILLER PIC X(03) VALUE spaces. DTSBR433 00223 10 FILLER PIC X(09) VALUE 'sur tax '. DTSBR433 00224 10 FILLER PIC X(04) VALUE spaces. DTSBR433 00225 10 FILLER PIC X(09) VALUE ' interest'. DTSBR433 00226 10 FILLER PIC X(08) VALUE SPACES. DTSBR433 00227 10 FILLER PIC X(07) VALUE 'penalty'. DTSBR433 00228 10 FILLER PIC X(08) VALUE SPACES. DTSBR433 00229 10 FILLER PIC X(07) VALUE 'balance'. DTSBR433 00230 01 L101-LINK-AREA. DTSBR433 00231 ++INCLUDE DTSIL101 DTSBR433 00232 01 L005-LINK-AREA. DTSBR433 00233 ++INCLUDE DTSIL005 DTSBR433 00234 01 MQTR-REC. DTSBR433 00235 ++INCLUDE DTSIMQTR DTSBR433 00236 EJECT DTSBR433 00237 *RW1 DTSBR433 00238 01 CONVERT-BARCODE-LINE. DTSBR433 00239 05 BARC-EMP-NO PIC 9(06) VALUE ZEROS. DTSBR433 00240 DTSBR433 00241 01 WS-BARC-LINE. DTSBR433 00242 05 FILLER PIC X(40) VALUE SPACES. DTSBR433 00243 05 CONVERTED-BARCODE PIC X(50). DTSBR433 00244 05 FILLER PIC X(30) VALUE SPACES. DTSBR433 00245 DTSBR433 00246 01 BARI-LINK-AREA. DTSBR433 00247 ++INCLUDE BARIL599 DTSBR433 00248 SKIP3 DTSBR433 00249 *RW2 DTSBR433 00250 LINKAGE SECTION. DTSBR433 00251 SKIP3 DTSBR433 00252 01 LRCM-LINK-AREA. DTSBR433 00253 ++INCLUDE DTSILRCM DTSBR433 00254 01 R433-REC. DTSBR433 00255 ++INCLUDE DTSIR433 DTSBR433 00256 PROCEDURE DIVISION USING LRCM-LINK-AREA DTSBR433 00257 R433-REC. DTSBR433 00258 SKIP2 DTSBR433 00259 IF FIRST-TIME-IND = 'Y' DTSBR433 00260 PERFORM I1000-INITIATE THRU I1000-EXIT DTSBR433 00261 MOVE 'N' TO FIRST-TIME-IND. DTSBR433 00262 SKIP1 DTSBR433 00263 IF LRCM-EOR-88 DTSBR433 00264 PERFORM T1000-TERMINATE THRU T1000-EXIT DTSBR433 00265 ELSE DTSBR433 00266 PERFORM P1000-PROCESS THRU P1000-EXIT. DTSBR433 00267 SKIP2 DTSBR433 00268 GOBACK. DTSBR433 00269 EJECT DTSBR433 00270 I1000-INITIATE. DTSBR433 00271 DTSBR433 00272 OPEN OUTPUT PRT-FILE1 prt-file2. DTSBR433 00273 MOVE SPACES TO XEROX-REPORT. DTSBR433 00274 DTSBR433 00275 PERFORM S005-FROM-SYS THRU S005-EXIT. DTSBR433 00276 MOVE L005-SLASH-DATE TO HDR1-DATE. DTSBR433 00277 DTSBR433 00278 I1000-EXIT. DTSBR433 00279 EXIT. DTSBR433 00280 EJECT DTSBR433 00281 P1000-PROCESS. DTSBR433 00282 DTSBR433 00283 MOVE R433-EMP-NO TO STUB-EMP-NO DTSBR433 00284 STMT-EMP-NO DTSBR433 00285 ws-emp-no. DTSBR433 00286 MOVE R433-FEIN TO STUB-EMP-FEIN DTSBR433 00287 STMT-EMP-FEIN. DTSBR433 00288 move r433-ui-tax TO DET-CONTRIB-AMT DTSBR433 00289 ws-tax-due. DTSBR433 00290 move r433-sur-tax TO DET-sur-AMT DTSBR433 00291 ws-sur-charged-amt. DTSBR433 00292 move r433-INTEREST TO DET-INTEREST-AMT DTSBR433 00293 ws-int-charged-amt. DTSBR433 00294 move r433-PENALTY TO DET-PENALTY-AMT DTSBR433 00295 ws-pen-charged-amt. DTSBR433 00296 compute ws-STUB-BALANCE-AMT = r433-ui-tax + DTSBR433 00297 r433-sur-tax + r433-interest + r433-penalty. DTSBR433 00298 DTSBR433 00299 MOVE WS-STUB-BALANCE-AMT TO STUB-AMT DTSBR433 00300 total-balance-amt DTSBR433 00301 DET-balance-amt DTSBR433 00302 ws-total-due. DTSBR433 00303 SET L001-FROM-FED-8 TO TRUE. DTSBR433 00304 MOVE R433-STMT-DATE TO L001-FED-8-DATE-9. DTSBR433 00305 PERFORM S001-FROM-FED-8 THRU S001-EXIT. DTSBR433 00306 MOVE L001-SLASH-8-DATE TO STUB-STMT-DATE DTSBR433 00307 STMT-STMT-DATE. DTSBR433 00308 DTSBR433 00309 MOVE R433-qtr TO L004-QTR-5-9. DTSBR433 00310 SET L004-FROM-5 TO TRUE. DTSBR433 00311 PERFORM S004-FROM-QTR THRU S004-EXIT. DTSBR433 00312 MOVE L004-SLASH-5-QTR TO WS-YRQ qtr-det-yr. DTSBR433 00313 DTSBR433 00314 SET L001-FROM-FED-8 TO TRUE. DTSBR433 00315 MOVE R433-COMP-DATE TO L001-FED-8-DATE-9. DTSBR433 00316 PERFORM S001-FROM-FED-8 THRU S001-EXIT. DTSBR433 00317 DTSBR433 00318 IF L001-INVALID-DATE DTSBR433 00319 MOVE SPACES TO STUB-COMP-DATE DTSBR433 00320 STMT-COMP-DATE DTSBR433 00321 ELSE DTSBR433 00322 MOVE L001-SLASH-8-DATE TO STUB-COMP-DATE DTSBR433 00323 STMT-COMP-DATE. DTSBR433 00324 DTSBR433 00325 MOVE R433-FMT-LINE (1) TO STUB-ADDR-LINE1 DTSBR433 00326 MAIL-ADDR-LINE1 DTSBR433 00327 WS-EMP-NAME DTSBR433 00328 stmt-name-check. DTSBR433 00329 MOVE R433-FMT-LINE (2) TO STUB-ADDR-LINE2 DTSBR433 00330 MAIL-ADDR-LINE2. DTSBR433 00331 MOVE R433-FMT-LINE (3) TO STUB-ADDR-LINE3 DTSBR433 00332 MAIL-ADDR-LINE3. DTSBR433 00333 MOVE R433-FMT-LINE (4) TO STUB-ADDR-LINE4 DTSBR433 00334 MAIL-ADDR-LINE4. DTSBR433 00335 MOVE R433-FMT-LINE (5) TO STUB-ADDR-LINE5 DTSBR433 00336 MAIL-ADDR-LINE5. DTSBR433 00337 MOVE r433-ui-tax to WS-TAX-DUE. DTSBR433 00338 MOVE R433-interest TO WS-PEN-CHARGED-AMT. DTSBR433 00339 MOVE R433-penalty TO WS-INT-CHARGED-AMT. DTSBR433 00340 DTSBR433 00341 PERFORM P2000-PRINT-HEADER THRU P2000-EXIT. DTSBR433 00342 PERFORM P6000-SELF-MAILER-RTN THRU P6000-EXIT. DTSBR433 00343 PERFORM P4000-PRINT-rpt THRU P4000-EXIT. DTSBR433 00344 SKIP1 DTSBR433 00345 P1000-EXIT. DTSBR433 00346 EXIT. DTSBR433 00347 DTSBR433 00348 DTSBR433 00349 P2000-PRINT-HEADER. DTSBR433 00350 DTSBR433 00351 MOVE R433-EMP-NO TO BARC-EMP-NO. DTSBR433 00352 PERFORM S599-BARCODE THRU S599-EXIT. DTSBR433 00353 DTSBR433 00354 IF L599-SETB-FONT1 DTSBR433 00355 MOVE 'MODIFY=TAXSM1,' TO xerox-CME DTSBR433 00356 ELSE DTSBR433 00357 IF L599-SETB-FONT2 DTSBR433 00358 MOVE 'MODIFY=TAXSM2,' TO xerox-CME DTSBR433 00359 ELSE DTSBR433 00360 MOVE 'MODIFY=TAXSM1,' TO xerox-CME. DTSBR433 00361 DTSBR433 00362 move XEROX-8x11-line to ws-rec. DTSBR433 00363 WRITE XEROX-REPORT FROM ws-rec DTSBR433 00364 AFTER ADVANCING TOP-OF-PAGE. DTSBR433 00365 move XEROX-CNTL-LINE2 to ws-rec DTSBR433 00366 WRITE XEROX-REPORT FROM ws-rec DTSBR433 00367 AFTER ADVANCING 1. DTSBR433 00368 DTSBR433 00369 MOVE SPACES TO WS-REC DTSBR433 00370 WRITE xerox-report FROM WS-REC AFTER ADVANCING 09 LINES DTSBR433 00371 MOVE STUB-LINE TO WS-REC DTSBR433 00372 WRITE xerox-report FROM WS-REC AFTER ADVANCING 1 LINES DTSBR433 00373 MOVE ADDR01 TO WS-REC DTSBR433 00374 WRITE xerox-report FROM WS-REC AFTER ADVANCING 1 LINES DTSBR433 00375 MOVE ADDR02 TO WS-REC DTSBR433 00376 WRITE xerox-report FROM WS-REC AFTER ADVANCING 1 LINES DTSBR433 00377 MOVE ADDR03 TO WS-REC DTSBR433 00378 WRITE xerox-report FROM WS-REC AFTER ADVANCING 1 LINES DTSBR433 00379 MOVE ADDR04 TO WS-REC DTSBR433 00380 WRITE xerox-report FROM WS-REC AFTER ADVANCING 1 LINES DTSBR433 00381 MOVE ADDR05 TO WS-REC DTSBR433 00382 WRITE xerox-report FROM WS-REC AFTER ADVANCING 1 LINES DTSBR433 00383 MOVE STMT-LINE1 TO WS-REC DTSBR433 00384 WRITE xerox-report FROM WS-REC AFTER ADVANCING 4 LINES DTSBR433 00385 MOVE STMT-qtr-detail TO WS-REC DTSBR433 00386 WRITE xerox-report FROM WS-REC AFTER ADVANCING 9 LINES DTSBR433 00387 MOVE STMT-total-line TO WS-REC DTSBR433 00388 WRITE xerox-report FROM WS-REC AFTER ADVANCING 3 LINES DTSBR433 00389 MOVE spaces TO WS-REC DTSBR433 00390 WRITE xerox-report FROM WS-REC AFTER ADVANCING 3 LINES. DTSBR433 00391 DTSBR433 00392 P2000-EXIT. DTSBR433 00393 EXIT. DTSBR433 00394 DTSBR433 00395 P4000-PRINT-rpt. DTSBR433 00396 if ws-line-cnt > 60 DTSBR433 00397 ADD 1 TO WS-PAGE-NO DTSBR433 00398 MOVE WS-PAGE-NO TO RPT-DTL-PAGE-NO DTSBR433 00399 write vd-report from rpt-detail-hdr1 DTSBR433 00400 AFTER ADVANCING TOP-OF-PAGE DTSBR433 00401 write vd-report from rpt-detail-hdr2 DTSBR433 00402 AFTER ADVANCING 1 DTSBR433 00403 write vd-report from rpt-detail-hdr3 DTSBR433 00404 AFTER ADVANCING 1 DTSBR433 00405 MOVE spaces TO WS-REC DTSBR433 00406 write vd-report from ws-rec DTSBR433 00407 AFTER ADVANCING 1 DTSBR433 00408 move 6 to ws-line-cnt. DTSBR433 00409 write vd-report from rpt-line-1 DTSBR433 00410 AFTER ADVANCING 1. DTSBR433 00411 add 1 to ws-line-cnt. DTSBR433 00412 P4000-EXIT. DTSBR433 00413 EXIT. DTSBR433 00414 DTSBR433 00415 DTSBR433 00416 P6000-SELF-MAILER-RTN. DTSBR433 00417 PERFORM P7000-PRINT-VSCA-ADDR THRU P7000-EXIT. DTSBR433 00418 P6000-EXIT. DTSBR433 00419 EXIT. DTSBR433 00420 DTSBR433 00421 P7000-PRINT-VSCA-ADDR. DTSBR433 00422 *RW1 DTSBR433 00423 MOVE L599-BARCODED-DATA TO CONVERTED-BARCODE. DTSBR433 00424 DTSBR433 00425 MOVE SPACES TO WS-REC. DTSBR433 00426 WRITE XEROX-REPORT FROM WS-REC DTSBR433 00427 AFTER ADVANCING TOP-OF-PAGE. DTSBR433 00428 DTSBR433 00429 WRITE XEROX-REPORT FROM WS-BARC-LINE AFTER 04. DTSBR433 00430 DTSBR433 00431 WRITE XEROX-REPORT FROM VSCA-LINE AFTER ADVANCING 9 LINE. DTSBR433 00432 *RW2 DTSBR433 00433 WRITE XEROX-REPORT FROM line-addr-17 DTSBR433 00434 AFTER ADVANCING 1 LINE. DTSBR433 00435 WRITE XEROX-REPORT FROM line-addr-18 DTSBR433 00436 AFTER ADVANCING 1 LINE. DTSBR433 00437 WRITE XEROX-REPORT FROM line-addr-19 DTSBR433 00438 AFTER ADVANCING 1 LINE. DTSBR433 00439 WRITE XEROX-REPORT FROM line-addr-20 DTSBR433 00440 AFTER ADVANCING 1 LINE. DTSBR433 00441 WRITE XEROX-REPORT FROM line-addr-21 DTSBR433 00442 AFTER ADVANCING 1 LINE. DTSBR433 00443 DTSBR433 00444 P7000-EXIT. DTSBR433 00445 EXIT. DTSBR433 00446 DTSBR433 00447 T1000-TERMINATE. DTSBR433 00448 SKIP1 DTSBR433 00449 CLOSE PRT-FILE1 prt-file2. DTSBR433 00450 SKIP2 DTSBR433 00451 T1000-EXIT. DTSBR433 00452 EXIT. DTSBR433 00453 EJECT DTSBR433 00454 S001-from-fed-8. DTSBR433 00455 set l001-from-fed-8 to true. DTSBR433 00456 CALL 'DTSBU001' USING L001-LINK-AREA. DTSBR433 00457 SKIP2 DTSBR433 00458 S001-EXIT. DTSBR433 00459 S005-from-sys. DTSBR433 00460 SKIP1 DTSBR433 00461 set l005-from-sys to true. DTSBR433 00462 CALL 'DTSBU005' USING L005-LINK-AREA. DTSBR433 00463 SKIP2 DTSBR433 00464 S005-EXIT. DTSBR433 00465 EXIT. DTSBR433 00466 SKIP3 DTSBR433 00467 S002-DATE-ALPHA. DTSBR433 00468 SKIP1 DTSBR433 00469 CALL 'DTSBU002' USING L002-LINK-AREA. DTSBR433 00470 SKIP2 DTSBR433 00471 S002-EXIT. DTSBR433 00472 EXIT. DTSBR433 00473 SKIP3 DTSBR433 00474 S004-FROM-QTR. DTSBR433 00475 SKIP1 DTSBR433 00476 CALL 'DTSBU004' USING L004-LINK-AREA. DTSBR433 00477 SKIP2 DTSBR433 00478 S004-EXIT. DTSBR433 00479 S101-PER-MONTH-NO. DTSBR433 00480 SET L101-PER-MONTH-NO-88 TO TRUE. DTSBR433 00481 GO TO S101-INT-COMP. DTSBR433 00482 S101-INT-COMP. DTSBR433 00483 CALL 'DTSBU101' USING L101-LINK-AREA. DTSBR433 00484 S101-EXIT. DTSBR433 00485 EXIT. DTSBR433 00486 SKIP3 DTSBR433 00487 S599-BARCODE. DTSBR433 00488 MOVE CONVERT-BARCODE-LINE TO L599-INPUT-DATA. DTSBR433 00489 MOVE LENGTH OF CONVERT-BARCODE-LINE TO L599-REC-LENGTH. DTSBR433 00490 MOVE 'TAX' TO L599-SYSTEM. DTSBR433 00491 DTSBR433 00492 CALL 'DTSBU599' USING BARI-LINK-AREA. DTSBR433 00493 DTSBR433 00494 IF L599-NOT-CONVERTED DTSBR433 00495 PERFORM S999-ABEND THRU S999-EXIT. DTSBR433 00496 S599-EXIT. DTSBR433 00497 EXIT. DTSBR433 00498 SKIP3 DTSBR433 00499 S999-ABEND. DTSBR433 00500 SKIP1 DTSBR433 00501 CALL 'DTSBU999' USING WRK-ABEND-CD. DTSBR433 00502 SKIP2 DTSBR433 00503 S999-EXIT. DTSBR433 00504 EXIT. DTSBR433 00505 DTSBR433