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
