00001 IDENTIFICATION DIVISION. 05/18/16 00002 PROGRAM-ID. DTSBR316. DTSBR316 00003 AUTHOR. TRW S&ITG. LV086 00004 DATE-WRITTEN. MARCH 1999 DTSBR316 00005 DATE-COMPILED. DTSBR316 00006 SKIP3 DTSBR316 00007 ***** DTSBR316 00008 * CALLING SEQUENCE: DTSBR316 00009 * DTSBR316 00010 * DTSBR316 READS DTSIR316 RECORDS. DTSBR316 00011 * DTSBR316 00012 * FUNCTION: ESTIMATED REPORT LETTER DTSBR316 00013 * DTSBR316 00014 * DTSBR316 00015 * MODIFICATION HISTORY: DTSBR316 00016 * DTSBR316 00017 * 10-05-06 modified to change tax chief DTSBR316 00018 * REFERENCE XXXXXXXXX PROGRAMMER: zl1 DTSBR316 00019 * DTSBR316 00020 * 04-17-07 modified to print est notice from form instead of DTSBR316 00021 * iz copybook DTSBR316 00022 * REFERENCE XXXXXXXXX PROGRAMMER: zl1 DTSBR316 00023 * DTSBR316 00024 * DTSBR316 00025 * 05-03-13 modified to print both sets of estimated reports for DTSBR316 00026 * quarterly and annual filers DTSBR316 00027 * REFERENCE XXXXXXXXX PROGRAMMER: zl1 DTSBR316 00028 * DTSBR316 00029 * XX-XX-XX XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBR316 00030 * XXXXXXXXXXXX. DTSBR316 00031 * REFERENCE XXXXXXXXX PROGRAMMER: XXX DTSBR316 00032 * DTSBR316 00033 * DESCRIPTION: DTSBR316 00034 * DTSBR316 00035 * THIS MODULE PRINTS ESTIMATED REPORT LETTERS WHENEVER DTSBR316 00036 * AN ESTIMATED REPORT TRANSACTION IS RELEASED FROM HOLD. DTSBR316 00037 * DTSBR316 00038 * DTSBR316 00039 * RECORDS READ: DTSBR316 00040 * DTSBR316 00041 * NONE. DTSBR316 00042 * DTSBR316 00043 * DTSBR316 00044 * PRINTED OUTPUTS: DTSBR316 00045 * DTSBR316 00046 * 316R1 ESITMATED REPORT LETTER DTSBR316 00047 * DTSBR316 00048 * DTSBR316 00049 * RECORDS WRITTEN: DTSBR316 00050 * DTSBR316 00051 * NONE. DTSBR316 00052 * DTSBR316 00053 * DTSBR316 00054 * MODULES CALLED: DTSBR316 00055 * DTSBR316 00056 * DTSBU001 DATE EDIT/CONVERSION MODULE DTSBR316 00057 * DTSBU002 DATE ALPHA CONVERSION MODULE. DTSBR316 00058 * DTSBR316 00059 ***** DTSBR316 00060 EJECT DTSBR316 00061 ENVIRONMENT DIVISION. DTSBR316 00062 SKIP2 DTSBR316 00063 CONFIGURATION SECTION. DTSBR316 00064 SPECIAL-NAMES. C01 IS TOP-OF-PAGE. DTSBR316 00065 SKIP1 DTSBR316 00066 INPUT-OUTPUT SECTION. DTSBR316 00067 SKIP1 DTSBR316 00068 FILE-CONTROL. DTSBR316 00069 SELECT PRT-FILE ASSIGN TO RPT316R1. DTSBR316 00070 SKIP3 DTSBR316 00071 DATA DIVISION. DTSBR316 00072 SKIP3 DTSBR316 00073 FILE SECTION. DTSBR316 00074 SKIP2 DTSBR316 00075 FD PRT-FILE DTSBR316 00076 RECORDING MODE IS F DTSBR316 00077 BLOCK CONTAINS 0 RECORDS DTSBR316 00078 LABEL RECORDS ARE OMITTED. DTSBR316 00079 01 XEROX-REPORT. DTSBR316 00080 05 FILLER PIC X(1). DTSBR316 00081 05 XEROX-RPT PIC X(132). DTSBR316 00082 EJECT DTSBR316 00083 DTSBR316 00084 DTSBR316 00085 WORKING-STORAGE SECTION. DTSBR316 000855 77 PAN-VALET PICTURE X(24) VALUE '086DTSBR316 05/18/16'. DTSBR316 00086 77 PAN-VALET PICTURE X(24) VALUE '003DTSBR316 08/01/13'. DTSBR316 00087 77 PAN-VALET PICTURE X(24) VALUE '083DTSBR316 07/01/13'. DTSBR316 00088 77 PAN-VALET PICTURE X(24) VALUE '033DTSBR316 06/12/13'. DTSBR316 00089 77 PAN-VALET PICTURE X(24) VALUE '004DTSBR316 05/15/07'. DTSBR316 00090 SKIP3 DTSBR316 00091 01 WRK-AREA. DTSBR316 00092 05 WRK-ABEND-Code PIC S9(04) COMP VALUE +316.DTSBR316 00093 05 FIRST-TIME-IND PIC X(01) VALUE 'Y'. DTSBR316 00094 05 WS-REC PIC X(132) VALUE SPACES. DTSBR316 00095 SKIP3 DTSBR316 00096 01 VSCA-LINE. DTSBR316 00097 05 VSCA-DATA PIC X(133) VALUE SPACES. DTSBR316 00098 01 WS-TAX-DUE PIC S9(09)V9(02) COMP-3 DTSBR316 00099 VALUE +0. DTSBR316 00100 01 TOT-CNT PIC 9(05) VALUE 0. DTSBR316 00101 01 TOL-CNT PIC 9(05) VALUE 0. DTSBR316 00102 01 CREDIT-CNT PIC 9(05) VALUE 0. DTSBR316 00103 01 WRK-MQTR-BAL PIC S9(09)V9(02) COMP-3 DTSBR316 00104 VALUE +0. DTSBR316 00105 01 WRK-EMP-NO PIC 9(06) VALUE ZEROS. DTSBR316 00106 01 WRK-AREAS. DTSBR316 00107 05 WRK-R316-YRQ PIC S9(05) COMP-3 VALUE +0. DTSBR316 00108 05 WRK-R316-YRQX REDEFINES WRK-R316-YRQ. DTSBR316 00109 10 WRK-R316-YR PIC 9(4). DTSBR316 00110 10 WRK-R316-QTR PIC 9(1). DTSBR316 00111 SKIP1 DTSBR316 00112 01 L001-LINK-AREA. DTSBR316 00113 ++INCLUDE DTSIL001 DTSBR316 00114 EJECT DTSBR316 00115 01 L002-LINK-AREA. DTSBR316 00116 ++INCLUDE DTSIL002 DTSBR316 00117 EJECT DTSBR316 00118 01 L004-LINK-AREA. DTSBR316 00119 ++INCLUDE DTSIL004 DTSBR316 00120 EJECT DTSBR316 00121 ++INCLUDE DTSXL316 DTSBR316 00122 SKIP3 DTSBR316 00123 01 LETTER-HEADING. DTSBR316 00124 05 LTH-LINE-1. DTSBR316 00125 10 FILLER PIC X(01) VALUE SPACE. DTSBR316 00126 10 WS-FMT-LINE-1 PIC X(40). DTSBR316 00127 05 LTH-LINE-2. DTSBR316 00128 10 FILLER PIC X(01) VALUE SPACE. DTSBR316 00129 10 WS-FMT-LINE-2 PIC X(40). DTSBR316 00130 10 FILLER PIC X(25) VALUE SPACES. DTSBR316 00131 10 WS-INTEREST-DATE PIC X(10). DTSBR316 00132 05 LTH-LINE-3. DTSBR316 00133 10 FILLER PIC X(01) VALUE SPACE. DTSBR316 00134 10 WS-FMT-LINE-3 PIC X(40). DTSBR316 00135 05 LTH-LINE-4. DTSBR316 00136 10 FILLER PIC X(01) VALUE SPACE. DTSBR316 00137 10 WS-FMT-LINE-4 PIC X(40). DTSBR316 00138 05 LTH-LINE-5. DTSBR316 00139 10 FILLER PIC X(01) VALUE SPACE. DTSBR316 00140 10 WS-FMT-LINE-5 PIC X(40). DTSBR316 00141 10 FILLER PIC X(25) VALUE SPACES. DTSBR316 00142 10 WS-EMP-NO PIC 999B999. DTSBR316 00143 05 RPT-LINE-1. DTSBR316 00144 10 FILLER PIC X(08) VALUE SPACES. DTSBR316 00145 10 WS-YRQ PIC X(06). DTSBR316 00146 10 FILLER PIC X(05) VALUE SPACE. DTSBR316 00147 10 WS-RPA-TAX-DUE PIC Z,ZZZ,ZZ9.99. DTSBR316 00148 10 FILLER PIC X(04) VALUE SPACES. DTSBR316 00149 10 WS-PEN-CHARGED-AMT PIC Z,ZZZ,ZZ9.99. DTSBR316 00150 10 FILLER PIC X(04) VALUE SPACES. DTSBR316 00151 10 WS-INT-CHARGED-AMT PIC Z,ZZZ,ZZ9.99. DTSBR316 00152 10 FILLER PIC X(05) VALUE SPACES. DTSBR316 00153 10 WS-TOTAL-DUE PIC Z,ZZZ,ZZ9.99. DTSBR316 00154 SKIP2 DTSBR316 00155 EJECT DTSBR316 00156 EJECT DTSBR316 00157 01 L101-LINK-AREA. DTSBR316 00158 ++INCLUDE DTSIL101 DTSBR316 00159 01 MQTR-REC. DTSBR316 00160 ++INCLUDE DTSIMQTR DTSBR316 00161 EJECT DTSBR316 00162 *RW1 DTSBR316 00163 DTSBR316 00164 01 L910-LINK-AREA. DTSBR316 00165 ++INCLUDE DTSIL910 DTSBR316 00166 DTSBR316 00167 01 MSKL-REC. DTSBR316 00168 ++INCLUDE DTSIMSKL DTSBR316 00169 DTSBR316 00170 01 CONVERT-BARCODE-LINE. DTSBR316 00171 05 BARC-EMP-NO PIC 9(06) VALUE ZEROS. DTSBR316 00172 DTSBR316 00173 01 WS-BARC-LINE. DTSBR316 00174 05 FILLER PIC X(40) VALUE SPACES. DTSBR316 00175 05 CONVERTED-BARCODE PIC X(50). DTSBR316 00176 05 FILLER PIC X(30) VALUE SPACES. DTSBR316 00177 DTSBR316 00178 01 BARI-LINK-AREA. DTSBR316 00179 ++INCLUDE BARIL599 DTSBR316 00180 SKIP3 DTSBR316 00181 *RW2 DTSBR316 00182 LINKAGE SECTION. DTSBR316 00183 SKIP3 DTSBR316 00184 01 LRCM-LINK-AREA. DTSBR316 00185 ++INCLUDE DTSILRCM DTSBR316 00186 01 R316-REC. DTSBR316 00187 ++INCLUDE DTSIR316 DTSBR316 00188 PROCEDURE DIVISION USING LRCM-LINK-AREA DTSBR316 00189 R316-REC. DTSBR316 00190 SKIP2 DTSBR316 00191 IF FIRST-TIME-IND = 'Y' DTSBR316 00192 PERFORM I1000-INITIATE THRU I1000-EXIT DTSBR316 00193 MOVE 'N' TO FIRST-TIME-IND. DTSBR316 00194 SKIP1 DTSBR316 00195 IF LRCM-EOR-88 DTSBR316 00196 PERFORM T1000-TERMINATE THRU T1000-EXIT DTSBR316 00197 ELSE DTSBR316 00198 PERFORM P1000-PROCESS THRU P1000-EXIT. DTSBR316 00199 SKIP2 DTSBR316 00200 GOBACK. DTSBR316 00201 EJECT DTSBR316 00202 I1000-INITIATE. DTSBR316 00203 DTSBR316 00204 OPEN OUTPUT PRT-FILE. DTSBR316 00205 MOVE SPACES TO XEROX-REPORT. DTSBR316 00206 DTSBR316 00207 WRITE XEROX-REPORT FROM VSCA-LINE DTSBR316 00208 AFTER ADVANCING TOP-OF-PAGE. DTSBR316 00209 WRITE XEROX-REPORT FROM VSCA-LINE AFTER ADVANCING 11. DTSBR316 00210 WRITE XEROX-REPORT FROM ROUTE-INFO-LINE13 DTSBR316 00211 WRITE XEROX-REPORT FROM ROUTE-INFO-LINE14. DTSBR316 00212 WRITE XEROX-REPORT FROM ROUTE-INFO-LINE15. DTSBR316 00213 WRITE XEROX-REPORT FROM ROUTE-INFO-LINE16. DTSBR316 00214 WRITE XEROX-REPORT FROM ROUTE-INFO-LINE17. DTSBR316 00215 * WRITE XEROX-REPORT FROM XEROX-CNTL-LINE18 DTSBR316 00216 * WRITE XEROX-REPORT FROM XEROX-CNTL-LINE19. DTSBR316 00217 * WRITE XEROX-REPORT FROM XEROX-CNTL-LINE20. DTSBR316 00218 DTSBR316 00219 * PERFORM S910-OPEN-READ THRU S910-EXIT. DTSBR316 00220 DTSBR316 00221 SKIP2 DTSBR316 00222 I1000-EXIT. DTSBR316 00223 EXIT. DTSBR316 00224 EJECT DTSBR316 00225 P1000-PROCESS. DTSBR316 00226 MOVE ZERO TO WRK-MQTR-BAL DTSBR316 00227 WS-TAX-DUE. DTSBR316 00228 ADD 1 TO TOT-CNT. DTSBR316 00229 MOVE R316-YRQ TO L004-QTR-5-9. DTSBR316 00230 DTSBR316 00231 SET L004-FROM-5 TO TRUE. DTSBR316 00232 PERFORM S004-FROM-QTR THRU S004-EXIT. DTSBR316 00233 DTSBR316 00234 DTSBR316 00235 DISPLAY ' YRQ ' L004-QTR-5-9. DTSBR316 00236 PERFORM P1100-CHECK-BALANCE-DUE THRU P1100-EXIT. DTSBR316 00237 DTSBR316 00238 IF R316-QTR-FILING-88 DTSBR316 00239 next sentence DTSBR316 00240 else DTSBR316 00241 MOVE 2 TO L004-QTR-5-Q DTSBR316 00242 DISPLAY ' YRQ ' L004-QTR-5-9 DTSBR316 00243 PERFORM P1100-CHECK-BALANCE-DUE THRU P1100-EXIT DTSBR316 00244 MOVE 3 TO L004-QTR-5-Q DTSBR316 00245 DISPLAY ' YRQ ' L004-QTR-5-9 DTSBR316 00246 PERFORM P1100-CHECK-BALANCE-DUE THRU P1100-EXIT DTSBR316 00247 MOVE 4 TO L004-QTR-5-Q DTSBR316 00248 DISPLAY ' YRQ ' L004-QTR-5-9 DTSBR316 00249 PERFORM P1100-CHECK-BALANCE-DUE THRU P1100-EXIT. DTSBR316 00250 DTSBR316 00251 IF R316-QTR-FILING-88 DTSBR316 00252 MOVE L004-SLASH-5-QTR TO WS-YRQ DTSBR316 00253 ELSE DTSBR316 00254 MOVE L004-SLASH-5-YR TO WS-YRQ. DTSBR316 00255 DTSBR316 00256 MOVE R316-MAIL-DATE TO L001-FED-8-DATE-9. DTSBR316 00257 SET L001-FROM-FED-8 TO TRUE. DTSBR316 00258 PERFORM S001-DATE THRU S001-EXIT. DTSBR316 00259 MOVE L001-SLASH-8-DATE TO WS-INTEREST-DATE. DTSBR316 00260 ADD R316-SUR-TAX-CHARGED-AMT TO WS-TAX-DUE DTSBR316 00261 ADD R316-UI-TAX-CHARGED-AMT TO WS-TAX-DUE. DTSBR316 00262 DTSBR316 00263 IF R316-UI-TAX-CHARGED-AMT < 1.00 CL*86 00264 ADD 1 TO TOL-CNT. DTSBR316 00265 DTSBR316 00266 * ADD R316-INT-CHARGED-AMT, R316-PEN-CHARGED-AMT, WS-TAX-DUE DTSBR316 00267 * GIVING WS-TOTAL-DUE. DTSBR316 00268 DTSBR316 00269 add r316-int-charged-amt to wrk-mqtr-bal. DTSBR316 00270 MOVE WRK-MQTR-BAL TO WS-TOTAL-DUE. DTSBR316 00271 DTSBR316 00272 IF WRK-MQTR-BAL = 0 DTSBR316 00273 ADD 1 TO CREDIT-CNT. DTSBR316 00274 DTSBR316 00275 MOVE WS-TAX-DUE TO WS-RPA-TAX-DUE. DTSBR316 00276 MOVE R316-PEN-CHARGED-AMT TO WS-PEN-CHARGED-AMT. DTSBR316 00277 MOVE R316-INT-CHARGED-AMT TO WS-INT-CHARGED-AMT. DTSBR316 00278 DTSBR316 00279 PERFORM P2000-PRINT-HEADER THRU P2000-EXIT. DTSBR316 00280 PERFORM P4000-PRINT-DATA THRU P4000-EXIT. DTSBR316 00281 PERFORM P6000-SELF-MAILER-RTN THRU P6000-EXIT. DTSBR316 00282 SKIP1 DTSBR316 00283 P1000-EXIT. DTSBR316 00284 EXIT. DTSBR316 00285 DTSBR316 00286 P1100-CHECK-BALANCE-DUE. DTSBR316 00287 DTSBR316 00288 MOVE LOW-VALUES TO MQTR-KEY-AREA. DTSBR316 00289 MOVE R316-EMP-NO TO MQTR-EMP-NO. DTSBR316 00290 SET MQTR-QTR-88 TO TRUE. DTSBR316 00291 MOVE L004-QTR-5-9 TO MQTR-YRQ. DTSBR316 00292 MOVE MQTR-KEY-AREA TO MSKL-KEY-AREA. DTSBR316 00293 PERFORM S910-READ THRU S910-EXIT. DTSBR316 00294 DTSBR316 00295 IF L910-OK-88 DTSBR316 00296 MOVE MSKL-REC TO MQTR-REC DTSBR316 00297 PERFORM DTSBR316 00298 VARYING MQTR-ACCT-IDX FROM +1 BY +1 DTSBR316 00299 UNTIL MQTR-ACCT-IDX > MQTR-ACCT-CNT DTSBR316 00300 IF MQTR-ACCT-UI-88 (MQTR-ACCT-IDX) DTSBR316 00301 ADD MQTR-BALANCE-AMT (MQTR-ACCT-IDX) DTSBR316 00302 TO WRK-MQTR-BAL DTSBR316 00303 ELSE DTSBR316 00304 IF MQTR-ACCT-SUR-88 (MQTR-ACCT-IDX) DTSBR316 00305 ADD MQTR-BALANCE-AMT (MQTR-ACCT-IDX) DTSBR316 00306 TO WRK-MQTR-BAL DTSBR316 00307 ELSE DTSBR316 00308 IF MQTR-ACCT-INT-88 (MQTR-ACCT-IDX) DTSBR316 00309 ADD MQTR-BALANCE-AMT (MQTR-ACCT-IDX) DTSBR316 00310 TO WRK-MQTR-BAL DTSBR316 00311 ELSE DTSBR316 00312 IF MQTR-ACCT-LATE-PEN-88 (MQTR-ACCT-IDX) DTSBR316 00313 ADD MQTR-BALANCE-AMT (MQTR-ACCT-IDX) DTSBR316 00314 TO WRK-MQTR-BAL DTSBR316 00315 END-IF DTSBR316 00316 END-IF DTSBR316 00317 END-IF DTSBR316 00318 END-IF DTSBR316 00319 END-PERFORM DTSBR316 00320 END-IF. DTSBR316 00321 DISPLAY ' #AMT ' MQTR-EMP-NO ' ' MQTR-YRQ ' ' WRK-MQTR-BAL.DTSBR316 00322 P1100-EXIT. DTSBR316 00323 EXIT. DTSBR316 00324 DTSBR316 00325 P2000-PRINT-HEADER. DTSBR316 00326 DTSBR316 00327 MOVE R316-EMP-NO TO BARC-EMP-NO. DTSBR316 00328 PERFORM S599-BARCODE THRU S599-EXIT. DTSBR316 00329 DTSBR316 00330 IF L599-SETB-FONT1 DTSBR316 00331 MOVE 'MODIFY=TAXSM1,' TO CNTL1-CME DTSBR316 00332 ELSE DTSBR316 00333 IF L599-SETB-FONT2 DTSBR316 00334 MOVE 'MODIFY=TAXSM2,' TO CNTL1-CME DTSBR316 00335 ELSE DTSBR316 00336 MOVE 'MODIFY=TAXSM1,' TO CNTL1-CME. DTSBR316 00337 DTSBR316 00338 if r316-ann-filing-88 DTSBR316 00339 move 'JDE=T316A1,' to cntl1-jde DTSBR316 00340 else DTSBR316 00341 move 'JDE=T316Q1,' to cntl1-jde. DTSBR316 00342 WRITE XEROX-REPORT FROM XEROX-CNTL-LINE18 DTSBR316 00343 AFTER ADVANCING TOP-OF-PAGE. DTSBR316 00344 WRITE XEROX-REPORT FROM XEROX-CNTL-LINE19. DTSBR316 00345 WRITE XEROX-REPORT FROM XEROX-CNTL-LINE20. DTSBR316 00346 DTSBR316 00347 MOVE R316-FMT-LINE (1) TO WS-FMT-LINE-1. DTSBR316 00348 MOVE R316-FMT-LINE (2) TO WS-FMT-LINE-2. DTSBR316 00349 MOVE R316-FMT-LINE (3) TO WS-FMT-LINE-3. DTSBR316 00350 MOVE R316-FMT-LINE (4) TO WS-FMT-LINE-4. DTSBR316 00351 MOVE R316-FMT-LINE (5) TO WS-FMT-LINE-5. DTSBR316 00352 MOVE R316-EMP-NO TO WS-EMP-NO. DTSBR316 00353 * WRITE XEROX-REPORT FROM VSCA-LINE AFTER ADVANCING TOP-OF-PAGEDTSBR316 00354 * WRITE XEROX-REPORT FROM VSCA-LINE AFTER ADVANCING 6 LINE. DTSBR316 00355 WRITE XEROX-REPORT FROM VSCA-LINE AFTER ADVANCING 9 LINE. DTSBR316 00356 WRITE XEROX-REPORT FROM LTH-LINE-1 AFTER ADVANCING 1 LINE. DTSBR316 00357 WRITE XEROX-REPORT FROM LTH-LINE-2 AFTER ADVANCING 1 LINE. DTSBR316 00358 WRITE XEROX-REPORT FROM LTH-LINE-3 AFTER ADVANCING 1 LINE. DTSBR316 00359 WRITE XEROX-REPORT FROM LTH-LINE-4 AFTER ADVANCING 1 LINE. DTSBR316 00360 WRITE XEROX-REPORT FROM LTH-LINE-5 AFTER ADVANCING 1 LINE. DTSBR316 00361 DTSBR316 00362 P2000-EXIT. DTSBR316 00363 EXIT. DTSBR316 00364 DTSBR316 00365 P4000-PRINT-DATA. DTSBR316 00366 WRITE XEROX-REPORT FROM RPT-LINE-1 AFTER ADVANCING 09 LINE. DTSBR316 00367 DTSBR316 00368 P4000-EXIT. DTSBR316 00369 EXIT. DTSBR316 00370 DTSBR316 00371 DTSBR316 00372 P6000-SELF-MAILER-RTN. DTSBR316 00373 MOVE R316-FMT-LINE (1) TO WS-ADDR-FMT-LINE-1. DTSBR316 00374 MOVE R316-FMT-LINE (2) TO WS-ADDR-FMT-LINE-2. DTSBR316 00375 MOVE R316-FMT-LINE (3) TO WS-ADDR-FMT-LINE-3. DTSBR316 00376 MOVE R316-FMT-LINE (4) TO WS-ADDR-FMT-LINE-4. DTSBR316 00377 MOVE R316-FMT-LINE (5) TO WS-ADDR-FMT-LINE-5. DTSBR316 00378 PERFORM P7000-PRINT-VSCA-ADDR THRU P7000-EXIT. DTSBR316 00379 P6000-EXIT. DTSBR316 00380 EXIT. DTSBR316 00381 DTSBR316 00382 P7000-PRINT-VSCA-ADDR. DTSBR316 00383 *RW1 DTSBR316 00384 MOVE L599-BARCODED-DATA TO CONVERTED-BARCODE. DTSBR316 00385 DTSBR316 00386 MOVE SPACES TO WS-REC. DTSBR316 00387 WRITE XEROX-REPORT FROM WS-REC DTSBR316 00388 AFTER ADVANCING TOP-OF-PAGE. DTSBR316 00389 DTSBR316 00390 WRITE XEROX-REPORT FROM WS-BARC-LINE AFTER 04. DTSBR316 00391 DTSBR316 00392 * WRITE XEROX-REPORT FROM VSCA-LINE DTSBR316 00393 * AFTER ADVANCING TOP-OF-PAGE. DTSBR316 00394 * WRITE XEROX-REPORT FROM VSCA-LINE AFTER ADVANCING 13 LINE. DTSBR316 00395 WRITE XEROX-REPORT FROM VSCA-LINE AFTER ADVANCING 9 LINE. DTSBR316 00396 *RW2 DTSBR316 00397 WRITE XEROX-REPORT FROM VSCA-ADDR-LINE-15 DTSBR316 00398 AFTER ADVANCING 1 LINE. DTSBR316 00399 WRITE XEROX-REPORT FROM VSCA-ADDR-LINE-16 DTSBR316 00400 AFTER ADVANCING 1 LINE. DTSBR316 00401 WRITE XEROX-REPORT FROM VSCA-ADDR-LINE-17 DTSBR316 00402 AFTER ADVANCING 1 LINE. DTSBR316 00403 WRITE XEROX-REPORT FROM VSCA-ADDR-LINE-18 DTSBR316 00404 AFTER ADVANCING 1 LINE. DTSBR316 00405 WRITE XEROX-REPORT FROM VSCA-ADDR-LINE-19 DTSBR316 00406 AFTER ADVANCING 1 LINE. DTSBR316 00407 WRITE XEROX-REPORT FROM VSCA-ADDR-LINE-20 DTSBR316 00408 AFTER ADVANCING 1 LINE. DTSBR316 00409 DTSBR316 00410 P7000-EXIT. DTSBR316 00411 EXIT. DTSBR316 00412 DTSBR316 00413 T1000-TERMINATE. DTSBR316 00414 DTSBR316 00415 DISPLAY ' TOTAL NO OF ESTIMATED ANN FILRS ' TOT-CNT. DTSBR316 00416 DISPLAY ' ' DTSBR316 00417 DISPLAY ' NUMBER OF FILERS TAX TOLERATED ' TOL-CNT. DTSBR316 00418 DISPLAY ' ' DTSBR316 00419 DISPLAY ' NUMBER OF FILERS CREDIT APPLID ' CREDIT-CNT. DTSBR316 00420 DISPLAY ' ' DTSBR316 00421 SKIP1 DTSBR316 00422 CLOSE PRT-FILE. DTSBR316 00423 SKIP2 DTSBR316 00424 T1000-EXIT. DTSBR316 00425 EXIT. DTSBR316 00426 EJECT DTSBR316 00427 S001-DATE. DTSBR316 00428 SKIP1 DTSBR316 00429 CALL 'DTSBU001' USING L001-LINK-AREA. DTSBR316 00430 SKIP2 DTSBR316 00431 S001-EXIT. DTSBR316 00432 EXIT. DTSBR316 00433 SKIP3 DTSBR316 00434 S002-DATE-ALPHA. DTSBR316 00435 SKIP1 DTSBR316 00436 CALL 'DTSBU002' USING L002-LINK-AREA. DTSBR316 00437 SKIP2 DTSBR316 00438 S002-EXIT. DTSBR316 00439 EXIT. DTSBR316 00440 SKIP3 DTSBR316 00441 S004-FROM-QTR. DTSBR316 00442 SKIP1 DTSBR316 00443 CALL 'DTSBU004' USING L004-LINK-AREA. DTSBR316 00444 SKIP2 DTSBR316 00445 S004-EXIT. DTSBR316 00446 S101-PER-MONTH-NO. DTSBR316 00447 SET L101-PER-MONTH-NO-88 TO TRUE. DTSBR316 00448 GO TO S101-INT-COMP. DTSBR316 00449 S101-INT-COMP. DTSBR316 00450 CALL 'DTSBU101' USING L101-LINK-AREA. DTSBR316 00451 S101-EXIT. DTSBR316 00452 EXIT. DTSBR316 00453 SKIP3 DTSBR316 00454 S599-BARCODE. DTSBR316 00455 MOVE CONVERT-BARCODE-LINE TO L599-INPUT-DATA. DTSBR316 00456 MOVE LENGTH OF CONVERT-BARCODE-LINE TO L599-REC-LENGTH. DTSBR316 00457 MOVE 'TAX' TO L599-SYSTEM. DTSBR316 00458 DTSBR316 00459 CALL 'DTSBU599' USING BARI-LINK-AREA. DTSBR316 00460 DTSBR316 00461 IF L599-NOT-CONVERTED DTSBR316 00462 PERFORM S999-ABEND THRU S999-EXIT. DTSBR316 00463 S599-EXIT. DTSBR316 00464 EXIT. DTSBR316 00465 SKIP3 DTSBR316 00466 S910-OPEN-READ. DTSBR316 00467 SET L910-OPEN-READ-88 TO TRUE. DTSBR316 00468 GO TO S910-MSTR-IO. DTSBR316 00469 DTSBR316 00470 S910-READ. DTSBR316 00471 SET L910-READ-88 TO TRUE. DTSBR316 00472 GO TO S910-MSTR-IO. DTSBR316 00473 DTSBR316 00474 S910-CLOSE. DTSBR316 00475 SET L910-CLOSE-88 TO TRUE. DTSBR316 00476 GO TO S910-MSTR-IO. DTSBR316 00477 DTSBR316 00478 S910-MSTR-IO. DTSBR316 00479 CALL 'DTSBU910' USING L910-LINK-AREA DTSBR316 00480 MSKL-REC. DTSBR316 00481 DTSBR316 00482 S910-EXIT. DTSBR316 00483 EXIT. DTSBR316 00484 SKIP2 DTSBR316 00485 S999-ABEND. DTSBR316 00486 DISPLAY '**** dtsBR316 ABENDING ' DTSBR316 00487 DTSBR316 00488 CALL 'DTSBU999' USING WRK-ABEND-CODE. DTSBR316 00489 DTSBR316 00490 S999-EXIT. DTSBR316 00491 EXIT. DTSBR316 00492 DTSBR316