00001  IDENTIFICATION DIVISION.                                         05/06/25
00002  PROGRAM-ID.             DTSBR321.                                DTSBR321
00003  AUTHOR.                 TRW S&ITG.                                  LV039
00004  DATE-WRITTEN.           MARCH 1999                               DTSBR321
00005  DATE-COMPILED.                                                   DTSBR321
00006      SKIP3                                                        DTSBR321
00007 *****                                                             DTSBR321
00008 *    CALLING SEQUENCE:                                            DTSBR321
00009 *                                                                 DTSBR321
00010 *                       DTSBR321 READS DTSIR321 RECORDS.          DTSBR321
00011 *                                                                 DTSBR321
00012 *    FUNCTION:  penalty assessment letter                         DTSBR321
00013 *                                                                 DTSBR321
00014 *                                                                 DTSBR321
00015 *    MODIFICATION HISTORY:                                        DTSBR321
00016 *                                                                 DTSBR321
00017 * 04-03-14 new program. print penalty assessment letter           DTSBR321
00018 *          for annual filers                                      DTSBR321
00019 *          REFERENCE XXXXXXXXX                   PROGRAMMER: nh   DTSBR321
00020 *                                                                 DTSBR321
00021 *                                                                 DTSBR321
00022 * 04-03-14 modified program to print missing report letter for    DTSBR321
00023 *          all employers who have not filed their annual          DTSBR321
00024 *          report also a penalty is charged.                      DTSBR321
00025 *          REFERENCE XXXXXXXXX                   PROGRAMMER: nh   DTSBR321
00026 *                                                                 DTSBR321
00027 * XX-XX-XX XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  DTSBR321
00028 *          XXXXXXXXXXXX.                                          DTSBR321
00029 *          REFERENCE XXXXXXXXX                   PROGRAMMER: XXX  DTSBR321
00030 *                                                                 DTSBR321
00031 *    DESCRIPTION:                                                 DTSBR321
00032 *                                                                 DTSBR321
00033 *        THIS MODULE PRINTS penalty charge notices   WHENEVER     DTSBR321
00034 *        penalty assessment run is performed                      DTSBR321
00035 *                                                                 DTSBR321
00036 *                                                                 DTSBR321
00037 *    RECORDS READ:                                                DTSBR321
00038 *                                                                 DTSBR321
00039 *        NONE.                                                    DTSBR321
00040 *                                                                 DTSBR321
00041 *                                                                 DTSBR321
00042 *    PRINTED OUTPUTS:                                             DTSBR321
00043 *                                                                 DTSBR321
00044 *        321R1  penalty charge letter                             DTSBR321
00045 *                                                                 DTSBR321
00046 *                                                                 DTSBR321
00047 *    RECORDS WRITTEN:                                             DTSBR321
00048 *                                                                 DTSBR321
00049 *        NONE.                                                    DTSBR321
00050 *                                                                 DTSBR321
00051 *                                                                 DTSBR321
00052 *    MODULES CALLED:                                              DTSBR321
00053 *                                                                 DTSBR321
00054 *        DTSBU001 DATE EDIT/CONVERSION MODULE                     DTSBR321
00055 *        DTSBU002 DATE ALPHA CONVERSION MODULE.                   DTSBR321
00056 *                                                                 DTSBR321
00057 *****                                                             DTSBR321
00058      EJECT                                                        DTSBR321
00059  ENVIRONMENT DIVISION.                                            DTSBR321
00060      SKIP2                                                        DTSBR321
00061  CONFIGURATION SECTION.                                           DTSBR321
00062  SPECIAL-NAMES. C01 IS TOP-OF-PAGE.                               DTSBR321
00063      SKIP1                                                        DTSBR321
00064  INPUT-OUTPUT SECTION.                                            DTSBR321
00065      SKIP1                                                        DTSBR321
00066  FILE-CONTROL.                                                    DTSBR321
00067      SELECT PRT-FILE ASSIGN TO RPT321R1.                          DTSBR321
00068      SELECT PRT-FILE2 ASSIGN TO RPT321R2.                         DTSBR321
00069      SELECT PRT-FILE3 ASSIGN TO RPT321R3.                            CL*13
00070      SELECT PRT-FILE4 ASSIGN TO RPT321R4.                            CL*13
00071      SKIP3                                                        DTSBR321
00072  DATA DIVISION.                                                   DTSBR321
00073      SKIP3                                                        DTSBR321
00074  FILE SECTION.                                                    DTSBR321
00075      SKIP2                                                        DTSBR321
00076  FD  PRT-FILE                                                     DTSBR321
00077      RECORDING MODE IS F                                          DTSBR321
00078      BLOCK CONTAINS 0 RECORDS                                     DTSBR321
00079      LABEL RECORDS ARE OMITTED.                                   DTSBR321
00080  01  XEROX-REPORT.                                                DTSBR321
00081      05  FILLER                      PIC X(1).                    DTSBR321
00082      05  XEROX-RPT                   PIC X(132).                  DTSBR321
00083      EJECT                                                        DTSBR321
00084                                                                   DTSBR321
00085  FD  PRT-FILE2                                                    DTSBR321
00086      RECORDING MODE IS F                                          DTSBR321
00087      BLOCK CONTAINS 0 RECORDS                                     DTSBR321
00088      LABEL RECORDS ARE OMITTED.                                   DTSBR321
00089  01  XEROX-REPORT2.                                               DTSBR321
00090      05  FILLER                      PIC X(1).                    DTSBR321
00091      05  XEROX-RPT2                  PIC X(132).                  DTSBR321
00092      EJECT                                                        DTSBR321
00093                                                                   DTSBR321
00094                                                                      CL*13
00095  FD  PRT-FILE3                                                       CL*13
00096      RECORDING MODE IS F                                             CL*13
00097      BLOCK CONTAINS 0 RECORDS                                        CL*13
00098      LABEL RECORDS ARE OMITTED.                                      CL*13
00099  01  XEROX-REPORT3                   pic x(133).                     CL*13
00100                                                                      CL*13
00101                                                                      CL*13
00102  FD  PRT-FILE4                                                       CL*13
00103      RECORDING MODE IS F                                             CL*13
00104      BLOCK CONTAINS 0 RECORDS                                        CL*13
00105      LABEL RECORDS ARE OMITTED.                                      CL*13
00106  01  XEROX-REPORT4                   pic x(133).                     CL*13
00107                                                                      CL*13
00108                                                                   DTSBR321
00109  WORKING-STORAGE SECTION.                                         DTSBR321
001095 77  PAN-VALET PICTURE X(24) VALUE '039DTSBR321  05/06/25'.       DTSBR321
00110  77  PAN-VALET PICTURE X(24) VALUE '001DTSBR321  04/25/14'.       DTSBR321
00111  77  PAN-VALET PICTURE X(24) VALUE '163DTSBR321  04/24/14'.       DTSBR321
00112  77  PAN-VALET PICTURE X(24) VALUE '001DTSBR321  04/03/14'.       DTSBR321
00113      SKIP3                                                        DTSBR321
00114  01  WRK-AREA.                                                    DTSBR321
00115      05  Ws-start-pos                PIC S9(04)  COMP.            DTSBR321
00116      05  WRK-ABEND-Code              PIC S9(04)  COMP  VALUE +321.DTSBR321
00117      05  WS-YRQ-UNPACK               PIC  9(5)   VALUE 0.         DTSBR321
00118      05  FIRST-TIME-IND              PIC  X(01)  VALUE 'Y'.       DTSBR321
00119      05  WS-REC                      PIC  X(132) VALUE SPACES.    DTSBR321
00120      05  WS-UC-SHORT-MONTHS.                                      DTSBR321
00121          10  WS-UC-SHORT-MONTH-1     PIC  X(03).                  DTSBR321
00122          10  WS-UC-SHORT-MONTH-2     PIC  X(03).                  DTSBR321
00123          10  WS-UC-SHORT-MONTH-3     PIC  X(03).                  DTSBR321
00124      05  WS-SHORT-YEAR               PIC  X(02).                  DTSBR321
00125                                                                   DTSBR321
00126      05  WS-LONG-YEAR                PIC  X(04).                  DTSBR321
00127      05  ABEND-MSG                   PIC  X(60).                  DTSBR321
00128      05  ws-credit-used              PIC  X(01).                     CL**5
00129          88 ws-credit-used-no-88          VALUE '0'.                 CL**5
00130          88 ws-credit-used-yes-88         VALUE '1'.                 CL**5
00131                                                                   DTSBR321
00132      SKIP3                                                        DTSBR321
00133  01  VSCA-LINE.                                                   DTSBR321
00134      05  VSCA-DATA                   PIC X(133) VALUE SPACES.     DTSBR321
00135  01  WS-TAX-DUE                      PIC  S9(09)V9(02) COMP-3     DTSBR321
00136                                        VALUE +0.                  DTSBR321
00137  01  TOT-pen-cnt                     PIC   9(05) VALUE 0.         DTSBR321
00138  01  TOT-mis-cnt                     PIC   9(05) VALUE 0.         DTSBR321
00139  01  TOL-CNT                         PIC   9(05) VALUE 0.         DTSBR321
00140  01  CREDIT-CNT                      PIC   9(05) VALUE 0.         DTSBR321
00141  01  WRK-MQTR-BAL                    PIC  S9(09)V9(02) COMP-3     DTSBR321
00142                                        VALUE +0.                  DTSBR321
00143  01  WRK-MQTR-chg                    PIC  S9(09)V9(02) COMP-3        CL*12
00144                                        VALUE +0.                     CL*12
00145  01  WRK-paid-amt                    PIC  S9(09)V9(02) COMP-3     DTSBR321
00146                                        VALUE +0.                  DTSBR321
00147  01  WRK-EMP-NO                      PIC  9(06) VALUE ZEROS.      DTSBR321
00148  01  WRK-AREAS.                                                   DTSBR321
00149      05  WRK-R321-YRQ                PIC S9(05)  COMP-3 VALUE +0. DTSBR321
00150      05  WRK-R321-YRQX REDEFINES WRK-R321-YRQ.                    DTSBR321
00151          10  WRK-R321-YR                 PIC 9(4).                DTSBR321
00152          10  WRK-R321-QTR                PIC 9(1).                DTSBR321
00153      SKIP1                                                        DTSBR321
00154  01  L001-LINK-AREA.                                              DTSBR321
00155  ++INCLUDE DTSIL001                                               DTSBR321
00156      EJECT                                                        DTSBR321
00157  01  L002-LINK-AREA.                                              DTSBR321
00158  ++INCLUDE DTSIL002                                               DTSBR321
00159      EJECT                                                        DTSBR321
00160  01  L004-LINK-AREA.                                              DTSBR321
00161  ++INCLUDE DTSIL004                                               DTSBR321
00162      EJECT                                                        DTSBR321
00163  01  MIXED-CASE-LITERALS.                                         DTSBR321
00164  ++INCLUDE DTSIZ31C                                               DTSBR321
00165      EJECT                                                        DTSBR321
00166  01  L008-LINK-AREA.                                              DTSBR321
00167  ++INCLUDE DTSIL008                                               DTSBR321
00168      EJECT                                                        DTSBR321
00169  01  L056-LINK-AREA.                                              DTSBR321
00170  ++INCLUDE DTSIL056                                               DTSBR321
00171      EJECT                                                        DTSBR321
00172  01  L090-LINK-AREA.                                              DTSBR321
00173  ++INCLUDE DTSIL090                                               DTSBR321
00174      EJECT                                                        DTSBR321
00175  01  L119-LINK-AREA.                                              DTSBR321
00176  ++INCLUDE DTSIL119                                               DTSBR321
00177      EJECT                                                        DTSBR321
00178  ++INCLUDE DTSXL31A                                               DTSBR321
00179      SKIP3                                                        DTSBR321
00180  ++INCLUDE DTSXL321                                               DTSBR321
00181      SKIP3                                                        DTSBR321
00182  01  LETTER-HEADING.                                              DTSBR321
00183      05  LTH-LINE-1.                                              DTSBR321
00184          10  FILLER                    PIC X(01) VALUE SPACE.     DTSBR321
00185          10  WS-FMT-LINE-1             PIC X(40).                 DTSBR321
00186          10  FILLER                    PIC X(27) VALUE SPACES.    DTSBR321
00187          10  WS-mail-date              PIC X(10).                 DTSBR321
00188      05  LTH-LINE-2.                                              DTSBR321
00189          10  FILLER                    PIC X(01) VALUE SPACE.     DTSBR321
00190          10  WS-FMT-LINE-2             PIC X(40).                 DTSBR321
00191      05  LTH-LINE-3.                                              DTSBR321
00192          10  FILLER                    PIC X(01) VALUE SPACE.     DTSBR321
00193          10  WS-FMT-LINE-3             PIC X(40).                 DTSBR321
00194          10  FILLER                    PIC X(27) VALUE SPACES.    DTSBR321
00195          10  WS-EMP-NO               PIC  999B999.                DTSBR321
00196      05  LTH-LINE-4.                                              DTSBR321
00197          10  FILLER                    PIC X(01) VALUE SPACE.     DTSBR321
00198          10  WS-FMT-LINE-4             PIC X(40).                 DTSBR321
00199      05  LTH-LINE-5.                                              DTSBR321
00200          10  FILLER                    PIC X(01) VALUE SPACE.     DTSBR321
00201          10  WS-FMT-LINE-5             PIC X(40).                 DTSBR321
00202          10  FILLER                    PIC X(27) VALUE SPACES.    DTSBR321
00203          10  WS-payment-DATE           PIC X(10).                 DTSBR321
00204      05  RPT-LINE-1.                                              DTSBR321
00205          10  FILLER                  PIC  X(04) VALUE SPACES.     DTSBR321
00206          10  WS-YRQ                  PIC  X(04).                  DTSBR321
00207          10  FILLER                  PIC  X(03) VALUE SPACE.      DTSBR321
00208          10  WS-RPA-TAX-DUE          PIC  zzZ,ZZZ,ZZ9.99.         DTSBR321
00209          10  FILLER                  PIC  X(01) VALUE SPACE.      DTSBR321
00210          10  WS-paid-amt             PIC  zzZ,ZZZ,ZZ9.99.         DTSBR321
00211          10  FILLER                  PIC  X(01) VALUE SPACES.     DTSBR321
00212          10  WS-PEN-CHARGED-AMT      PIC  Z,ZZZ,ZZ9.99.           DTSBR321
00213          10  FILLER                  PIC  X(01) VALUE SPACES.     DTSBR321
00214          10  WS-INT-CHARGED-AMT      PIC  Z,ZZZ,ZZ9.99.           DTSBR321
00215          10  FILLER                  PIC  X(03) VALUE SPACES.     DTSBR321
00216          10  WS-TOTAL-DUE            PIC  zzZ,ZZZ,ZZ9.99.         DTSBR321
00217      05  RPT-LINE-3.                                                 CL*13
00218          10  FILLER                  PIC  X(04) VALUE SPACES.        CL*13
00219          10  WS-emp-no3              PIC  X(07).                     CL*18
00220          10  FILLER                  PIC  X(03) VALUE SPACE.         CL*13
00221          10  WS-RPA-TAX-DUE3         PIC  zzZ,ZZZ,ZZ9.99.            CL*13
00222          10  FILLER                  PIC  X(01) VALUE SPACE.         CL*13
00223          10  WS-paid-amt3            PIC  zzZ,ZZZ,ZZ9.99.            CL*13
00224          10  FILLER                  PIC  X(01) VALUE SPACES.        CL*13
00225          10  WS-PEN-CHARGED-AMT3     PIC  Z,ZZZ,ZZ9.99.              CL*13
00226          10  FILLER                  PIC  X(01) VALUE SPACES.        CL*13
00227          10  WS-INT-CHARGED-AMT3     PIC  Z,ZZZ,ZZ9.99.              CL*13
00228          10  FILLER                  PIC  X(03) VALUE SPACES.        CL*13
00229          10  WS-TOTAL-DUE3           PIC  zzZ,ZZZ,ZZ9.99.            CL*13
00230      SKIP2                                                        DTSBR321
00231      05  RPT-LINE-4.                                                 CL*13
00232          10  FILLER                  PIC  X(04) VALUE SPACES.        CL*13
00233          10  WS-emp-no4              PIC  X(07).                     CL*18
00234          10  FILLER                  PIC  X(03) VALUE SPACE.         CL*13
00235          10  WS-emp-name4            PIC  x(40).                     CL*15
00236          10  FILLER                  PIC  X(60) VALUE SPACE.         CL*13
00237                                                                      CL*13
00238      05  cred-LINE.                                                  CL**5
00239          10  FILLER                  PIC  X(10)   VALUE SPACES.      CL**5
00240          10  FILLER                  PIC  X(01)   VALUE SPACE.       CL**5
00241          10  FILLER                  PIC  X(39)                      CL**5
00242                 VALUE '**** Your available credit was applied '.     CL**5
00243          10  FILLER                  PIC  X(39)                      CL**5
00244                 VALUE 'to the TOTAL AMOUNT DUE   ****         '.     CL**5
00245      EJECT                                                           CL**5
00246  01  L101-LINK-AREA.                                              DTSBR321
00247  ++INCLUDE DTSIL101                                               DTSBR321
00248  01  MQTR-REC.                                                    DTSBR321
00249  ++INCLUDE DTSIMQTR                                               DTSBR321
00250      EJECT                                                        DTSBR321
00251 *RW1                                                              DTSBR321
00252                                                                   DTSBR321
00253  01  L910-LINK-AREA.                                              DTSBR321
00254  ++INCLUDE DTSIL910                                               DTSBR321
00255                                                                   DTSBR321
00256  01  MSKL-REC.                                                    DTSBR321
00257  ++INCLUDE DTSIMSKL                                               DTSBR321
00258                                                                   DTSBR321
00259  01  CONVERT-BARCODE-LINE.                                        DTSBR321
00260      05  BARC-EMP-NO             PIC  9(06)  VALUE ZEROS.         DTSBR321
00261                                                                   DTSBR321
00262  01  WS-BARC-LINE.                                                DTSBR321
00263      05  FILLER                  PIC  X(40)  VALUE SPACES.        DTSBR321
00264      05  CONVERTED-BARCODE       PIC  X(50).                      DTSBR321
00265      05  FILLER                  PIC  X(30)  VALUE SPACES.        DTSBR321
00266                                                                   DTSBR321
00267  01  BARI-LINK-AREA.                                              DTSBR321
00268  ++INCLUDE BARIL599                                               DTSBR321
00269      SKIP3                                                        DTSBR321
00270 *RW2                                                              DTSBR321
00271  LINKAGE SECTION.                                                 DTSBR321
00272      SKIP3                                                        DTSBR321
00273  01  LRCM-LINK-AREA.                                              DTSBR321
00274  ++INCLUDE DTSILRCM                                               DTSBR321
00275  01  R321-REC.                                                    DTSBR321
00276  ++INCLUDE DTSIR321                                               DTSBR321
00277  PROCEDURE DIVISION USING LRCM-LINK-AREA                             CL*25
00278                           R321-REC.                               DTSBR321
00279      SKIP2                                                        DTSBR321
00280      IF FIRST-TIME-IND = 'Y'                                      DTSBR321
00281          PERFORM I1000-INITIATE THRU I1000-EXIT                   DTSBR321
00282          MOVE 'N' TO FIRST-TIME-IND.                              DTSBR321
00283      SKIP1                                                        DTSBR321
00284      IF LRCM-EOR-88                                               DTSBR321
00285          PERFORM T1000-TERMINATE THRU T1000-EXIT                  DTSBR321
00286      ELSE                                                         DTSBR321
00287          PERFORM P1000-PROCESS THRU P1000-EXIT.                      CL*26
00288      SKIP2                                                        DTSBR321
00289      GOBACK.                                                      DTSBR321
00290      EJECT                                                        DTSBR321
00291  I1000-INITIATE.                                                  DTSBR321
00292      OPEN OUTPUT PRT-FILE                                         DTSBR321
00293                  prt-file2                                           CL*16
00294                  prt-file3                                           CL*16
00295                  prt-file4.                                          CL*16
00296      MOVE SPACES TO XEROX-REPORT xerox-report2.                   DTSBR321
00297                                                                   DTSBR321
00298      WRITE XEROX-REPORT     FROM VSCA-LINE                        DTSBR321
00299          AFTER ADVANCING TOP-OF-PAGE.                             DTSBR321
00300      WRITE XEROX-REPORT     FROM VSCA-LINE AFTER ADVANCING 11.    DTSBR321
00301      WRITE XEROX-REPORT     FROM ROUTE-INFO-LINE13                DTSBR321
00302      WRITE XEROX-REPORT     FROM ROUTE-INFO-LINE14.               DTSBR321
00303      WRITE XEROX-REPORT     FROM ROUTE-INFO-LINE15.               DTSBR321
00304      WRITE XEROX-REPORT     FROM ROUTE-INFO-LINE16.               DTSBR321
00305      WRITE XEROX-REPORT     FROM ROUTE-INFO-LINE17.               DTSBR321
00306 *    WRITE XEROX-REPORT     FROM XEROX-CNTL-LINE18                DTSBR321
00307 *    WRITE XEROX-REPORT     FROM XEROX-CNTL-LINE19.               DTSBR321
00308 *    WRITE XEROX-REPORT     FROM XEROX-CNTL-LINE20.               DTSBR321
00309                                                                   DTSBR321
00310      WRITE XEROX-REPORT2    FROM VSCA-LINE                        DTSBR321
00311          AFTER ADVANCING TOP-OF-PAGE.                             DTSBR321
00312      WRITE XEROX-REPORT2    FROM VSCA-LINE AFTER ADVANCING 11.    DTSBR321
00313      WRITE XEROX-REPORT2    FROM ROUTE-INFO-LINE13                DTSBR321
00314      WRITE XEROX-REPORT2    FROM ROUTE-INFO-LINE14.               DTSBR321
00315      WRITE XEROX-REPORT2    FROM ROUTE-INFO-LINE15.               DTSBR321
00316      WRITE XEROX-REPORT2    FROM ROUTE-INFO-LINE16.               DTSBR321
00317 *    WRITE XEROX-REPORT     FROM ROUTE-INFO-LINE17.               DTSBR321
00318                                                                   DTSBR321
00319 *    PERFORM S910-OPEN-READ THRU S910-EXIT.                       DTSBR321
00320                                                                   DTSBR321
00321      SKIP2                                                        DTSBR321
00322  I1000-EXIT.                                                      DTSBR321
00323      EXIT.                                                        DTSBR321
00324      EJECT                                                        DTSBR321
00325  P1000-PROCESS.                                                   DTSBR321
00326 *nh   if  R321-GENERATE-MISS-RPT-LTR-88                           DTSBR321
00327       if  R321-REP-TYPE  = '2'                                       CL**2
00328           perform p8000-generate-missing-letter thru p8000-exit   DTSBR321
00329           go to p1000-exit.                                       DTSBR321
00330                                                                   DTSBR321
00331       if  R321-REP-TYPE  = '3'                                       CL**2
00332           go to p1000-exit.                                          CL**2
00333                                                                      CL**5
00334       SET WS-CREDIT-USED-NO-88 TO TRUE                               CL**5
00335       MOVE ZERO           TO WRK-MQTR-BAL                         DTSBR321
00336                              ws-paid-amt                          DTSBR321
00337                              wrk-paid-amt                         DTSBR321
00338                              wrk-mqtr-chg                            CL*11
00339                              ws-total-due                         DTSBR321
00340                              WS-TAX-DUE.                          DTSBR321
00341       ADD 1               TO TOT-PEN-CNT.                         DTSBR321
00342                                                                   DTSBR321
00343       MOVE R321-EMP-NO    TO ws-emp-no ws-emp-no3                    CL*13
00344                                                                   DTSBR321
00345       MOVE R321-YRQ       TO L004-QTR-5-9.                        DTSBR321
00346                                                                   DTSBR321
00347       SET L004-FROM-5 TO TRUE.                                    DTSBR321
00348       PERFORM S004-FROM-QTR THRU S004-EXIT.                       DTSBR321
00349       move l004-slash-5-qtr  to WS-YRQ-UNPACK.                    DTSBR321
00350       move WS-YRQ-UNPACK(1:4) to ws-yrq.                          DTSBR321
00351 *nh   move l004-slash-5-qtr  to ws-yrq.                           DTSBR321
00352                                                                   DTSBR321
00353 *     DISPLAY ' YRQ '  L004-QTR-5-9.                                 CL**9
00354 *      MOVE LOW-VALUES             TO MQTR-KEY-AREA.                 CL*29
00355 *      MOVE R321-EMP-NO            TO MQTR-EMP-NO.                   CL*29
00356 *      SET MQTR-QTR-88             TO TRUE.                          CL*29
00357 *      MOVE 20171                  TO MQTR-YRQ.                      CL*29
00358 *     PERFORM P1100-CHECK-BALANCE-DUE THRU P1100-EXIT.               CL*29
00359 *      MOVE LOW-VALUES             TO MQTR-KEY-AREA.                 CL*29
00360 *      MOVE R321-EMP-NO            TO MQTR-EMP-NO.                   CL*29
00361 *      SET MQTR-QTR-88             TO TRUE.                          CL*29
00362 *      MOVE 20172                  TO MQTR-YRQ.                      CL*29
00363 *     PERFORM P1100-CHECK-BALANCE-DUE THRU P1100-EXIT.               CL*29
00364 *      MOVE LOW-VALUES             TO MQTR-KEY-AREA.                 CL*29
00365 *      MOVE R321-EMP-NO            TO MQTR-EMP-NO.                   CL*29
00366 *      SET MQTR-QTR-88             TO TRUE.                          CL*29
00367 *      MOVE 20173                  TO MQTR-YRQ.                      CL*29
00368 *     PERFORM P1100-CHECK-BALANCE-DUE THRU P1100-EXIT.               CL*29
00369 *      MOVE LOW-VALUES             TO MQTR-KEY-AREA.                 CL*29
00370 *      MOVE R321-EMP-NO            TO MQTR-EMP-NO.                   CL*29
00371 *      SET MQTR-QTR-88             TO TRUE.                          CL*29
00372 *      MOVE 20174                  TO MQTR-YRQ.                      CL*29
00373 *     PERFORM P1100-CHECK-BALANCE-DUE THRU P1100-EXIT.               CL*29
00374                                                                   DTSBR321
00375       MOVE R321-MAIL-DATE TO L001-FED-8-DATE-9.                      CL*14
00376 *     MOVE 20150601       TO L001-FED-8-DATE-9.                      CL*14
00377       SET L001-FROM-FED-8 TO TRUE.                                DTSBR321
00378       PERFORM S001-DATE THRU S001-EXIT.                           DTSBR321
00379       MOVE L001-SLASH-8-DATE TO WS-mail-DATE.                     DTSBR321
00380                                                                   DTSBR321
00381       if  R321-tax-due-DATE not numeric                              CL*35
00382       MOVE 20210415 to R321-tax-due-DATE.                            CL*34
00383       MOVE R321-tax-due-DATE TO L001-FED-8-DATE-9.                   CL*34
00384 *     display 'r321-tax-due-date ' r321-tax-due-date.                CL**9
00385       SET L001-FROM-FED-8 TO TRUE.                                DTSBR321
00386       PERFORM S001-DATE THRU S001-EXIT.                           DTSBR321
00387       MOVE L001-SLASH-8-DATE TO WS-payment-DATE.                  DTSBR321
00388 *     display 'ws-payment-date ' ws-payment-date.                    CL**9
00389                                                                   DTSBR321
00390 *     ADD  R321-SUR-TAX-CHARGED-AMT TO WS-TAX-DUE                 DTSBR321
00391       move R321-UI-TAX-CHARGED-AMT TO WS-TAX-DUE                     CL*30
00392                                       WRK-MQTR-BAL.                  CL*30
00393                                                                   DTSBR321
00394 *     IF R321-UI-TAX-CHARGED-AMT < 15.00                             CL*20
00395 *        ADD 1 TO TOL-CNT.                                           CL*20
00396                                                                   DTSBR321
00397       add  R321-PEN-CHARGED-AMT TO wrk-mqtr-bal.                     CL*30
00398       subtract r321-ui-tax-paid-amt from wrk-mqtr-bal.               CL*30
00399                                                                   DTSBR321
00400       IF WRK-MQTR-BAL = 0                                         DTSBR321
00401          set ws-credit-used-yes-88 to true                           CL**5
00402          display 'credit applied balance due = 0 ' mqtr-emp-no       CL**5
00403         ADD 1 TO CREDIT-CNT.                                      DTSBR321
00404                                                                   DTSBR321
00405 **    MOVE WS-TAX-DUE           TO WS-RPA-TAX-DUE.                   CL*11
00406 **    add  R321-UI-TAX-PAID-AMT to wrk-paid-amt                   DTSBR321
00407       move r321-ui-tax-paid-amt to wrk-paid-amt.                     CL*31
00408       MOVE R321-PEN-CHARGED-AMT TO WS-PEN-CHARGED-AMT                CL*14
00409                                    WS-PEN-CHARGED-AMT3.              CL*14
00410 *     MOVE R321-INT-CHARGED-AMT TO WS-INT-CHARGED-AMT                CL*30
00411       MOVE zeros                TO WS-INT-CHARGED-AMT                CL*30
00412                                    WS-INT-CHARGED-AMT3.              CL*14
00413 **    add  R321-INT-CHARGED-AMT TO ws-tax-due.                       CL*11
00414 **    add  R321-pen-CHARGED-AMT TO ws-tax-due.                       CL*11
00415                                                                   DTSBR321
00416       move wrk-paid-amt         to ws-paid-amt                       CL*14
00417                                    ws-paid-amt3.                     CL*15
00418       move R321-UI-TAX-CHARGED-AMT TO WS-rpa-TAX-DUE                 CL*17
00419                                    WS-RPA-TAX-DUE3.                  CL*17
00420 *     MOVE Wrk-mqtr-chg         TO WS-RPA-TAX-DUE                    CL*17
00421 *                                  WS-RPA-TAX-DUE3.                  CL*17
00422 **    IF WRK-MQTR-BAL > 0                                         DTSBR321
00423 **       add  Wrk-mqtr-bal         TO WS-TAX-DUE                  DTSBR321
00424 **    END-IF.                                                     DTSBR321
00425                                                                   DTSBR321
00426 **    IF WRK-PAID-AMT > 0                                            CL*11
00427 **       SUBTRACT WRK-PAID-AMT FROM WS-TAX-DUE                       CL*11
00428 **    END-IF.                                                        CL*11
00429                                                                   DTSBR321
00430 **    subtract R321-UI-TAX-PAID-AMT from WS-TAX-DUE                  CL*11
00431 **    subtract R321-UI-tol-amt      from WS-TAX-DUE               DTSBR321
00432                                                                      CL**9
00433       if ws-credit-used-yes-88                                       CL**9
00434       MOVE zeros              TO WS-TOTAL-DUE ws-total-due3          CL*14
00435       else                                                           CL**9
00436       MOVE wrk-mqtr-bal       TO WS-TOTAL-DUE ws-total-due3.         CL*14
00437                                                                   DTSBR321
00438       PERFORM P2000-PRINT-HEADER THRU P2000-EXIT.                 DTSBR321
00439       PERFORM P4000-PRINT-DATA THRU P4000-EXIT.                   DTSBR321
00440       PERFORM P6000-SELF-MAILER-RTN THRU P6000-EXIT.              DTSBR321
00441       DISPLAY ' ' MQTR-EMP-NO ' ' MQTR-YRQ ' ' WS-RPA-TAX-DUE     DTSBR321
00442               ' ' WS-PAID-AMT ' ' WS-PEN-CHARGED-AMT              DTSBR321
00443               ' ' WS-INT-CHARGED-AMT ' ' WS-TOTAL-DUE.            DTSBR321
00444       SKIP1                                                       DTSBR321
00445      WRITE XEROX-REPORT3 FROM rpt-line-3 AFTER 1.                    CL*14
00446  P1000-EXIT.                                                      DTSBR321
00447      EXIT.                                                        DTSBR321
00448                                                                   DTSBR321
00449  P1100-CHECK-BALANCE-DUE.                                         DTSBR321
00450        MOVE MQTR-KEY-AREA          TO MSKL-KEY-AREA.              DTSBR321
00451        PERFORM S910-READ           THRU S910-EXIT.                DTSBR321
00452                                                                   DTSBR321
00453 *       display '** emp- acct cnt ' mqtr-emp-no ' ' mqtr-acct-cnt    CL*24
00454        IF L910-OK-88                                              DTSBR321
00455         MOVE MSKL-REC            TO MQTR-REC                      DTSBR321
00456 *      MOVE 4 TO mqtr-acct-cnt                                    DTSBR321
00457         display 'qemp - ' mqtr-emp-no ' ' mqtr-acct-cnt              CL*24
00458                 ' '  mqtr-yrq                                        CL*24
00459         PERFORM                                                      CL*26
00460          VARYING MQTR-ACCT-IDX FROM +1 BY +1                      DTSBR321
00461          UNTIL MQTR-ACCT-IDX > MQTR-ACCT-CNT                      DTSBR321
00462            IF MQTR-ACCT-UI-88 (MQTR-ACCT-IDX)                     DTSBR321
00463               ADD  MQTR-BALANCE-AMT (MQTR-ACCT-IDX)               DTSBR321
00464                    TO WRK-MQTR-BAL                                DTSBR321
00465               ADD  MQTR-charged-AMT (MQTR-ACCT-IDX)                  CL*11
00466                    TO WRK-MQTR-chg                                   CL*11
00467 *             display 'ui amt '  MQTR-BALANCE-AMT (MQTR-ACCT-IDX) DTSBR321
00468               ADD  MQTR-paid-AMT (MQTR-ACCT-IDX)                  DTSBR321
00469                    TO WRK-paid-amt                                DTSBR321
00470               ADD  MQTR-charged-AMT (MQTR-ACCT-IDX)                  CL*11
00471                    TO WRK-MQTR-chg                                   CL*11
00472            subtract MQTR-toler-AMT (MQTR-ACCT-IDX)                   CL**7
00473                  from WRK-paid-amt                                   CL**7
00474            subtract MQTR-waived-AMT (MQTR-ACCT-IDX)                  CL*11
00475                  from WRK-paid-amt                                   CL*11
00476 *             display 'ui paid ' MQTR-paid-AMT (MQTR-ACCT-IDX)    DTSBR321
00477            END-IF                                                 DTSBR321
00478                                                                   DTSBR321
00479              IF MQTR-ACCT-SUR-88 (MQTR-ACCT-IDX)                  DTSBR321
00480 *nh           if r321-rated-filing-88                             DTSBR321
00481                 ADD  MQTR-BALANCE-AMT (MQTR-ACCT-IDX)             DTSBR321
00482                      TO WRK-MQTR-BAL                              DTSBR321
00483 *              display 'si amt '  MQTR-BALANCE-AMT (MQTR-ACCT-IDX)DTSBR321
00484                ADD  MQTR-paid-AMT (MQTR-ACCT-IDX)                 DTSBR321
00485                    TO WRK-paid-amt                                DTSBR321
00486               ADD  MQTR-charged-AMT (MQTR-ACCT-IDX)                  CL*11
00487                    TO WRK-MQTR-chg                                   CL*11
00488            subtract MQTR-toler-AMT (MQTR-ACCT-IDX)                   CL**7
00489                  from WRK-paid-amt                                   CL**7
00490            subtract MQTR-waived-AMT (MQTR-ACCT-IDX)                  CL*11
00491                  from WRK-paid-amt                                   CL*11
00492 *              display 'si paid ' MQTR-paid-AMT (MQTR-ACCT-IDX)   DTSBR321
00493 *nh           end-if                                              DTSBR321
00494             end-if                                                DTSBR321
00495                                                                   DTSBR321
00496            IF MQTR-ACCT-INT-88 (MQTR-ACCT-IDX)                    DTSBR321
00497               ADD  MQTR-BALANCE-AMT (MQTR-ACCT-IDX)               DTSBR321
00498                    TO WRK-MQTR-BAL                                DTSBR321
00499               display 'int bal '  MQTR-BALANCE-AMT (MQTR-ACCT-IDX)   CL*23
00500               add MQTR-BALANCE-AMT (MQTR-ACCT-IDX) to                CL*21
00501                    R321-INT-CHARGED-AMT                              CL*21
00502               ADD  MQTR-paid-AMT (MQTR-ACCT-IDX)                  DTSBR321
00503                    TO WRK-paid-amt                                DTSBR321
00504               display 'int pd  '  MQTR-paid-AMT (MQTR-ACCT-IDX)      CL*23
00505               ADD  MQTR-charged-AMT (MQTR-ACCT-IDX)                  CL*11
00506                    TO WRK-MQTR-chg                                   CL*11
00507            display 'int chg  ' MQTR-charged-AMT (MQTR-ACCT-IDX)      CL*23
00508               subtract  MQTR-toler-AMT (MQTR-ACCT-IDX)               CL**8
00509                    from WRK-paid-amt                                 CL**8
00510            subtract MQTR-waived-AMT (MQTR-ACCT-IDX)                  CL*11
00511                  from WRK-paid-amt                                   CL*11
00512            END-IF                                                 DTSBR321
00513                                                                   DTSBR321
00514            IF MQTR-ACCT-LATE-PEN-88 (MQTR-ACCT-IDX)               DTSBR321
00515               ADD  MQTR-BALANCE-AMT (MQTR-ACCT-IDX)               DTSBR321
00516                    TO WRK-MQTR-BAL                                DTSBR321
00517 *             display 'pen amt '  MQTR-BALANCE-AMT (MQTR-ACCT-IDX)   CL**9
00518               ADD  MQTR-paid-AMT (MQTR-ACCT-IDX)                  DTSBR321
00519                    TO WRK-paid-amt                                DTSBR321
00520               ADD  MQTR-charged-AMT (MQTR-ACCT-IDX)                  CL*11
00521                    TO WRK-MQTR-chg                                   CL*11
00522 *             display 'pen paid ' MQTR-paid-AMT (MQTR-ACCT-IDX)      CL**9
00523               subtract  MQTR-toler-AMT (MQTR-ACCT-IDX)               CL**8
00524                    from WRK-paid-amt                                 CL**8
00525 *             display 'pen paid ' MQTR-paid-AMT (MQTR-ACCT-IDX)      CL**9
00526            subtract MQTR-waived-AMT (MQTR-ACCT-IDX)                  CL*11
00527                  from WRK-paid-amt                                   CL*11
00528            END-IF                                                 DTSBR321
00529                                                                      CL**8
00530          END-PERFORM                                              DTSBR321
00531        END-IF.                                                    DTSBR321
00532  P1100-EXIT.                                                      DTSBR321
00533      EXIT.                                                        DTSBR321
00534                                                                   DTSBR321
00535  P2000-PRINT-HEADER.                                              DTSBR321
00536      MOVE R321-EMP-NO       TO BARC-EMP-NO.                       DTSBR321
00537       if  R321-tax-due-DATE not numeric                              CL*35
00538       MOVE 20210415 to R321-tax-due-DATE.                            CL*35
00539       MOVE R321-tax-due-DATE TO L001-FED-8-DATE-9.                DTSBR321
00540 *     display 'r321-tax-due-date ' r321-tax-due-date.                CL**9
00541       SET L001-FROM-FED-8 TO TRUE.                                DTSBR321
00542       PERFORM S001-DATE THRU S001-EXIT.                           DTSBR321
00543       MOVE L001-SLASH-8-DATE TO WS-payment-DATE.                  DTSBR321
00544      PERFORM S599-BARCODE   THRU S599-EXIT.                       DTSBR321
00545                                                                   DTSBR321
00546      IF L599-SETB-FONT1                                           DTSBR321
00547         MOVE 'MODIFY=TAXSM1,' TO CNTL1-CME                        DTSBR321
00548      ELSE                                                         DTSBR321
00549      IF L599-SETB-FONT2                                           DTSBR321
00550         MOVE 'MODIFY=TAXSM2,' TO CNTL1-CME                        DTSBR321
00551      ELSE                                                         DTSBR321
00552         MOVE 'MODIFY=TAXSM1,' TO CNTL1-CME.                       DTSBR321
00553                                                                   DTSBR321
00554      move 'JDE=T321R1,'  to cntl1-jde.                            DTSBR321
00555      WRITE XEROX-REPORT     FROM XEROX-CNTL-LINE18                DTSBR321
00556             AFTER ADVANCING TOP-OF-PAGE.                          DTSBR321
00557      WRITE XEROX-REPORT     FROM XEROX-CNTL-LINE19.               DTSBR321
00558      WRITE XEROX-REPORT     FROM XEROX-CNTL-LINE20.               DTSBR321
00559                                                                   DTSBR321
00560      MOVE R321-FMT-LINE (1) TO WS-FMT-LINE-1.                     DTSBR321
00561      MOVE R321-FMT-LINE (2) TO WS-FMT-LINE-2.                     DTSBR321
00562      MOVE R321-FMT-LINE (3) TO WS-FMT-LINE-3.                     DTSBR321
00563      MOVE R321-FMT-LINE (4) TO WS-FMT-LINE-4.                     DTSBR321
00564      MOVE R321-FMT-LINE (5) TO WS-FMT-LINE-5.                     DTSBR321
00565      MOVE R321-EMP-NO       TO WS-EMP-NO.                         DTSBR321
00566 *    WRITE XEROX-REPORT FROM VSCA-LINE AFTER ADVANCING TOP-OF-PAGEDTSBR321
00567 *    WRITE XEROX-REPORT FROM VSCA-LINE AFTER ADVANCING 6 LINE.    DTSBR321
00568      WRITE XEROX-REPORT FROM VSCA-LINE AFTER ADVANCING 9 LINE.    DTSBR321
00569      WRITE XEROX-REPORT FROM LTH-LINE-1 AFTER ADVANCING 1 LINE.   DTSBR321
00570      WRITE XEROX-REPORT FROM LTH-LINE-2 AFTER ADVANCING 1 LINE.   DTSBR321
00571      WRITE XEROX-REPORT FROM LTH-LINE-3 AFTER ADVANCING 1 LINE.   DTSBR321
00572      WRITE XEROX-REPORT FROM LTH-LINE-4 AFTER ADVANCING 1 LINE.   DTSBR321
00573      WRITE XEROX-REPORT FROM LTH-LINE-5 AFTER ADVANCING 1 LINE.   DTSBR321
00574                                                                   DTSBR321
00575  P2000-EXIT.                                                      DTSBR321
00576      EXIT.                                                        DTSBR321
00577                                                                   DTSBR321
00578  P4000-PRINT-DATA.                                                DTSBR321
00579 *    if ws-credit-used-yes-88                                        CL**9
00580 *    WRITE XEROX-REPORT FROM cred-line  AFTER ADVANCING 10 LINE      CL**9
00581 *    WRITE XEROX-REPORT FROM RPT-LINE-1 AFTER ADVANCING  5 LINE      CL**9
00582 *    ELSE                                                            CL**9
00583      WRITE XEROX-REPORT FROM RPT-LINE-1 AFTER ADVANCING 14 LINE.     CL*39
00584                                                                   DTSBR321
00585  P4000-EXIT.                                                      DTSBR321
00586      EXIT.                                                        DTSBR321
00587                                                                   DTSBR321
00588                                                                   DTSBR321
00589  P6000-SELF-MAILER-RTN.                                           DTSBR321
00590      MOVE R321-FMT-LINE (1) TO WS-ADDR-FMT-LINE-1.                DTSBR321
00591      MOVE R321-FMT-LINE (2) TO WS-ADDR-FMT-LINE-2.                DTSBR321
00592      MOVE R321-FMT-LINE (3) TO WS-ADDR-FMT-LINE-3.                DTSBR321
00593      MOVE R321-FMT-LINE (4) TO WS-ADDR-FMT-LINE-4.                DTSBR321
00594      MOVE R321-FMT-LINE (5) TO WS-ADDR-FMT-LINE-5.                DTSBR321
00595      PERFORM P7000-PRINT-VSCA-ADDR THRU P7000-EXIT.               DTSBR321
00596  P6000-EXIT.                                                      DTSBR321
00597      EXIT.                                                        DTSBR321
00598                                                                   DTSBR321
00599  P7000-PRINT-VSCA-ADDR.                                           DTSBR321
00600 *RW1                                                              DTSBR321
00601      MOVE L599-BARCODED-DATA  TO CONVERTED-BARCODE.               DTSBR321
00602                                                                   DTSBR321
00603       MOVE SPACES             TO WS-REC.                          DTSBR321
00604       WRITE XEROX-REPORT FROM WS-REC                              DTSBR321
00605           AFTER ADVANCING TOP-OF-PAGE.                            DTSBR321
00606                                                                   DTSBR321
00607      WRITE XEROX-REPORT FROM WS-BARC-LINE AFTER 04.               DTSBR321
00608                                                                   DTSBR321
00609 *    WRITE XEROX-REPORT     FROM VSCA-LINE                        DTSBR321
00610 *        AFTER ADVANCING TOP-OF-PAGE.                             DTSBR321
00611 *    WRITE XEROX-REPORT FROM VSCA-LINE AFTER ADVANCING 13 LINE.   DTSBR321
00612      WRITE XEROX-REPORT FROM VSCA-LINE AFTER ADVANCING  9 LINE.   DTSBR321
00613 *RW2                                                              DTSBR321
00614      WRITE XEROX-REPORT FROM VSCA-ADDR-LINE-15                    DTSBR321
00615              AFTER ADVANCING 1 LINE.                              DTSBR321
00616      WRITE XEROX-REPORT FROM VSCA-ADDR-LINE-16                    DTSBR321
00617              AFTER ADVANCING 1 LINE.                              DTSBR321
00618      WRITE XEROX-REPORT FROM VSCA-ADDR-LINE-17                    DTSBR321
00619              AFTER ADVANCING 1 LINE.                              DTSBR321
00620      WRITE XEROX-REPORT FROM VSCA-ADDR-LINE-18                    DTSBR321
00621              AFTER ADVANCING 1 LINE.                              DTSBR321
00622      WRITE XEROX-REPORT FROM VSCA-ADDR-LINE-19                    DTSBR321
00623              AFTER ADVANCING 1 LINE.                              DTSBR321
00624      WRITE XEROX-REPORT FROM VSCA-ADDR-LINE-20                    DTSBR321
00625              AFTER ADVANCING 1 LINE.                              DTSBR321
00626                                                                   DTSBR321
00627  P7000-EXIT.                                                      DTSBR321
00628      EXIT.                                                        DTSBR321
00629                                                                   DTSBR321
00630  P8000-generate-missing-letter.                                   DTSBR321
00631        MOVE LOW-VALUES             TO MQTR-KEY-AREA.              DTSBR321
00632        MOVE R321-EMP-NO            TO MQTR-EMP-NO.                DTSBR321
00633        SET MQTR-QTR-88             TO TRUE.                       DTSBR321
00634        MOVE L004-QTR-5-9           TO MQTR-YRQ.                   DTSBR321
00635        MOVE MQTR-KEY-AREA          TO MSKL-KEY-AREA.              DTSBR321
00636        PERFORM S910-READ           THRU S910-EXIT.                DTSBR321
00637                                                                   DTSBR321
00638 *      IF L910-OK-88                                                 CL**4
00639 *       display 'missing report found ' r321-emp-no                  CL**4
00640 *       go to p8000-exit.                                            CL**4
00641                                                                   DTSBR321
00642      ADD 1               TO TOT-MIS-CNT.                          DTSBR321
00643 *       display 'r321-mail-date ' r321-mail-date                     CL**9
00644      MOVE R321-MAIL-DATE TO L002-DATE.                               CL*13
00645 *    MOVE 20150601       TO L002-DATE.                               CL*13
00646      PERFORM S002-MIXED-CASE THRU S002-EXIT.                      DTSBR321
00647                                                                   DTSBR321
00648 **   COMPUTE WS-START-POS = (18 - L002-LONG-TEXT-CNT) / 2.        DTSBR321
00649                                                                   DTSBR321
00650 **   ADD +1 TO WS-START-POS.                                      DTSBR321
00651 **   display 'ws-start-pos '  ws-start-pos                        DTSBR321
00652 **   IF (WS-START-POS > +0)                                       DTSBR321
00653 **         AND                                                    DTSBR321
00654 **      (WS-START-POS < +18)                                      DTSBR321
00655 **       MOVE SPACES TO WS-LONG-TEXT-MAIL-DATE                    DTSBR321
00656 **       MOVE L002-LONG-TEXT-AREA                                 DTSBR321
00657 **         TO WS-LONG-TEXT-MAIL-DATE (WS-START-POS:)              DTSBR321
00658 **   ELSE                                                         DTSBR321
00659           MOVE L002-LONG-TEXT-AREA TO WS-LONG-TEXT-MAIL-DATE.     DTSBR321
00660                                                                   DTSBR321
00661 *    MOVE R417-TOTAL-RATE TO L056-RATE.                           DTSBR321
00662 *    PERFORM S056-DISP1-LEFT-PCT THRU S056-EXIT.                  DTSBR321
00663 *    MOVE L056-DISP-RATE TO WS-DISP-RATE.                         DTSBR321
00664 *      display 'r321-yrq '  r321-yrq                                 CL**5
00665      MOVE R321-YRQ TO L008-YRQ.                                   DTSBR321
00666      PERFORM S008-UPPER-CASE THRU S008-EXIT.                      DTSBR321
00667      MOVE L008-SHORT-MONTHS TO WS-UC-SHORT-MONTHS.                DTSBR321
00668                                                                   DTSBR321
00669      PERFORM S008-MIXED-CASE THRU S008-EXIT.                      DTSBR321
00670 *    MOVE L008-SHORT-DSCR TO DTL-UC-SHORT-QTR-3.                  DTSBR321
00671                                                                   DTSBR321
00672      MOVE L008-YEAR (3:2) TO WS-SHORT-YEAR.                       DTSBR321
00673                                                                   DTSBR321
00674      MOVE L008-YEAR TO WS-LONG-YEAR.                              DTSBR321
00675                                                                   DTSBR321
00676       SET L004-FROM-5     TO TRUE.                                DTSBR321
00677       MOVE R321-YRQ       TO WS-YRQ-UNPACK.                       DTSBR321
00678       MOVE WS-YRQ-UNPACK  TO L004-QTR-5-AREA.                     DTSBR321
00679       PERFORM S004-FROM-5   THRU S004-EXIT.                       DTSBR321
00680       MOVE L004-QTR-END-DATE   TO L002-DATE.                      DTSBR321
00681                                                                   DTSBR321
00682 *    MOVE l002-date     TO L001-FED-8-DATE-9.                     DTSBR321
00683       if  R321-tax-due-DATE not numeric                              CL*36
00684       MOVE 20210415 to R321-tax-due-DATE.                            CL*36
00685      MOVE R321-tax-DUE-DATE TO L001-FED-8-DATE-9.                 DTSBR321
00686      PERFORM S001-FROM-FED-8 THRU S001-EXIT.                      DTSBR321
00687      MOVE L001-SLASH-8-DATE TO WS-SLASH-DUE-DATE.                 DTSBR321
00688      display 'r321-tax-due ' r321-emp-no ' ' r321-tax-due-date.      CL*33
00689 *    display 'L002-DATE '  L002-DATE.                                CL**5
00690       MOVE R321-tax-DUE-DATE           TO L002-DATE.              DTSBR321
00691      PERFORM S002-MIXED-CASE THRU S002-EXIT.                      DTSBR321
00692      MOVE L002-LONG-TEXT-AREA TO hdr-long-year2.                  DTSBR321
00693                                                                   DTSBR321
00694      PERFORM P9500-PRINT-HEADER THRU P9500-EXIT.                  DTSBR321
00695                                                                   DTSBR321
00696 *    MOVE +130 TO L090-DESIRED-LINE-LIMIT.                        DTSBR321
00697 *    MOVE +3 TO L090-PHRASE-CNT.                                  DTSBR321
00698 *    MOVE MC-LIT-WAS-DUE-BY TO L090-PHRASE (1).                   DTSBR321
00699 *    MOVE SPACE TO L090-PHRASE-OVERSTRIKE-IND (1).                DTSBR321
00700 *    MOVE WS-LONG-TEXT-DUE-DATE TO L090-PHRASE (2).               DTSBR321
00701 *    MOVE SPACE TO L090-PHRASE-OVERSTRIKE-IND (2).                DTSBR321
00702 *    MOVE SPACES TO L090-PHRASE (2).                              DTSBR321
00703      STRING L002-LONG-TEXT-AREA DELIMITED BY '  '                 DTSBR321
00704             '.'                 DELIMITED BY SIZE                 DTSBR321
00705          INTO L090-PHRASE (2).                                    DTSBR321
00706      MOVE SPACES TO L090-PHRASE-OVERSTRIKE-IND (2).               DTSBR321
00707 *    MOVE MC-LIT-IS-NOW-DEL  TO L090-PHRASE (3).                  DTSBR321
00708      MOVE SPACES TO L090-PHRASE-OVERSTRIKE-IND (3).               DTSBR321
00709 **   PERFORM S090-PARAGRAPH-FORMAT THRU S090-EXIT.                DTSBR321
00710 *    DISPLAY 'L90 ' L090-PARAGRAPH-LINE-CNT                       DTSBR321
00711 *    IF (L090-UNSUCCESSFUL-88)                                    DTSBR321
00712 *          OR                                                     DTSBR321
00713 *       (L090-PARAGRAPH-LINE-CNT NOT = +1)                        DTSBR321
00714 *        MOVE 'LOGIC ERROR P1000-1' TO ABEND-MSG                  DTSBR321
00715 *        PERFORM S999-ABEND THRU S999-EXIT.                       DTSBR321
00716 *    MOVE L090-PARAGRAPH-LINE (1) TO WS-TEXT-LINE-1.              DTSBR321
00717                                                                   DTSBR321
00718 *     MOVE +130 TO L090-DESIRED-LINE-LIMIT.                       DTSBR321
00719 *     MOVE +3 TO L090-PHRASE-CNT.                                 DTSBR321
00720 *     MOVE MC-LIT-NOTICE-TO-US TO L090-PHRASE (1).                DTSBR321
00721 *     MOVE SPACES TO L090-PHRASE-OVERSTRIKE-IND (1).              DTSBR321
00722 *     SET L004-FROM-5     TO TRUE.                                DTSBR321
00723 *     MOVE R321-YRQ       TO WS-YRQ-UNPACK.                       DTSBR321
00724 *     MOVE WS-YRQ-UNPACK  TO L004-QTR-5-AREA.                     DTSBR321
00725 *     PERFORM S004-FROM-5   THRU S004-EXIT.                       DTSBR321
00726 *     MOVE L004-QTR-END-DATE   TO L002-DATE.                      DTSBR321
00727 *                                                                 DTSBR321
00728 *     PERFORM S002-MIXED-CASE THRU S002-EXIT.                     DTSBR321
00729 *     MOVE SPACES TO L090-PHRASE (2).                             DTSBR321
00730 *     STRING L002-LONG-TEXT-AREA DELIMITED BY '  '                DTSBR321
00731 *            ','                 DELIMITED BY SIZE                DTSBR321
00732 *         INTO L090-PHRASE (2).                                   DTSBR321
00733 *     MOVE SPACES TO L090-PHRASE-OVERSTRIKE-IND (2).              DTSBR321
00734 *     MOVE MC-LIT-NOTICE-TO-US1 TO L090-PHRASE (3).               DTSBR321
00735 *    MOVE SPACES TO L090-PHRASE-OVERSTRIKE-IND (3).               DTSBR321
00736 *    PERFORM S090-PARAGRAPH-FORMAT THRU S090-EXIT.                DTSBR321
00737 *    DISPLAY 'L903 ' L090-PARAGRAPH-LINE-CNT                      DTSBR321
00738 *     DISPLAY ' LIN ' L090-PARAGRAPH-LINE (1)                     DTSBR321
00739 *    IF (L090-UNSUCCESSFUL-88)                                    DTSBR321
00740 *              OR                                                 DTSBR321
00741 *       (L090-PARAGRAPH-LINE-CNT NOT = +1)                        DTSBR321
00742 *        MOVE 'LOGIC ERROR P1000-3' TO ABEND-MSG                  DTSBR321
00743 *        PERFORM S999-ABEND THRU S999-EXIT.                       DTSBR321
00744 *    MOVE L090-PARAGRAPH-LINE (1) TO WS-TEXT-LINE-3.              DTSBR321
00745 *                                                                 DTSBR321
00746 *    MOVE +130 TO L090-DESIRED-LINE-LIMIT.                        DTSBR321
00747 *    MOVE +3 TO L090-PHRASE-CNT.                                  DTSBR321
00748 *    MOVE MC-LIT-NOTICE-TO-US2 TO L090-PHRASE (1).                DTSBR321
00749 *    MOVE SPACES TO L090-PHRASE-OVERSTRIKE-IND (1).               DTSBR321
00750 *    DISPLAY ' RTN BYE DATE ' R417-RETURN-BY-DATE.                DTSBR321
00751 *    MOVE R417-RETURN-BY-DATE TO L002-DATE.                       DTSBR321
00752 *    PERFORM S002-MIXED-CASE THRU S002-EXIT.                      DTSBR321
00753 *    MOVE SPACES TO L090-PHRASE (2).                              DTSBR321
00754 *    STRING L002-LONG-TEXT-AREA DELIMITED BY '  '                 DTSBR321
00755 *           ','                 DELIMITED BY SIZE                 DTSBR321
00756 *        INTO L090-PHRASE (2).                                    DTSBR321
00757 *    MOVE SPACES TO L090-PHRASE-OVERSTRIKE-IND (2).               DTSBR321
00758 *    MOVE MC-LIT-NOTICE-TO-US3 TO L090-PHRASE (3).                DTSBR321
00759 *    MOVE SPACES TO L090-PHRASE-OVERSTRIKE-IND (3).               DTSBR321
00760 *    PERFORM S090-PARAGRAPH-FORMAT THRU S090-EXIT.                DTSBR321
00761 *    DISPLAY 'L904 ' L090-PARAGRAPH-LINE-CNT                      DTSBR321
00762 *     DISPLAY ' LIN ' L090-PARAGRAPH-LINE (1)                     DTSBR321
00763 *    IF (L090-UNSUCCESSFUL-88)                                    DTSBR321
00764 *              OR                                                 DTSBR321
00765 *       (L090-PARAGRAPH-LINE-CNT NOT = +1)                        DTSBR321
00766 *        MOVE 'LOGIC ERROR P1000-4' TO ABEND-MSG                  DTSBR321
00767 *        PERFORM S999-ABEND THRU S999-EXIT.                       DTSBR321
00768 *    MOVE L090-PARAGRAPH-LINE (1) TO WS-TEXT-LINE-4.              DTSBR321
00769                                                                   DTSBR321
00770      PERFORM P9000-PRINT-DETAIL-1 THRU P9000-EXIT.                DTSBR321
00771                                                                   DTSBR321
00772 *    MOVE +0 TO DETAIL-2-LINE-CNT.                                DTSBR321
00773                                                                   DTSBR321
00774      PERFORM P9700-SELF-MAILER-RTN THRU P9700-EXIT.               DTSBR321
00775  P8000-EXIT.                                                      DTSBR321
00776      EXIT.                                                        DTSBR321
00777                                                                   DTSBR321
00778  P9000-PRINT-DETAIL-1.                                            DTSBR321
00779 **   MOVE hdr-UC-SHORT-MONTH-1 TO DTL-UC-SHORT-MONTH-1.           DTSBR321
00780 **   MOVE hdr-UC-SHORT-MONTH-2 TO DTL-UC-SHORT-MONTH-2.           DTSBR321
00781 **   MOVE hdr-UC-SHORT-MONTH-3 TO DTL-UC-SHORT-MONTH-3.           DTSBR321
00782 **   MOVE hdr-LONG-YEAR        TO DTL-LONG-YEAR.                  DTSBR321
00783      WRITE XEROX-REPORT2 FROM dtl-line-2                          DTSBR321
00784                                     after aDVANCING 2 LINE.       DTSBR321
00785      WRITE XEROX-REPORT2 FROM DTL-LINE-3 AFTER ADVANCING 1 LINE.  DTSBR321
00786 **   WRITE XEROX-REPORT2 FROM DTL-LINE-4 AFTER ADVANCING 1 LINE.  DTSBR321
00787 **   WRITE XEROX-REPORT2 FROM DTL-LINE-5 AFTER ADVANCING 1 LINE.  DTSBR321
00788      WRITE XEROX-REPORT2 FROM DTL-LINE-5A AFTER ADVANCING 1 LINE. DTSBR321
00789      WRITE XEROX-REPORT2 FROM DTL-LINE-6 AFTER ADVANCING 2 LINE.  DTSBR321
00790      WRITE XEROX-REPORT2 FROM DTL-LINE-6A AFTER ADVANCING 1 LINE. DTSBR321
00791 **   WRITE XEROX-REPORT2 FROM DTL-LINE-7 AFTER ADVANCING 2 LINE.  DTSBR321
00792 **   WRITE XEROX-REPORT2 FROM DTL-LINE-7A AFTER ADVANCING 1 LINE. DTSBR321
00793      WRITE XEROX-REPORT2 FROM DTL-LINE-8 AFTER ADVANCING 1 LINE.  DTSBR321
00794      WRITE XEROX-REPORT2 FROM DTL-LINE-8A AFTER ADVANCING 1 LINE. DTSBR321
00795      WRITE XEROX-REPORT2 FROM DTL-LINE-8b AFTER ADVANCING 1 LINE. DTSBR321
00796      WRITE XEROX-REPORT2 FROM DTL-LINE-9 AFTER ADVANCING 1 LINE.  DTSBR321
00797      WRITE XEROX-REPORT2 FROM DTL-LINE-11 AFTER ADVANCING 1 LINE. DTSBR321
00798      WRITE XEROX-REPORT2 FROM DTL-LINE-12 AFTER ADVANCING 1 LINE. DTSBR321
00799                                                                   DTSBR321
00800  P9000-EXIT.                                                      DTSBR321
00801      EXIT.                                                        DTSBR321
00802  P9500-PRINT-HEADER.                                              DTSBR321
00803      MOVE R321-EMP-NO       TO BARC-EMP-NO.                       DTSBR321
00804                                                                   DTSBR321
00805      PERFORM S599-BARCODE   THRU S599-EXIT.                       DTSBR321
00806      IF L599-SETB-FONT1                                           DTSBR321
00807         MOVE 'MODIFY=TAXSM1,' TO CNTL2-CME                        DTSBR321
00808      ELSE                                                         DTSBR321
00809      IF L599-SETB-FONT2                                           DTSBR321
00810         MOVE 'MODIFY=TAXSM2,' TO CNTL2-CME                        DTSBR321
00811      ELSE                                                         DTSBR321
00812         MOVE 'MODIFY=TAXSM1,' TO CNTL2-CME.                       DTSBR321
00813      MOVE 'MODIFY=CME418,' TO CNTL2-CME.                          DTSBR321
00814      WRITE XEROX-REPORT2    FROM XEROX-CNTL2-LINE18               DTSBR321
00815             AFTER ADVANCING TOP-OF-PAGE.                          DTSBR321
00816 *    WRITE XEROX-REPORT2    FROM XEROX-CNTL2-LINE19.              DTSBR321
00817      WRITE XEROX-REPORT2    FROM XEROX-CNTL2-LINE20.              DTSBR321
00818      MOVE R321-FMT-LINE (1) TO HDR-FMT-LINE-1.                    DTSBR321
00819      MOVE R321-FMT-LINE (2) TO HDR-FMT-LINE-2.                    DTSBR321
00820      MOVE R321-FMT-LINE (3) TO HDR-FMT-LINE-3.                    DTSBR321
00821      MOVE R321-FMT-LINE (4) TO HDR-FMT-LINE-4.                    DTSBR321
00822      MOVE R321-FMT-LINE (5) TO HDR-FMT-LINE-5.                    DTSBR321
00823      MOVE R321-EMP-NO       TO HDR-EMP-NO.                        DTSBR321
00824 **   MOVE WS-UC-SHORT-MONTH-1 TO HDR-UC-SHORT-MONTH-1.            DTSBR321
00825 **   MOVE WS-UC-SHORT-MONTH-2 TO HDR-UC-SHORT-MONTH-2.            DTSBR321
00826 **   MOVE WS-UC-SHORT-MONTH-3 TO HDR-UC-SHORT-MONTH-3.            DTSBR321
00827      MOVE WS-LONG-YEAR        TO HDR-LONG-YEAR.                   DTSBR321
00828      MOVE WS-LONG-YEAR        TO HDR-LONG-YEAR1.                  DTSBR321
00829 *    WRITE XEROX-REPORT FROM VSCA-LINE AFTER ADVANCING TOP-OF-PAGEDTSBR321
00830      WRITE XEROX-REPORT2 FROM VSCA-LINE AFTER ADVANCING 8  LINE.  DTSBR321
00831 *    WRITE XEROX-REPORT FROM VSCA-LINE AFTER ADVANCING 10 LINE.   DTSBR321
00832      WRITE XEROX-REPORT2 FROM HDR-LINE-10 AFTER ADVANCING 1 LINE. DTSBR321
00833      WRITE XEROX-REPORT2 FROM HDR-LINE-11 AFTER ADVANCING 2 LINE. DTSBR321
00834      WRITE XEROX-REPORT2 FROM HDR-LINE-12 AFTER ADVANCING 1 LINE. DTSBR321
00835      WRITE XEROX-REPORT2 FROM HDR-LINE-13 AFTER ADVANCING 1 LINE. DTSBR321
00836      WRITE XEROX-REPORT2 FROM HDR-LINE-14 AFTER ADVANCING 1 LINE. DTSBR321
00837      WRITE XEROX-REPORT2 FROM HDR-LINE-15 AFTER ADVANCING 1 LINE. DTSBR321
00838                                                                      CL*17
00839      MOVE R321-EMP-NO       TO WS-EMP-NO4.                           CL*17
00840      if R321-FMT-LINE (1) > spaces                                   CL*14
00841         move r321-fmt-line(1) to ws-emp-name4                        CL*14
00842      else                                                            CL*14
00843      if R321-FMT-LINE (2) > spaces                                   CL*17
00844         move r321-fmt-line(2) to ws-emp-name4                        CL*17
00845      else                                                            CL*17
00846      if R321-FMT-LINE (3) > spaces                                   CL*17
00847         move r321-fmt-line(3) to ws-emp-name4                        CL*17
00848      else                                                            CL*17
00849         move r321-fmt-line(4) to ws-emp-name4.                       CL*17
00850      WRITE XEROX-REPORT4 FROM rpt-LINE-4 AFTER ADVANCING 1 LINE.     CL*14
00851  P9500-EXIT.                                                      DTSBR321
00852      EXIT.                                                        DTSBR321
00853  P9700-SELF-MAILER-RTN.                                           DTSBR321
00854       MOVE R321-FMT-LINE (1) TO C2-ADDR-FMT-LINE-1.               DTSBR321
00855       MOVE R321-FMT-LINE (2) TO C2-ADDR-FMT-LINE-2.               DTSBR321
00856       MOVE R321-FMT-LINE (3) TO C2-ADDR-FMT-LINE-3.               DTSBR321
00857       MOVE R321-FMT-LINE (4) TO C2-ADDR-FMT-LINE-4.               DTSBR321
00858       MOVE R321-FMT-LINE (5) TO C2-ADDR-FMT-LINE-5.               DTSBR321
00859                                                                   DTSBR321
00860      PERFORM P9900-PRINT-VSCA-ADDR THRU P9900-EXIT.               DTSBR321
00861                                                                   DTSBR321
00862  P9700-EXIT.                                                      DTSBR321
00863      EXIT.                                                        DTSBR321
00864  P9900-PRINT-VSCA-ADDR.                                           DTSBR321
00865      MOVE L599-BARCODED-DATA  TO CONVERTED-BARCODE.               DTSBR321
00866                                                                   DTSBR321
00867       MOVE SPACES             TO WS-REC.                          DTSBR321
00868       WRITE XEROX-REPORT2 FROM WS-REC                             DTSBR321
00869           AFTER ADVANCING TOP-OF-PAGE.                            DTSBR321
00870                                                                   DTSBR321
00871 *    WRITE XEROX-REPORT FROM WS-BARC-LINE AFTER 04.               DTSBR321
00872                                                                   DTSBR321
00873 *    WRITE XEROX-REPORT     FROM VSCA-LINE                        DTSBR321
00874 *        AFTER ADVANCING TOP-OF-PAGE.                             DTSBR321
00875      WRITE XEROX-REPORT2 FROM VSCA-LINE AFTER ADVANCING 16 LINE.  DTSBR321
00876 *    WRITE XEROX-REPORT FROM VSCA-LINE AFTER ADVANCING 13 LINE.   DTSBR321
00877 *RW2                                                              DTSBR321
00878      WRITE XEROX-REPORT2 FROM VSC2-ADDR-LINE-17                   DTSBR321
00879              AFTER ADVANCING 1 LINE.                              DTSBR321
00880      WRITE XEROX-REPORT2 FROM VSC2-ADDR-LINE-18                   DTSBR321
00881              AFTER ADVANCING 1 LINE.                              DTSBR321
00882      WRITE XEROX-REPORT2 FROM VSC2-ADDR-LINE-19                   DTSBR321
00883              AFTER ADVANCING 1 LINE.                              DTSBR321
00884      WRITE XEROX-REPORT2 FROM VSC2-ADDR-LINE-20                   DTSBR321
00885              AFTER ADVANCING 1 LINE.                              DTSBR321
00886      WRITE XEROX-REPORT2 FROM VSC2-ADDR-LINE-21                   DTSBR321
00887              AFTER ADVANCING 1 LINE.                              DTSBR321
00888                                                                   DTSBR321
00889  P9900-EXIT.                                                      DTSBR321
00890      EXIT.                                                        DTSBR321
00891                                                                   DTSBR321
00892  T1000-TERMINATE.                                                 DTSBR321
00893        DISPLAY ' TOTAL NO OF penalty assessed    ' TOT-PEN-CNT.   DTSBR321
00894        DISPLAY ' '                                                DTSBR321
00895        DISPLAY ' NUMBER OF FILERS TAX TOLERATED ' TOL-CNT.        DTSBR321
00896        DISPLAY ' '                                                DTSBR321
00897        DISPLAY ' NUMBER OF FILERS CREDIT APPLID ' CREDIT-CNT.     DTSBR321
00898        DISPLAY ' '                                                DTSBR321
00899        DISPLAY ' NUMBER OF FILERS bal due = 0   ' credit-cnt.     DTSBR321
00900        DISPLAY ' '                                                DTSBR321
00901                                                                   DTSBR321
00902        DISPLAY ' TOTAL NO OF MISSING REPORTS     ' TOT-MIS-CNT.   DTSBR321
00903        DISPLAY ' '                                                DTSBR321
00904      SKIP1                                                        DTSBR321
00905      CLOSE PRT-FILE                                               DTSBR321
00906            PRT-FILE2                                                 CL*16
00907            PRT-FILE3                                                 CL*16
00908            PRT-FILE4.                                                CL*16
00909      SKIP2                                                        DTSBR321
00910  T1000-EXIT.                                                      DTSBR321
00911      EXIT.                                                        DTSBR321
00912      EJECT                                                        DTSBR321
00913  S001-FROM-FED-8.                                                 DTSBR321
00914      SET L001-FROM-FED-8 TO TRUE.                                 DTSBR321
00915      GO TO S001-DATE.                                             DTSBR321
00916                                                                   DTSBR321
00917  S001-DATE.                                                       DTSBR321
00918      SKIP1                                                        DTSBR321
00919      CALL 'DTSBU001' USING L001-LINK-AREA.                        DTSBR321
00920      SKIP2                                                        DTSBR321
00921  S001-EXIT.                                                       DTSBR321
00922      EXIT.                                                        DTSBR321
00923      SKIP3                                                        DTSBR321
00924  S002-UPPER-CASE.                                                 DTSBR321
00925      SET L002-UPPER-CASE TO TRUE.                                 DTSBR321
00926      GO TO S002-DATE-ALPHA.                                       DTSBR321
00927                                                                   DTSBR321
00928  S002-MIXED-CASE.                                                 DTSBR321
00929 *      display 's002-mixed '                                         CL**9
00930      SET L002-MIXED-CASE TO TRUE.                                 DTSBR321
00931      GO TO S002-DATE-ALPHA.                                       DTSBR321
00932                                                                   DTSBR321
00933  S002-DATE-ALPHA.                                                 DTSBR321
00934      SKIP1                                                        DTSBR321
00935 *    display 'l002-link-area '  l002-link-area                       CL**9
00936      CALL 'DTSBU002' USING L002-LINK-AREA.                        DTSBR321
00937      SKIP2                                                        DTSBR321
00938  S002-EXIT.                                                       DTSBR321
00939      EXIT.                                                        DTSBR321
00940      SKIP3                                                        DTSBR321
00941  S004-FROM-5.                                                     DTSBR321
00942      SET L004-FROM-5 TO TRUE.                                     DTSBR321
00943      GO TO S004-FROM-QTR.                                         DTSBR321
00944                                                                   DTSBR321
00945  S004-FROM-QTR.                                                   DTSBR321
00946      SKIP1                                                        DTSBR321
00947      CALL 'DTSBU004' USING L004-LINK-AREA.                        DTSBR321
00948      SKIP2                                                        DTSBR321
00949  S004-EXIT.                                                       DTSBR321
00950      EXIT.                                                        DTSBR321
00951      SKIP3                                                        DTSBR321
00952  S008-UPPER-CASE.                                                 DTSBR321
00953      SET L008-UPPER-CASE TO TRUE.                                 DTSBR321
00954      GO TO S008-QUARTER-ALPHA.                                    DTSBR321
00955                                                                   DTSBR321
00956  S008-MIXED-CASE.                                                 DTSBR321
00957 *     display 's008-mixed-case '                                     CL**9
00958      SET L008-MIXED-CASE TO TRUE.                                 DTSBR321
00959      GO TO S008-QUARTER-ALPHA.                                    DTSBR321
00960                                                                   DTSBR321
00961  S008-QUARTER-ALPHA.                                              DTSBR321
00962 *     display 'l008-link-area '   l008-link-area                     CL**9
00963      CALL 'DTSBU008' USING L008-LINK-AREA.                        DTSBR321
00964                                                                   DTSBR321
00965  S008-EXIT.                                                       DTSBR321
00966      EXIT.                                                        DTSBR321
00967      SKIP3                                                        DTSBR321
00968  S101-pER-MONTH-NO.                                               DTSBR321
00969      SET L101-PER-MONTH-NO-88 TO TRUE.                            DTSBR321
00970      GO TO S101-INT-COMP.                                         DTSBR321
00971  S101-INT-COMP.                                                   DTSBR321
00972      CALL 'DTSBU101' USING L101-LINK-AREA.                        DTSBR321
00973  S101-EXIT.                                                       DTSBR321
00974      EXIT.                                                        DTSBR321
00975      SKIP3                                                        DTSBR321
00976  S090-PARAGRAPH-FORMAT.                                           DTSBR321
00977      MOVE +0 TO L090-INDENT.                                      DTSBR321
00978      SET L090-SPECIAL-CHAR-STD-88 TO TRUE.                        DTSBR321
00979                                                                   DTSBR321
00980      CALL 'DTSBU090' USING L090-LINK-AREA.                        DTSBR321
00981  S090-EXIT.                                                       DTSBR321
00982      EXIT.                                                        DTSBR321
00983      SKIP3                                                        DTSBR321
00984  S119-REQ-CAPS.                                                   DTSBR321
00985      SET L119-REQ-CAPS-88 TO TRUE.                                DTSBR321
00986      GO TO S119-AGENCY-FACTS.                                     DTSBR321
00987  S119-REQ-MIXED.                                                  DTSBR321
00988      SET L119-REQ-MIXED-88 TO TRUE.                               DTSBR321
00989      GO TO S119-AGENCY-FACTS.                                     DTSBR321
00990                                                                   DTSBR321
00991  S119-AGENCY-FACTS.                                               DTSBR321
00992      CALL 'DTSBU119' USING L119-LINK-AREA.                        DTSBR321
00993  S119-EXIT.                                                       DTSBR321
00994      EXIT.                                                        DTSBR321
00995      SKIP3                                                        DTSBR321
00996                                                                   DTSBR321
00997  S599-BARCODE.                                                    DTSBR321
00998 *      display 's599-barcode '                                       CL**9
00999      MOVE CONVERT-BARCODE-LINE           TO L599-INPUT-DATA.      DTSBR321
01000      MOVE LENGTH OF CONVERT-BARCODE-LINE TO L599-REC-LENGTH.      DTSBR321
01001      MOVE 'TAX'                          TO L599-SYSTEM.          DTSBR321
01002                                                                   DTSBR321
01003      CALL 'DTSBU599' USING BARI-LINK-AREA.                        DTSBR321
01004 *       display 'bari-link-area '   bari-link-area                   CL**9
01005      IF L599-NOT-CONVERTED                                        DTSBR321
01006       PERFORM S999-ABEND  THRU S999-EXIT.                         DTSBR321
01007 *    display 's599-exit '                                            CL**9
01008 *    .                                                               CL**9
01009  S599-EXIT.                                                       DTSBR321
01010      EXIT.                                                        DTSBR321
01011      SKIP3                                                        DTSBR321
01012  S910-OPEN-READ.                                                  DTSBR321
01013       SET L910-OPEN-READ-88 TO TRUE.                              DTSBR321
01014       GO TO S910-MSTR-IO.                                         DTSBR321
01015                                                                   DTSBR321
01016  S910-READ.                                                       DTSBR321
01017       SET L910-READ-88 TO TRUE.                                   DTSBR321
01018       GO TO S910-MSTR-IO.                                         DTSBR321
01019                                                                   DTSBR321
01020  S910-CLOSE.                                                      DTSBR321
01021       SET L910-CLOSE-88 TO TRUE.                                  DTSBR321
01022       GO TO S910-MSTR-IO.                                         DTSBR321
01023                                                                   DTSBR321
01024  S910-MSTR-IO.                                                    DTSBR321
01025       CALL 'DTSBU910' USING L910-LINK-AREA                        DTSBR321
01026                             MSKL-REC.                             DTSBR321
01027                                                                   DTSBR321
01028  S910-EXIT.                                                       DTSBR321
01029       EXIT.                                                       DTSBR321
01030      SKIP2                                                        DTSBR321
01031  S999-ABEND.                                                      DTSBR321
01032       DISPLAY '****  dtsBR321 ABENDING '                          DTSBR321
01033                                                                   DTSBR321
01034       CALL 'DTSBU999' USING WRK-ABEND-CODE.                       DTSBR321
01035                                                                   DTSBR321
01036  S999-EXIT.                                                       DTSBR321
01037      EXIT.                                                        DTSBR321
01038                                                                   DTSBR321
