00001  IDENTIFICATION DIVISION.                                         02/10/21
00002  PROGRAM-ID.             DTSBR320.                                DTSBR320
00003  AUTHOR.                 TRW S&ITG.                                  LV033
00004  DATE-WRITTEN.           MARCH 1999                               DTSBR320
00005  DATE-COMPILED.                                                   DTSBR320
00006      SKIP3                                                        DTSBR320
00007 *****                                                             DTSBR320
00008 *    CALLING SEQUENCE:                                            DTSBR320
00009 *                                                                 DTSBR320
00010 *                       DTSBR320 READS DTSIR320 RECORDS.          DTSBR320
00011 *                                                                 DTSBR320
00012 *    FUNCTION:  penalty assessment/ missing report notices        DTSBR320
00013 *                                                                 DTSBR320
00014 *                                                                 DTSBR320
00015 *    MODIFICATION HISTORY:                                        DTSBR320
00016 *                                                                 DTSBR320
00017 * 07-16-13 new program. print penalty assessment letter           DTSBR320
00018 *          for rated and self insured filers                      DTSBR320
00019 *          REFERENCE XXXXXXXXX                   PROGRAMMER: zl1  DTSBR320
00020 *                                                                 DTSBR320
00021 *                                                                 DTSBR320
00022 * 12-22-13 modified program to print missing report letter for    DTSBR320
00023 *          all employers who have not filed their quarterly       DTSBR320
00024 *          report also a penalty is charged.                      DTSBR320
00025 *          REFERENCE XXXXXXXXX                   PROGRAMMER: zl1  DTSBR320
00026 *                                                                 DTSBR320
00027 *                                                                 DTSBR320
00028 * 07-22-14 modified program to print missing report and penalty   DTSBR320
00029 *          report listings for trms                               DTSBR320
00030 *          REFERENCE XXXXXXXXX                   PROGRAMMER: zl1  DTSBR320
00031 *                                                                 DTSBR320
00032 *                                                                 DTSBR320
00033 * 05-23-15 modified program to notify employer credit was applied DTSBR320
00034 *          to pay late penalty                                    DTSBR320
00035 *          REFERENCE XXXXXXXXX                   PROGRAMMER: zl1  DTSBR320
00036 *                                                                 DTSBR320
00037 * XX-XX-XX XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  DTSBR320
00038 *          XXXXXXXXXXXX.                                          DTSBR320
00039 *          REFERENCE XXXXXXXXX                   PROGRAMMER: XXX  DTSBR320
00040 *                                                                 DTSBR320
00041 *    DESCRIPTION:                                                 DTSBR320
00042 *                                                                 DTSBR320
00043 *        THIS MODULE PRINTS penalty charge and missing report     DTSBR320
00044 *        notices.                                                 DTSBR320
00045 *                                                                 DTSBR320
00046 *                                                                 DTSBR320
00047 *    RECORDS READ:                                                DTSBR320
00048 *                                                                 DTSBR320
00049 *        NONE.                                                    DTSBR320
00050 *                                                                 DTSBR320
00051 *                                                                 DTSBR320
00052 *    PRINTED OUTPUTS:                                             DTSBR320
00053 *                                                                 DTSBR320
00054 *        320R1  penalty charge letter                             DTSBR320
00055 * 320r2  missing report letter                                    DTSBR320
00056 *                                                                 DTSBR320
00057 *    RECORDS WRITTEN:                                             DTSBR320
00058 *                                                                 DTSBR320
00059 *        NONE.                                                    DTSBR320
00060 *                                                                 DTSBR320
00061 *                                                                 DTSBR320
00062 *    MODULES CALLED:                                              DTSBR320
00063 *                                                                 DTSBR320
00064 *        DTSBU001 DATE EDIT/CONVERSION MODULE                     DTSBR320
00065 *        DTSBU002 DATE ALPHA CONVERSION MODULE.                   DTSBR320
00066 *                                                                 DTSBR320
00067 *****                                                             DTSBR320
00068      EJECT                                                        DTSBR320
00069  ENVIRONMENT DIVISION.                                            DTSBR320
00070      SKIP2                                                        DTSBR320
00071  CONFIGURATION SECTION.                                           DTSBR320
00072  SPECIAL-NAMES. C01 IS TOP-OF-PAGE.                               DTSBR320
00073      SKIP1                                                        DTSBR320
00074  INPUT-OUTPUT SECTION.                                            DTSBR320
00075      SKIP1                                                        DTSBR320
00076  FILE-CONTROL.                                                    DTSBR320
00077      SELECT PRT-FILE ASSIGN TO RPT320r3.                          DTSBR320
00078      SELECT PRT-FILE2 ASSIGN TO RPT320R4.                         DTSBR320
00079      SELECT pen-FILE ASSIGN TO RPT320R1.                          DTSBR320
00080      SELECT mis-FILE  ASSIGN TO RPT320R2.                         DTSBR320
00081                                                                   DTSBR320
00082      SELECT EMP-RPT-FILE   ASSIGN TO DTSBX212.                    DTSBR320
00083      SKIP3                                                        DTSBR320
00084  DATA DIVISION.                                                   DTSBR320
00085      SKIP3                                                        DTSBR320
00086  FILE SECTION.                                                    DTSBR320
00087      SKIP2                                                        DTSBR320
00088  FD  PRT-FILE                                                     DTSBR320
00089      RECORDING MODE IS F                                          DTSBR320
00090      BLOCK CONTAINS 0 RECORDS                                     DTSBR320
00091      LABEL RECORDS ARE OMITTED.                                   DTSBR320
00092  01  XEROX-REPORT.                                                DTSBR320
00093      05  FILLER                      PIC X(1).                    DTSBR320
00094      05  XEROX-RPT                   PIC X(132).                  DTSBR320
00095      EJECT                                                        DTSBR320
00096                                                                   DTSBR320
00097  FD  PRT-FILE2                                                    DTSBR320
00098      RECORDING MODE IS F                                          DTSBR320
00099      BLOCK CONTAINS 0 RECORDS                                     DTSBR320
00100      LABEL RECORDS ARE OMITTED.                                   DTSBR320
00101  01  XEROX-REPORT2.                                               DTSBR320
00102      05  FILLER                      PIC X(1).                    DTSBR320
00103      05  XEROX-RPT2                  PIC X(132).                  DTSBR320
00104      EJECT                                                        DTSBR320
00105                                                                   DTSBR320
00106  FD  pen-FILE                                                     DTSBR320
00107      RECORDING MODE IS F                                          DTSBR320
00108      BLOCK CONTAINS 0 RECORDS                                     DTSBR320
00109      LABEL RECORDS ARE OMITTED.                                   DTSBR320
00110  01  pen-REPORT.                                                  DTSBR320
00111      05  FILLER                      PIC X(1).                    DTSBR320
00112      05  pen-RPT                   PIC X(132).                    DTSBR320
00113      EJECT                                                        DTSBR320
00114                                                                   DTSBR320
00115                                                                   DTSBR320
00116  FD  mis-FILE                                                     DTSBR320
00117      RECORDING MODE IS F                                          DTSBR320
00118      BLOCK CONTAINS 0 RECORDS                                     DTSBR320
00119      LABEL RECORDS ARE OMITTED.                                   DTSBR320
00120  01  mis-REPORT.                                                  DTSBR320
00121      05  FILLER                      PIC X(1).                    DTSBR320
00122      05  mis-RPT                   PIC X(132).                    DTSBR320
00123      EJECT                                                        DTSBR320
00124                                                                   DTSBR320
00125                                                                   DTSBR320
00126  FD  EMP-RPT-FILE                                                 DTSBR320
00127      RECORDING MODE IS F                                          DTSBR320
00128      BLOCK CONTAINS 0 RECORDS                                     DTSBR320
00129      LABEL RECORDS ARE OMITTED.                                   DTSBR320
00130                                                                   DTSBR320
00131  01  EMP-RPT-REC                   PIC X(106).                    DTSBR320
00132                                                                   DTSBR320
00133                                                                   DTSBR320
00134                                                                   DTSBR320
00135  WORKING-STORAGE SECTION.                                         DTSBR320
001355 77  PAN-VALET PICTURE X(24) VALUE '033DTSBR320  02/10/21'.       DTSBR320
00136  77  PAN-VALET PICTURE X(24) VALUE '005DTSBR320  11/23/15'.       DTSBR320
00137  77  PAN-VALET PICTURE X(24) VALUE '047DTSBR320  11/13/15'.       DTSBR320
00138  77  PAN-VALET PICTURE X(24) VALUE '003DTSBR320  05/28/14'.       DTSBR320
00139  77  PAN-VALET PICTURE X(24) VALUE '031DTSBR320  05/16/14'.       DTSBR320
00140  77  PAN-VALET PICTURE X(24) VALUE '001DTSBR320  08/09/13'.       DTSBR320
00141  77  PAN-VALET PICTURE X(24) VALUE '017DTSBR320  08/05/13'.       DTSBR320
00142      SKIP3                                                        DTSBR320
00143  01  WRK-AREA.                                                    DTSBR320
00144      05  Ws-start-pos                PIC S9(04)  COMP.            DTSBR320
00145      05  WRK-ABEND-Code              PIC S9(04)  COMP  VALUE +320.DTSBR320
00146      05  WS-YRQ-UNPACK               PIC  9(5)   VALUE 0.         DTSBR320
00147      05  WS-pen-line-cnt             PIC  9(5)   VALUE 55.        DTSBR320
00148      05  WS-mis-line-cnt             PIC  9(5)   VALUE 55.        DTSBR320
00149      05  WS-pen-page-cnt             PIC  9(5)   VALUE 0.         DTSBR320
00150      05  WS-mis-page-cnt             PIC  9(5)   VALUE 0.         DTSBR320
00151      05  FIRST-TIME-IND              PIC  X(01)  VALUE 'Y'.       DTSBR320
00152      05  WS-REC                      PIC  X(132) VALUE SPACES.    DTSBR320
00153      05  WS-UC-SHORT-MONTHS.                                      DTSBR320
00154          10  WS-UC-SHORT-MONTH-1     PIC  X(03).                  DTSBR320
00155          10  WS-UC-SHORT-MONTH-2     PIC  X(03).                  DTSBR320
00156          10  WS-UC-SHORT-MONTH-3     PIC  X(03).                  DTSBR320
00157      05  WS-SHORT-YEAR               PIC  X(02).                  DTSBR320
00158                                                                   DTSBR320
00159      05  WS-LONG-YEAR                PIC  X(04).                  DTSBR320
00160      05  ABEND-MSG                   PIC  X(60).                  DTSBR320
00161                                                                   DTSBR320
00162      05  ws-credit-used              PIC  X(01).                  DTSBR320
00163          88 ws-credit-used-no-88          VALUE '0'.              DTSBR320
00164          88 ws-credit-used-yes-88         VALUE '1'.              DTSBR320
00165                                                                   DTSBR320
00166      SKIP3                                                        DTSBR320
00167  01  VSCA-LINE.                                                   DTSBR320
00168      05  VSCA-DATA                   PIC X(133) VALUE SPACES.     DTSBR320
00169  01  WS-TAX-DUE                      PIC  S9(09)V9(02) COMP-3     DTSBR320
00170                                        VALUE +0.                  DTSBR320
00171  01  TOT-pen-cnt                     PIC   9(05) VALUE 0.         DTSBR320
00172  01  TOT-mis-cnt                     PIC   9(05) VALUE 0.         DTSBR320
00173  01  ws-pen-rec-cnt                  PIC   9(05) VALUE 0.         DTSBR320
00174  01  ws-mis-rec-cnt                  PIC   9(05) VALUE 0.         DTSBR320
00175  01  TOL-CNT                         PIC   9(05) VALUE 0.         DTSBR320
00176  01  CREDIT-CNT                      PIC   9(05) VALUE 0.         DTSBR320
00177  01  WRK-MQTR-BAL                    PIC  S9(09)V9(02) COMP-3     DTSBR320
00178                                        VALUE +0.                  DTSBR320
00179  01  WRK-paid-amt                    PIC  S9(09)V9(02) COMP-3     DTSBR320
00180                                        VALUE +0.                  DTSBR320
00181  01  WRK-EMP-NO                      PIC  9(06) VALUE ZEROS.      DTSBR320
00182  01  WRK-AREAS.                                                   DTSBR320
00183      05  WRK-R320-YRQ                PIC S9(05)  COMP-3 VALUE +0. DTSBR320
00184      05  WRK-R320-YRQX REDEFINES WRK-R320-YRQ.                    DTSBR320
00185          10  WRK-R320-YR                 PIC 9(4).                DTSBR320
00186          10  WRK-R320-QTR                PIC 9(1).                DTSBR320
00187      SKIP1                                                        DTSBR320
00188  01  wrk-tables.                                                  DTSBR320
00189      05  TF-SUB                  PIC S9(07) COMP-3.               DTSBR320
00190      05  TF-MAX                  PIC S9(07) COMP-3                DTSBR320
00191                                   VALUE +999999.                  DTSBR320
00192      05  TRANS-FILE-RPTS  OCCURS 999999 TIMES.                    DTSBR320
00193          10  TRANS-FILE-RPT-IND  PIC  X(01).                      DTSBR320
00194              88  TF-RPT-FOUND-YES-88  VALUE 'Y'.                  DTSBR320
00195              88  TF-RPT-FOUND-NO-88   VALUE 'N'.                  DTSBR320
00196          10  TRANS-BYPASSED-IND  PIC  X(01).                      DTSBR320
00197              88  TF-BYPASSED-YES-88   VALUE 'Y'.                  DTSBR320
00198              88  TF-BYPASSED-NO-88    VALUE 'N'.                  DTSBR320
00199                                                                   DTSBR320
00200  01  L001-LINK-AREA.                                              DTSBR320
00201  ++INCLUDE DTSIL001                                               DTSBR320
00202      EJECT                                                        DTSBR320
00203  01  L002-LINK-AREA.                                              DTSBR320
00204  ++INCLUDE DTSIL002                                               DTSBR320
00205      EJECT                                                        DTSBR320
00206  01  L004-LINK-AREA.                                              DTSBR320
00207  ++INCLUDE DTSIL004                                               DTSBR320
00208      EJECT                                                        DTSBR320
00209  01  MIXED-CASE-LITERALS.                                         DTSBR320
00210  ++INCLUDE DTSIZ30D                                               DTSBR320
00211  01  L008-LINK-AREA.                                              DTSBR320
00212  ++INCLUDE DTSIL008                                               DTSBR320
00213      EJECT                                                        DTSBR320
00214  01  L056-LINK-AREA.                                              DTSBR320
00215  ++INCLUDE DTSIL056                                               DTSBR320
00216      EJECT                                                        DTSBR320
00217  01  L090-LINK-AREA.                                              DTSBR320
00218  ++INCLUDE DTSIL090                                               DTSBR320
00219      EJECT                                                        DTSBR320
00220  01  L119-LINK-AREA.                                              DTSBR320
00221  ++INCLUDE DTSIL119                                               DTSBR320
00222      EJECT                                                        DTSBR320
00223  ++INCLUDE DTSIZ30C                                               DTSBR320
00224      SKIP3                                                        DTSBR320
00225  ++INCLUDE DTSXL32A                                               DTSBR320
00226      SKIP3                                                        DTSBR320
00227  ++INCLUDE DTSXL320                                               DTSBR320
00228      SKIP3                                                        DTSBR320
00229  01  W-EMP-RPT-REC.                                               DTSBR320
00230  ++INCLUDE DTSIX212                                               DTSBR320
00231                                                                   DTSBR320
00232      EJECT                                                        DTSBR320
00233  01  LETTER-HEADING.                                              DTSBR320
00234      05  LTH-LINE-1.                                              DTSBR320
00235          10  FILLER                    PIC X(01) VALUE SPACE.     DTSBR320
00236          10  WS-FMT-LINE-1             PIC X(40).                 DTSBR320
00237          10  FILLER                    PIC X(27) VALUE SPACES.    DTSBR320
00238          10  WS-mail-date              PIC X(10).                 DTSBR320
00239      05  LTH-LINE-2.                                              DTSBR320
00240          10  FILLER                    PIC X(01) VALUE SPACE.     DTSBR320
00241          10  WS-FMT-LINE-2             PIC X(40).                 DTSBR320
00242      05  LTH-LINE-3.                                              DTSBR320
00243          10  FILLER                    PIC X(01) VALUE SPACE.     DTSBR320
00244          10  WS-FMT-LINE-3             PIC X(40).                 DTSBR320
00245          10  FILLER                    PIC X(27) VALUE SPACES.    DTSBR320
00246          10  WS-EMP-NO               PIC  999B999.                DTSBR320
00247      05  LTH-LINE-4.                                              DTSBR320
00248          10  FILLER                    PIC X(01) VALUE SPACE.     DTSBR320
00249          10  WS-FMT-LINE-4             PIC X(40).                 DTSBR320
00250      05  LTH-LINE-5.                                              DTSBR320
00251          10  FILLER                    PIC X(01) VALUE SPACE.     DTSBR320
00252          10  WS-FMT-LINE-5             PIC X(40).                 DTSBR320
00253          10  FILLER                    PIC X(27) VALUE SPACES.    DTSBR320
00254          10  WS-payment-DATE           PIC X(10).                 DTSBR320
00255      05  RPT-LINE-1.                                              DTSBR320
00256          10  FILLER                  PIC  X(04) VALUE SPACES.     DTSBR320
00257          10  WS-YRQ                  PIC  X(06).                  DTSBR320
00258          10  FILLER                  PIC  X(01) VALUE SPACE.      DTSBR320
00259          10  WS-RPA-TAX-DUE          PIC  zzZ,ZZZ,ZZ9.99.         DTSBR320
00260          10  FILLER                  PIC  X(01) VALUE SPACE.      DTSBR320
00261          10  WS-paid-amt             PIC  zzZ,ZZZ,ZZ9.99.         DTSBR320
00262          10  FILLER                  PIC  X(01) VALUE SPACES.     DTSBR320
00263          10  WS-PEN-CHARGED-AMT      PIC  Z,ZZZ,ZZ9.99.           DTSBR320
00264          10  FILLER                  PIC  X(01) VALUE SPACES.     DTSBR320
00265          10  WS-INT-CHARGED-AMT      PIC  Z,ZZZ,ZZ9.99.           DTSBR320
00266          10  FILLER                  PIC  X(03) VALUE SPACES.     DTSBR320
00267          10  WS-TOTAL-DUE            PIC  zzZ,ZZZ,ZZ9.99.         DTSBR320
00268      SKIP2                                                        DTSBR320
00269                                                                   DTSBR320
00270      05  pen-LINE-1.                                              DTSBR320
00271          10  FILLER                  PIC  X(04) VALUE SPACES.     DTSBR320
00272          10  pen-emp-no              PIC  999b999.                DTSBR320
00273          10  FILLER                  PIC  X(01) VALUE SPACES.        CL**3
00274          10  pen-emp-type            PIC  X(01) VALUE SPACES.        CL**3
00275          10  FILLER                  PIC  X(02) VALUE SPACES.        CL**3
00276          10  pen-emp-name            PIC  X(30).                  DTSBR320
00277          10  FILLER                  PIC  X(04) VALUE SPACES.     DTSBR320
00278          10  pen-YRQ                 PIC  X(06).                  DTSBR320
00279          10  FILLER                  PIC  X(01) VALUE SPACE.      DTSBR320
00280          10  pen-TAX-DUE             PIC  zzZ,ZZZ,ZZ9.99.         DTSBR320
00281          10  FILLER                  PIC  X(01) VALUE SPACE.      DTSBR320
00282          10  pen-paid-amt            PIC  zzZ,ZZZ,ZZ9.99.         DTSBR320
00283          10  FILLER                  PIC  X(01) VALUE SPACES.     DTSBR320
00284          10  pen-PEN-CHARGED-AMT     PIC  Z,ZZZ,ZZ9.99.           DTSBR320
00285          10  FILLER                  PIC  X(01) VALUE SPACES.     DTSBR320
00286          10  pen-INT-CHARGED-AMT     PIC  Z,ZZZ,ZZ9.99.           DTSBR320
00287          10  FILLER                  PIC  X(03) VALUE SPACES.     DTSBR320
00288          10  pen-TOTAL-DUE           PIC  zzZ,ZZZ,ZZ9.99.         DTSBR320
00289      05  mis-LINE-1.                                              DTSBR320
00290          10  FILLER                  PIC  X(04) VALUE SPACES.     DTSBR320
00291          10  mis-emp-no              PIC  999b999.                DTSBR320
00292          10  FILLER                  PIC  X(01) VALUE SPACES.        CL**3
00293          10  mis-emp-type            PIC  X(01) VALUE SPACES.        CL**3
00294          10  FILLER                  PIC  X(02) VALUE SPACES.        CL**3
00295          10  mis-emp-name            PIC  X(36).                  DTSBR320
00296          10  FILLER                  PIC  X(04) VALUE SPACES.     DTSBR320
00297          10  mis-rpt-DUE             PIC  x(10) value spaces.     DTSBR320
00298          10  FILLER                  PIC  X(01) VALUE SPACE.      DTSBR320
00299          10  mis-PEN-CHg-amt         PIC  Z,ZZZ,ZZ9.99.           DTSBR320
00300      EJECT                                                        DTSBR320
00301  01  PAGE-HEADING.                                                DTSBR320
00302      05  HDR1-LINE-1.                                             DTSBR320
00303          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR320
00304          10  FILLER                  PIC  X(49)                   DTSBR320
00305                 VALUE '320R1'.                                    DTSBR320
00306          10  filler                  PIC  X(60)                   DTSBR320
00307                 VALUE 'DISTRICT OF COLUMBIA'.                     DTSBR320
00308          10  FILLER                  PIC  X(05)                   DTSBR320
00309                 VALUE 'DATE:'.                                    DTSBR320
00310          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR320
00311          10  HDR1-SYS-DATE           PIC  X(08).                  DTSBR320
00312      05  HDR1-LINE-2.                                             DTSBR320
00313          10  FILLER                   PIC X(54) VALUE SPACES.     DTSBR320
00314          10  FILLER                   PIC X(56) VALUE             DTSBR320
00315           'TAX DIVISION'.                                         DTSBR320
00316          10  FILLER                  PIC  X(05)                   DTSBR320
00317                 VALUE 'TIME:'.                                    DTSBR320
00318          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR320
00319          10  HDR1-SYS-TIME           PIC  X(08).                  DTSBR320
00320      05  HDR1-LINE-3.                                             DTSBR320
00321          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR320
00322          10  FILLER                  PIC  X(27)                   DTSBR320
00323                 VALUE 'ROUTE TO:  ENFORCEMENT UNIT'.              DTSBR320
00324          10  FILLER                  PIC  X(90)  VALUE SPACES.    DTSBR320
00325          10  FILLER                  PIC  X(05)                   DTSBR320
00326                 VALUE 'PAGE:'.                                    DTSBR320
00327          10  FILLER                  PIC  X(03)  VALUE SPACES.    DTSBR320
00328          10  HDR1-PAGE-CNT           PIC  ZZ,ZZ9.                 DTSBR320
00329      05  HDR1-LINE-4p.                                            DTSBR320
00330          10  FILLER                  PIC  X(47)  VALUE SPACES.    DTSBR320
00331          10  FILLER                  PIC  X(43)                   DTSBR320
00332                 VALUE 'penalty assessment report     '.           DTSBR320
00333      05  HDR1-LINE-4m.                                            DTSBR320
00334          10  FILLER                  PIC  X(44)  VALUE SPACES.    DTSBR320
00335          10  FILLER                  PIC  X(43)                   DTSBR320
00336                 VALUE '     missing reports listing  '.           DTSBR320
00337 *    05  HDR1-LINE-5                 PIC  X(133) VALUE SPACES.    DTSBR320
00338      05  HDR1-LINE-6.                                             DTSBR320
00339          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR320
00340          10  FILLER                  PIC  X(12)                   DTSBR320
00341                 VALUE 'SUBJECT YRQ:'.                             DTSBR320
00342          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR320
00343          10  WRK-SUBJECT-SLASH-QTR   PIC  X(06).                  DTSBR320
00344      05  HDR1-LINE-7                 PIC  X(133) VALUE SPACES.    DTSBR320
00345 *    05  HDR1-LINE-8.                                             DTSBR320
00346 *        10  FILLER                  PIC  X(09)  VALUE SPACES.    DTSBR320
00347 *        10  FILLER                  PIC  X(08)                   DTSBR320
00348 *               VALUE 'SUBJ YRQ'.                                 DTSBR320
00349 *        10  FILLER                  PIC  X(48)  VALUE SPACES.    DTSBR320
00350 *        10  FILLER                  PIC  X(07)                   DTSBR320
00351 *               VALUE 'SENT TO'.                                  DTSBR320
00352      05  HDR1-LINE-9m.                                            DTSBR320
00353          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR320
00354          10  FILLER                  PIC  X(06)                   DTSBR320
00355                 VALUE 'EMP NO'.                                   DTSBR320
00356          10  FILLER                  PIC  X(06)  VALUE SPACE.     DTSBR320
00357          10  FILLER                  PIC  X(07)                   DTSBR320
00358                 VALUE 'name   '.                                  DTSBR320
00359          10  FILLER                  PIC  X(36)  VALUE SPACE.     DTSBR320
00360          10  FILLER                  PIC  X(10)                   DTSBR320
00361                 VALUE 'due date'.                                 DTSBR320
00362          10  FILLER                  PIC  X(15)                   DTSBR320
00363                 VALUE 'penalty amt'.                              DTSBR320
00364                                                                   DTSBR320
00365      05  HDR1-LINE-9p.                                            DTSBR320
00366          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR320
00367          10  FILLER                  PIC  X(06)                   DTSBR320
00368                 VALUE 'EMP NO'.                                   DTSBR320
00369          10  FILLER                  PIC  X(06)  VALUE SPACE.     DTSBR320
00370          10  FILLER                  PIC  X(07)                   DTSBR320
00371                 VALUE 'name   '.                                  DTSBR320
00372          10  FILLER                  PIC  X(42)  VALUE SPACE.     DTSBR320
00373          10  FILLER                  PIC  X(08)                   DTSBR320
00374                 VALUE 'tax due'.                                  DTSBR320
00375          10  FILLER                  PIC  X(06)  VALUE SPACE.     DTSBR320
00376          10  FILLER                  PIC  X(14)                   DTSBR320
00377                 VALUE 'tax paid   '.                              DTSBR320
00378          10  FILLER                  PIC  X(15)                   DTSBR320
00379                 VALUE 'penalty '.                                 DTSBR320
00380          10  FILLER                  PIC  X(12)                   DTSBR320
00381                 VALUE 'interest   '.                              DTSBR320
00382          10  FILLER                  PIC  X(12)                   DTSBR320
00383                 VALUE 'total due  '.                              DTSBR320
00384  01  missing-FOOTING-FINAL.                                       DTSBR320
00385      05  mis-LINE-3.                                              DTSBR320
00386          10  FILLER                  PIC  X(15)   VALUE SPACES.   DTSBR320
00387          10  mis-REC-CNT             PIC  ZZ,ZZ9.                 DTSBR320
00388          10  FILLER                  PIC  X(01)   VALUE SPACE.    DTSBR320
00389          10  FILLER                  PIC  X(40)                   DTSBR320
00390                 VALUE 'EMPLOYERS WITH MISSING reports          '. DTSBR320
00391  01  penalty-FOOTING-FINAL.                                       DTSBR320
00392      05  pen-LINE-3.                                              DTSBR320
00393          10  FILLER                  PIC  X(15)   VALUE SPACES.   DTSBR320
00394          10  pen-REC-CNT             PIC  ZZ,ZZ9.                 DTSBR320
00395          10  FILLER                  PIC  X(01)   VALUE SPACE.    DTSBR320
00396          10  FILLER                  PIC  X(40)                   DTSBR320
00397                 VALUE 'EMPLOYERS received penalty for non/full '. DTSBR320
00398          10  FILLER                  PIC  X(11)                   DTSBR320
00399                 VALUE 'payment    '.                              DTSBR320
00400      EJECT                                                        DTSBR320
00401      05  cred-LINE.                                               DTSBR320
00402          10  FILLER                  PIC  X(10)   VALUE SPACES.   DTSBR320
00403          10  FILLER                  PIC  X(01)   VALUE SPACE.    DTSBR320
00404          10  FILLER                  PIC  X(39)                   DTSBR320
00405                 VALUE '**** Your available credit was applied '.  DTSBR320
00406          10  FILLER                  PIC  X(39)                   DTSBR320
00407                 VALUE 'to the TOTAL AMOUNT DUE   ****         '.  DTSBR320
00408      EJECT                                                        DTSBR320
00409  01  L101-LINK-AREA.                                              DTSBR320
00410  ++INCLUDE DTSIL101                                               DTSBR320
00411  01  MQTR-REC.                                                    DTSBR320
00412  ++INCLUDE DTSIMQTR                                               DTSBR320
00413      EJECT                                                        DTSBR320
00414 *RW1                                                              DTSBR320
00415                                                                   DTSBR320
00416  01  L910-LINK-AREA.                                              DTSBR320
00417  ++INCLUDE DTSIL910                                               DTSBR320
00418                                                                   DTSBR320
00419  01  MSKL-REC.                                                    DTSBR320
00420  ++INCLUDE DTSIMSKL                                               DTSBR320
00421                                                                   DTSBR320
00422  01  CONVERT-BARCODE-LINE.                                        DTSBR320
00423      05  BARC-EMP-NO             PIC  9(06)  VALUE ZEROS.         DTSBR320
00424                                                                   DTSBR320
00425  01  WS-BARC-LINE.                                                DTSBR320
00426      05  FILLER                  PIC  X(40)  VALUE SPACES.        DTSBR320
00427      05  CONVERTED-BARCODE       PIC  X(50).                      DTSBR320
00428      05  FILLER                  PIC  X(30)  VALUE SPACES.        DTSBR320
00429                                                                   DTSBR320
00430  01  BARI-LINK-AREA.                                              DTSBR320
00431  ++INCLUDE BARIL599                                               DTSBR320
00432      SKIP3                                                        DTSBR320
00433 *RW2                                                              DTSBR320
00434  LINKAGE SECTION.                                                 DTSBR320
00435      SKIP3                                                        DTSBR320
00436  01  LRCM-LINK-AREA.                                              DTSBR320
00437  ++INCLUDE DTSILRCM                                               DTSBR320
00438  01  R320-REC.                                                    DTSBR320
00439  ++INCLUDE DTSIR320                                               DTSBR320
00440  PROCEDURE DIVISION USING LRCM-LINK-AREA                          DTSBR320
00441                           R320-REC.                               DTSBR320
00442      SKIP2                                                        DTSBR320
00443      IF FIRST-TIME-IND = 'Y'                                      DTSBR320
00444          PERFORM I1000-INITIATE THRU I1000-EXIT                   DTSBR320
00445          MOVE 'N' TO FIRST-TIME-IND.                              DTSBR320
00446      SKIP1                                                        DTSBR320
00447      IF LRCM-EOR-88                                               DTSBR320
00448          PERFORM T1000-TERMINATE THRU T1000-EXIT                  DTSBR320
00449      ELSE                                                         DTSBR320
00450          PERFORM P1000-PROCESS THRU P1000-EXIT.                   DTSBR320
00451      SKIP2                                                        DTSBR320
00452      GOBACK.                                                      DTSBR320
00453      EJECT                                                        DTSBR320
00454  I1000-INITIATE.                                                  DTSBR320
00455                                                                   DTSBR320
00456      OPEN OUTPUT PRT-FILE prt-file2                               DTSBR320
00457                  pen-FILE mis-file.                               DTSBR320
00458                                                                   DTSBR320
00459      OPEN INPUT  EMP-RPT-FILE.                                    DTSBR320
00460                                                                   DTSBR320
00461      perform I4000-TRANS-ICESA thru i4000-exit.                   DTSBR320
00462                                                                   DTSBR320
00463      MOVE SPACES TO XEROX-REPORT xerox-report2.                   DTSBR320
00464                                                                   DTSBR320
00465      WRITE XEROX-REPORT     FROM VSCA-LINE                        DTSBR320
00466          AFTER ADVANCING TOP-OF-PAGE.                             DTSBR320
00467      WRITE XEROX-REPORT     FROM VSCA-LINE AFTER ADVANCING 11.    DTSBR320
00468      WRITE XEROX-REPORT     FROM ROUTE-INFO-LINE13                DTSBR320
00469      WRITE XEROX-REPORT     FROM ROUTE-INFO-LINE14.               DTSBR320
00470      WRITE XEROX-REPORT     FROM ROUTE-INFO-LINE15.               DTSBR320
00471      WRITE XEROX-REPORT     FROM ROUTE-INFO-LINE16.               DTSBR320
00472      WRITE XEROX-REPORT     FROM ROUTE-INFO-LINE17.               DTSBR320
00473 *    WRITE XEROX-REPORT     FROM XEROX-CNTL-LINE18                DTSBR320
00474 *    WRITE XEROX-REPORT     FROM XEROX-CNTL-LINE19.               DTSBR320
00475 *    WRITE XEROX-REPORT     FROM XEROX-CNTL-LINE20.               DTSBR320
00476                                                                   DTSBR320
00477      WRITE XEROX-REPORT2    FROM VSCA-LINE                        DTSBR320
00478          AFTER ADVANCING TOP-OF-PAGE.                             DTSBR320
00479      WRITE XEROX-REPORT2    FROM VSCA-LINE AFTER ADVANCING 11.    DTSBR320
00480      WRITE XEROX-REPORT2    FROM ROUTE-INFO-LINE13                DTSBR320
00481      WRITE XEROX-REPORT2    FROM ROUTE-INFO-LINE14.               DTSBR320
00482      WRITE XEROX-REPORT2    FROM ROUTE-INFO-LINE15.               DTSBR320
00483      WRITE XEROX-REPORT2    FROM ROUTE-INFO-LINE16.               DTSBR320
00484 *    WRITE XEROX-REPORT     FROM ROUTE-INFO-LINE17.               DTSBR320
00485                                                                   DTSBR320
00486        MOVE LOW-VALUES             TO MQTR-KEY-AREA.                 CL*17
00487        SET MQTR-QTR-88             TO TRUE.                          CL*17
00488        MOVE MQTR-KEY-AREA          TO MSKL-KEY-AREA.                 CL*17
00489 *    PERFORM S910-OPEN THRU S910-EXIT.                               CL*18
00490                                                                   DTSBR320
00491      SKIP2                                                        DTSBR320
00492  I1000-EXIT.                                                      DTSBR320
00493      EXIT.                                                        DTSBR320
00494      EJECT                                                        DTSBR320
00495  I4000-TRANS-ICESA.                                               DTSBR320
00496        READ EMP-RPT-FILE INTO W-EMP-RPT-REC AT END                DTSBR320
00497        GO TO I4000-EXIT.                                          DTSBR320
00498        MOVE X212-EMP-NBR TO WRK-EMP-NO                            DTSBR320
00499 *      MOVE X212-QTR    TO WRK-ICESA-YRQ                          DTSBR320
00500 *      MOVE '2014/4'      TO WRK-ICESA-YRQ                        DTSBR320
00501 *      MOVE WRK-ICESA-CCYY TO WRK-RPT-CCYY                        DTSBR320
00502 *      MOVE WRK-ICESA-QTR  TO WRK-RPT-QTR                         DTSBR320
00503                                                                   DTSBR320
00504 *      MOVE WRK-RPT-WS TO WRK-RPT-YRQ.                            DTSBR320
00505                                                                   DTSBR320
00506 *      IF WRK-RPT-YRQ = WRK-PARM-SUBJECT-YRQ                      DTSBR320
00507           SET TF-RPT-FOUND-YES-88 (WRK-EMP-NO) TO TRUE.           DTSBR320
00508 *         ADD +1 TO WRK-TF-TABLE-CNT                              DTSBR320
00509           DISPLAY 'emp-loaded in table: ' WRK-EMP-NO.             DTSBR320
00510                                                                   DTSBR320
00511        GO TO I4000-TRANS-ICESA.                                   DTSBR320
00512  I4000-EXIT.                                                      DTSBR320
00513      EXIT.                                                        DTSBR320
00514  P1000-PROCESS.                                                   DTSBR320
00515           DISPLAY 'r320 emp : ' r320-EMP-NO.                      DTSBR320
00516          MOVE r320-EMP-NO TO WRK-EMP-NO                           DTSBR320
00517          IF TF-RPT-FOUND-YES-88 (WRK-EMP-NO)                      DTSBR320
00518             SET TF-BYPASSED-YES-88 (WRK-EMP-NO) TO TRUE           DTSBR320
00519             DISPLAY 'TBL EMP BYPASSED: ' wrk-EMP-NO               DTSBR320
00520 *           ADD +1 TO WRK-BYPASS-CNT                              DTSBR320
00521             GO TO P1000-EXIT.                                     DTSBR320
00522                                                                   DTSBR320
00523       if  R320-GENERATE-MISS-RPT-LTR-88                           DTSBR320
00524           perform p8000-generate-missing-letter thru p8000-exit   DTSBR320
00525           go to p1000-exit.                                       DTSBR320
00526                                                                   DTSBR320
00527 *     if  R320-si-filing-88                                       DTSBR320
00528 *         display ' si skipped ' r320-emp-no                      DTSBR320
00529 *         go to p1000-exit.                                       DTSBR320
00530                                                                   DTSBR320
00531       set ws-credit-used-no-88 to true.                           DTSBR320
00532       MOVE ZERO           TO WRK-MQTR-BAL                         DTSBR320
00533                              ws-paid-amt                          DTSBR320
00534                              wrk-paid-amt                         DTSBR320
00535                              WS-TAX-DUE.                          DTSBR320
00536       ADD 1               TO TOT-PEN-CNT.                         DTSBR320
00537                                                                   DTSBR320
00538       MOVE R320-EMP-NO    TO ws-emp-no.                           DTSBR320
00539                                                                   DTSBR320
00540       MOVE R320-YRQ       TO L004-QTR-5-9.                        DTSBR320
00541                                                                   DTSBR320
00542       SET L004-FROM-5 TO TRUE.                                    DTSBR320
00543       PERFORM S004-FROM-QTR THRU S004-EXIT.                       DTSBR320
00544       move l004-slash-5-qtr  to ws-yrq.                           DTSBR320
00545                                                                   DTSBR320
00546 *     DISPLAY ' YRQ '  L004-QTR-5-9.                              DTSBR320
00547       PERFORM P1100-CHECK-BALANCE-DUE THRU P1100-EXIT.            DTSBR320
00548                                                                   DTSBR320
00549       MOVE R320-MAIL-DATE TO L001-FED-8-DATE-9.                      CL*30
00550 *     MOVE 20190820       TO L001-FED-8-DATE-9.                      CL*30
00551       SET L001-FROM-FED-8 TO TRUE.                                DTSBR320
00552       PERFORM S001-DATE THRU S001-EXIT.                           DTSBR320
00553       MOVE L001-SLASH-8-DATE TO WS-mail-DATE.                     DTSBR320
00554                                                                   DTSBR320
00555       MOVE R320-tax-due-DATE TO L001-FED-8-DATE-9.                DTSBR320
00556       SET L001-FROM-FED-8 TO TRUE.                                DTSBR320
00557       PERFORM S001-DATE THRU S001-EXIT.                           DTSBR320
00558       MOVE L001-SLASH-8-DATE TO WS-payment-DATE.                  DTSBR320
00559                                                                   DTSBR320
00560 *     ADD  R320-SUR-TAX-CHARGED-AMT TO WS-TAX-DUE                 DTSBR320
00561       move R320-UI-TAX-CHARGED-AMT TO WS-TAX-DUE.                 DTSBR320
00562                                                                   DTSBR320
00563 *     IF R320-UI-TAX-CHARGED-AMT < 15.00                          DTSBR320
00564 *     DISPLAY 'tolr ' MQTR-EMP-NO ' ' MQTR-YRQ ' ' WS-RPA-TAX-DUE DTSBR320
00565 *             ' ' WS-PAID-AMT ' ' WS-PEN-CHARGED-AMT              DTSBR320
00566 *             ' ' WS-INT-CHARGED-AMT ' ' WS-TOTAL-DUE             DTSBR320
00567 *        ADD 1 TO TOL-CNT.                                        DTSBR320
00568                                                                   DTSBR320
00569                                                                   DTSBR320
00570       IF WRK-MQTR-BAL = 0                                         DTSBR320
00571         set ws-credit-used-yes-88 to true                         DTSBR320
00572         display 'credit applied balance due = 0 ' mqtr-emp-no     DTSBR320
00573         ADD 1 TO CREDIT-CNT.                                      DTSBR320
00574                                                                   DTSBR320
00575 *     if wrk-paid-amt < r320-ui-tax-charged-amt                   DTSBR320
00576 *        next sentence                                            DTSBR320
00577 *     else                                                        DTSBR320
00578 *     DISPLAY 'npen ' MQTR-EMP-NO ' ' MQTR-YRQ ' ' WS-RPA-TAX-DUE DTSBR320
00579 *             ' ' WS-PAID-AMT ' ' WS-PEN-CHARGED-AMT              DTSBR320
00580 *             ' ' WS-INT-CHARGED-AMT ' ' WS-TOTAL-DUE             DTSBR320
00581 *     go to P1000-EXIT.                                           DTSBR320
00582                                                                   DTSBR320
00583       if mqtr-emp-no = 011425                                        CL**9
00584          display 'paid ' wrk-paid-amt.                               CL**9
00585                                                                      CL**9
00586       MOVE WS-TAX-DUE           TO WS-RPA-TAX-DUE.                DTSBR320
00587       move wrk-paid-amt         to ws-paid-amt.                   DTSBR320
00588       MOVE R320-PEN-CHARGED-AMT TO WS-PEN-CHARGED-AMT.            DTSBR320
00589       MOVE R320-INT-CHARGED-AMT TO WS-INT-CHARGED-AMT.            DTSBR320
00590       add  R320-INT-CHARGED-AMT TO WS-TAX-DUE                     DTSBR320
00591       add  R320-pen-CHARGED-AMT TO WS-TAX-DUE                     DTSBR320
00592       subtract wrk-paid-amt from ws-tax-due.                      DTSBR320
00593       MOVE WS-TAX-DUE           TO WS-TOTAL-DUE.                  DTSBR320
00594       IF WRK-MQTR-BAL = 0                                         DTSBR320
00595       MOVE 0.00                 TO WS-TOTAL-DUE.                  DTSBR320
00596       PERFORM P2000-PRINT-HEADER THRU P2000-EXIT.                 DTSBR320
00597       PERFORM P4000-PRINT-DATA THRU P4000-EXIT.                   DTSBR320
00598       PERFORM P6000-SELF-MAILER-RTN THRU P6000-EXIT.              DTSBR320
00599       DISPLAY 'pen ' MQTR-EMP-NO ' ' MQTR-YRQ ' ' WS-RPA-TAX-DUE  DTSBR320
00600               ' ' WS-PAID-AMT ' ' WS-PEN-CHARGED-AMT              DTSBR320
00601               ' ' WS-INT-CHARGED-AMT ' ' WS-TOTAL-DUE.            DTSBR320
00602       perform P9200-PRINT-pen-rpt thru p9200-exit.                DTSBR320
00603       SKIP1                                                       DTSBR320
00604  P1000-EXIT.                                                      DTSBR320
00605      EXIT.                                                        DTSBR320
00606                                                                   DTSBR320
00607  P1100-CHECK-BALANCE-DUE.                                         DTSBR320
00608                                                                   DTSBR320
00609        MOVE LOW-VALUES             TO MQTR-KEY-AREA.              DTSBR320
00610        MOVE R320-EMP-NO            TO MQTR-EMP-NO.                DTSBR320
00611        SET MQTR-QTR-88             TO TRUE.                       DTSBR320
00612        MOVE L004-QTR-5-9           TO MQTR-YRQ.                   DTSBR320
00613        MOVE MQTR-KEY-AREA          TO MSKL-KEY-AREA.              DTSBR320
00614        PERFORM S910-read      THRU S910-EXIT.                        CL*17
00615                                                                   DTSBR320
00616        IF L910-OK-88                                              DTSBR320
00617         MOVE MSKL-REC            TO MQTR-REC                      DTSBR320
00618 *      MOVE 4 TO mqtr-acct-cnt                                    DTSBR320
00619         PERFORM                                                   DTSBR320
00620          VARYING MQTR-ACCT-IDX FROM +1 BY +1                      DTSBR320
00621          UNTIL MQTR-ACCT-IDX > MQTR-ACCT-CNT                      DTSBR320
00622            IF MQTR-ACCT-UI-88 (MQTR-ACCT-IDX)                     DTSBR320
00623               ADD  MQTR-BALANCE-AMT (MQTR-ACCT-IDX)               DTSBR320
00624                    TO WRK-MQTR-BAL                                DTSBR320
00625 *             display 'ui amt '  MQTR-BALANCE-AMT (MQTR-ACCT-IDX) DTSBR320
00626               ADD  MQTR-paid-AMT (MQTR-ACCT-IDX)                  DTSBR320
00627                    TO WRK-paid-amt                                DTSBR320
00628 *             display 'ui paid ' MQTR-paid-AMT (MQTR-ACCT-IDX)    DTSBR320
00629            END-IF                                                 DTSBR320
00630                                                                   DTSBR320
00631         if mqtr-emp-no = 011425                                      CL*16
00632            display    'ui pd amt '  wrk-paid-AMT                     CL*19
00633         END-IF                                                       CL*16
00634                                                                      CL*16
00635              IF MQTR-ACCT-SUR-88 (MQTR-ACCT-IDX)                  DTSBR320
00636               if r320-rated-filing-88                                CL*21
00637                 ADD  MQTR-BALANCE-AMT (MQTR-ACCT-IDX)             DTSBR320
00638                      TO WRK-MQTR-BAL                              DTSBR320
00639 *              display 'si amt '  MQTR-BALANCE-AMT (MQTR-ACCT-IDX)DTSBR320
00640                ADD  MQTR-paid-AMT (MQTR-ACCT-IDX)                 DTSBR320
00641                    TO WRK-paid-amt                                DTSBR320
00642 *              display 'si paid ' MQTR-paid-AMT (MQTR-ACCT-IDX)   DTSBR320
00643               end-if                                                 CL*21
00644             end-if                                                DTSBR320
00645                                                                   DTSBR320
00646         if mqtr-emp-no = 011425                                      CL*11
00647         display '** emp- ' mqtr-emp-no ' '                           CL*19
00648                 ' su amt '  MQTR-paid-AMT (MQTR-ACCT-IDX)            CL*19
00649                 ' pd amt '  wrk-paid-AMT                             CL*19
00650         END-IF                                                       CL*13
00651                                                                      CL*11
00652            IF MQTR-ACCT-INT-88 (MQTR-ACCT-IDX)                    DTSBR320
00653               ADD  MQTR-BALANCE-AMT (MQTR-ACCT-IDX)               DTSBR320
00654                    TO WRK-MQTR-BAL                                DTSBR320
00655 *             display 'int amt '  MQTR-BALANCE-AMT (MQTR-ACCT-IDX)DTSBR320
00656               ADD  MQTR-paid-AMT (MQTR-ACCT-IDX)                  DTSBR320
00657                    TO WRK-paid-amt                                DTSBR320
00658 *             display 'int paid ' MQTR-paid-AMT (MQTR-ACCT-IDX)   DTSBR320
00659            END-IF                                                 DTSBR320
00660                                                                   DTSBR320
00661            IF MQTR-ACCT-LATE-PEN-88 (MQTR-ACCT-IDX)               DTSBR320
00662               ADD  MQTR-BALANCE-AMT (MQTR-ACCT-IDX)               DTSBR320
00663                    TO WRK-MQTR-BAL                                DTSBR320
00664 *             display 'pen amt '  MQTR-BALANCE-AMT (MQTR-ACCT-IDX)DTSBR320
00665               ADD  MQTR-paid-AMT (MQTR-ACCT-IDX)                  DTSBR320
00666                    TO WRK-paid-amt                                DTSBR320
00667 *             display 'pen paid ' MQTR-paid-AMT (MQTR-ACCT-IDX)   DTSBR320
00668            END-IF                                                 DTSBR320
00669          END-PERFORM                                              DTSBR320
00670        END-IF.                                                    DTSBR320
00671  P1100-EXIT.                                                      DTSBR320
00672      EXIT.                                                        DTSBR320
00673                                                                   DTSBR320
00674  P2000-PRINT-HEADER.                                              DTSBR320
00675                                                                   DTSBR320
00676      MOVE R320-EMP-NO       TO BARC-EMP-NO.                       DTSBR320
00677      PERFORM S599-BARCODE   THRU S599-EXIT.                       DTSBR320
00678                                                                   DTSBR320
00679      IF L599-SETB-FONT1                                           DTSBR320
00680         MOVE 'MODIFY=TAXSM1,' TO CNTL1-CME                        DTSBR320
00681      ELSE                                                         DTSBR320
00682      IF L599-SETB-FONT2                                           DTSBR320
00683         MOVE 'MODIFY=TAXSM2,' TO CNTL1-CME                        DTSBR320
00684      ELSE                                                         DTSBR320
00685         MOVE 'MODIFY=TAXSM1,' TO CNTL1-CME.                       DTSBR320
00686                                                                   DTSBR320
00687      move 'JDE=T320R1,'  to cntl1-jde.                            DTSBR320
00688      WRITE XEROX-REPORT     FROM XEROX-CNTL-LINE18                DTSBR320
00689             AFTER ADVANCING TOP-OF-PAGE.                          DTSBR320
00690      WRITE XEROX-REPORT     FROM XEROX-CNTL-LINE19.               DTSBR320
00691      WRITE XEROX-REPORT     FROM XEROX-CNTL-LINE20.               DTSBR320
00692                                                                   DTSBR320
00693      MOVE R320-FMT-LINE (1) TO WS-FMT-LINE-1.                     DTSBR320
00694      MOVE R320-FMT-LINE (2) TO WS-FMT-LINE-2.                     DTSBR320
00695      MOVE R320-FMT-LINE (3) TO WS-FMT-LINE-3.                     DTSBR320
00696      MOVE R320-FMT-LINE (4) TO WS-FMT-LINE-4.                     DTSBR320
00697      MOVE R320-FMT-LINE (5) TO WS-FMT-LINE-5.                     DTSBR320
00698      MOVE R320-EMP-NO       TO WS-EMP-NO.                         DTSBR320
00699 *    WRITE XEROX-REPORT FROM VSCA-LINE AFTER ADVANCING TOP-OF-PAGEDTSBR320
00700 *    WRITE XEROX-REPORT FROM VSCA-LINE AFTER ADVANCING 6 LINE.    DTSBR320
00701      WRITE XEROX-REPORT FROM VSCA-LINE AFTER ADVANCING 9 LINE.    DTSBR320
00702      WRITE XEROX-REPORT FROM LTH-LINE-1 AFTER ADVANCING 1 LINE.   DTSBR320
00703      WRITE XEROX-REPORT FROM LTH-LINE-2 AFTER ADVANCING 1 LINE.   DTSBR320
00704      WRITE XEROX-REPORT FROM LTH-LINE-3 AFTER ADVANCING 1 LINE.   DTSBR320
00705      WRITE XEROX-REPORT FROM LTH-LINE-4 AFTER ADVANCING 1 LINE.   DTSBR320
00706      WRITE XEROX-REPORT FROM LTH-LINE-5 AFTER ADVANCING 1 LINE.   DTSBR320
00707                                                                   DTSBR320
00708  P2000-EXIT.                                                      DTSBR320
00709      EXIT.                                                        DTSBR320
00710                                                                   DTSBR320
00711  P4000-PRINT-DATA.                                                DTSBR320
00712      if ws-credit-used-yes-88                                     DTSBR320
00713 *    WRITE XEROX-REPORT FROM cred-line  AFTER ADVANCING  5 LINE      CL*22
00714      WRITE XEROX-REPORT FROM RPT-LINE-1 AFTER ADVANCING 14 LINE      CL*33
00715      else                                                         DTSBR320
00716      WRITE XEROX-REPORT FROM RPT-LINE-1 AFTER ADVANCING 14 LINE.     CL*33
00717                                                                   DTSBR320
00718  P4000-EXIT.                                                      DTSBR320
00719      EXIT.                                                        DTSBR320
00720                                                                   DTSBR320
00721                                                                   DTSBR320
00722  P6000-SELF-MAILER-RTN.                                           DTSBR320
00723      MOVE R320-FMT-LINE (1) TO WS-ADDR-FMT-LINE-1.                DTSBR320
00724      MOVE R320-FMT-LINE (2) TO WS-ADDR-FMT-LINE-2.                DTSBR320
00725      MOVE R320-FMT-LINE (3) TO WS-ADDR-FMT-LINE-3.                DTSBR320
00726      MOVE R320-FMT-LINE (4) TO WS-ADDR-FMT-LINE-4.                DTSBR320
00727      MOVE R320-FMT-LINE (5) TO WS-ADDR-FMT-LINE-5.                DTSBR320
00728      PERFORM P7000-PRINT-VSCA-ADDR THRU P7000-EXIT.               DTSBR320
00729  P6000-EXIT.                                                      DTSBR320
00730      EXIT.                                                        DTSBR320
00731                                                                   DTSBR320
00732  P7000-PRINT-VSCA-ADDR.                                           DTSBR320
00733 *RW1                                                              DTSBR320
00734      MOVE L599-BARCODED-DATA  TO CONVERTED-BARCODE.               DTSBR320
00735                                                                   DTSBR320
00736       MOVE SPACES             TO WS-REC.                          DTSBR320
00737       WRITE XEROX-REPORT FROM WS-REC                              DTSBR320
00738           AFTER ADVANCING TOP-OF-PAGE.                            DTSBR320
00739                                                                   DTSBR320
00740      WRITE XEROX-REPORT FROM WS-BARC-LINE AFTER 04.               DTSBR320
00741                                                                   DTSBR320
00742 *    WRITE XEROX-REPORT     FROM VSCA-LINE                        DTSBR320
00743 *        AFTER ADVANCING TOP-OF-PAGE.                             DTSBR320
00744 *    WRITE XEROX-REPORT FROM VSCA-LINE AFTER ADVANCING 13 LINE.   DTSBR320
00745      WRITE XEROX-REPORT FROM VSCA-LINE AFTER ADVANCING  9 LINE.   DTSBR320
00746 *RW2                                                              DTSBR320
00747      WRITE XEROX-REPORT FROM VSCA-ADDR-LINE-15                    DTSBR320
00748              AFTER ADVANCING 1 LINE.                              DTSBR320
00749      WRITE XEROX-REPORT FROM VSCA-ADDR-LINE-16                    DTSBR320
00750              AFTER ADVANCING 1 LINE.                              DTSBR320
00751      WRITE XEROX-REPORT FROM VSCA-ADDR-LINE-17                    DTSBR320
00752              AFTER ADVANCING 1 LINE.                              DTSBR320
00753      WRITE XEROX-REPORT FROM VSCA-ADDR-LINE-18                    DTSBR320
00754              AFTER ADVANCING 1 LINE.                              DTSBR320
00755      WRITE XEROX-REPORT FROM VSCA-ADDR-LINE-19                    DTSBR320
00756              AFTER ADVANCING 1 LINE.                              DTSBR320
00757      WRITE XEROX-REPORT FROM VSCA-ADDR-LINE-20                    DTSBR320
00758              AFTER ADVANCING 1 LINE.                              DTSBR320
00759                                                                   DTSBR320
00760  P7000-EXIT.                                                      DTSBR320
00761      EXIT.                                                        DTSBR320
00762                                                                   DTSBR320
00763  P8000-generate-missing-letter.                                   DTSBR320
00764      ADD 1               TO TOT-MIS-CNT.                          DTSBR320
00765      MOVE R320-MAIL-DATE TO L002-DATE.                               CL*31
00766 *    MOVE 20190820       TO L002-DATE.                               CL*32
00767      PERFORM S002-MIXED-CASE THRU S002-EXIT.                      DTSBR320
00768                                                                   DTSBR320
00769      COMPUTE WS-START-POS = (18 - L002-LONG-TEXT-CNT) / 2.        DTSBR320
00770                                                                   DTSBR320
00771      ADD +1 TO WS-START-POS.                                      DTSBR320
00772                                                                   DTSBR320
00773      IF (WS-START-POS > +0)                                       DTSBR320
00774            AND                                                    DTSBR320
00775         (WS-START-POS < +18)                                      DTSBR320
00776          MOVE SPACES TO WS-LONG-TEXT-MAIL-DATE                    DTSBR320
00777          MOVE L002-LONG-TEXT-AREA                                 DTSBR320
00778            TO WS-LONG-TEXT-MAIL-DATE (WS-START-POS:)              DTSBR320
00779      ELSE                                                         DTSBR320
00780           MOVE L002-LONG-TEXT-AREA TO WS-LONG-TEXT-MAIL-DATE.     DTSBR320
00781                                                                   DTSBR320
00782 *    MOVE R417-TOTAL-RATE TO L056-RATE.                           DTSBR320
00783 *    PERFORM S056-DISP1-LEFT-PCT THRU S056-EXIT.                  DTSBR320
00784 *    MOVE L056-DISP-RATE TO WS-DISP-RATE.                         DTSBR320
00785                                                                   DTSBR320
00786      MOVE R320-YRQ TO L008-YRQ.                                   DTSBR320
00787      PERFORM S008-UPPER-CASE THRU S008-EXIT.                      DTSBR320
00788      MOVE L008-SHORT-MONTHS TO WS-UC-SHORT-MONTHS.                DTSBR320
00789                                                                   DTSBR320
00790      PERFORM S008-MIXED-CASE THRU S008-EXIT.                      DTSBR320
00791      MOVE L008-SHORT-DSCR TO DTL-UC-SHORT-QTR-3.                  DTSBR320
00792                                                                   DTSBR320
00793      MOVE L008-YEAR (3:2) TO WS-SHORT-YEAR.                       DTSBR320
00794                                                                   DTSBR320
00795      MOVE L008-YEAR TO WS-LONG-YEAR DTL-LONG-YEAR3.               DTSBR320
00796                                                                   DTSBR320
00797       SET L004-FROM-5     TO TRUE.                                DTSBR320
00798       MOVE R320-YRQ       TO WS-YRQ-UNPACK.                       DTSBR320
00799       MOVE WS-YRQ-UNPACK  TO L004-QTR-5-AREA.                     DTSBR320
00800       PERFORM S004-FROM-5   THRU S004-EXIT.                       DTSBR320
00801       MOVE L004-QTR-END-DATE   TO L002-DATE.                      DTSBR320
00802                                                                   DTSBR320
00803 *    MOVE l002-date     TO L001-FED-8-DATE-9.                     DTSBR320
00804      MOVE R320-tax-DUE-DATE TO L001-FED-8-DATE-9.                 DTSBR320
00805      PERFORM S001-FROM-FED-8 THRU S001-EXIT.                      DTSBR320
00806      MOVE L001-SLASH-8-DATE TO WS-SLASH-DUE-DATE.                 DTSBR320
00807                                                                   DTSBR320
00808       MOVE L004-QTR-default-due-DATE   TO L002-DATE.              DTSBR320
00809      PERFORM S002-MIXED-CASE THRU S002-EXIT.                      DTSBR320
00810 *    MOVE L002-LONG-TEXT-AREA TO WS-LONG-TEXT-DUE-DATE.           DTSBR320
00811                                                                   DTSBR320
00812      PERFORM P9500-PRINT-HEADER THRU P9500-EXIT.                  DTSBR320
00813                                                                   DTSBR320
00814      MOVE +130 TO L090-DESIRED-LINE-LIMIT.                        DTSBR320
00815      MOVE +3 TO L090-PHRASE-CNT.                                  DTSBR320
00816      MOVE MC-LIT-WAS-DUE-BY TO L090-PHRASE (1).                   DTSBR320
00817      MOVE SPACE TO L090-PHRASE-OVERSTRIKE-IND (1).                DTSBR320
00818 *    MOVE WS-LONG-TEXT-DUE-DATE TO L090-PHRASE (2).               DTSBR320
00819 *    MOVE SPACE TO L090-PHRASE-OVERSTRIKE-IND (2).                DTSBR320
00820      MOVE SPACES TO L090-PHRASE (2).                              DTSBR320
00821      STRING L002-LONG-TEXT-AREA DELIMITED BY '  '                 DTSBR320
00822             '.'                 DELIMITED BY SIZE                 DTSBR320
00823          INTO L090-PHRASE (2).                                    DTSBR320
00824      MOVE SPACES TO L090-PHRASE-OVERSTRIKE-IND (2).               DTSBR320
00825      MOVE MC-LIT-IS-NOW-DEL  TO L090-PHRASE (3).                  DTSBR320
00826      MOVE SPACES TO L090-PHRASE-OVERSTRIKE-IND (3).               DTSBR320
00827      PERFORM S090-PARAGRAPH-FORMAT THRU S090-EXIT.                DTSBR320
00828 *    DISPLAY 'L90 ' L090-PARAGRAPH-LINE-CNT                       DTSBR320
00829      IF (L090-UNSUCCESSFUL-88)                                    DTSBR320
00830            OR                                                     DTSBR320
00831         (L090-PARAGRAPH-LINE-CNT NOT = +1)                        DTSBR320
00832          MOVE 'LOGIC ERROR P1000-1' TO ABEND-MSG                  DTSBR320
00833          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBR320
00834      MOVE L090-PARAGRAPH-LINE (1) TO WS-TEXT-LINE-1.              DTSBR320
00835                                                                   DTSBR320
00836 *     MOVE +130 TO L090-DESIRED-LINE-LIMIT.                       DTSBR320
00837 *     MOVE +3 TO L090-PHRASE-CNT.                                 DTSBR320
00838 *     MOVE MC-LIT-NOTICE-TO-US TO L090-PHRASE (1).                DTSBR320
00839 *     MOVE SPACES TO L090-PHRASE-OVERSTRIKE-IND (1).              DTSBR320
00840 *     SET L004-FROM-5     TO TRUE.                                DTSBR320
00841 *     MOVE R320-YRQ       TO WS-YRQ-UNPACK.                       DTSBR320
00842 *     MOVE WS-YRQ-UNPACK  TO L004-QTR-5-AREA.                     DTSBR320
00843 *     PERFORM S004-FROM-5   THRU S004-EXIT.                       DTSBR320
00844 *     MOVE L004-QTR-END-DATE   TO L002-DATE.                      DTSBR320
00845 *                                                                 DTSBR320
00846 *     PERFORM S002-MIXED-CASE THRU S002-EXIT.                     DTSBR320
00847 *     MOVE SPACES TO L090-PHRASE (2).                             DTSBR320
00848 *     STRING L002-LONG-TEXT-AREA DELIMITED BY '  '                DTSBR320
00849 *            ','                 DELIMITED BY SIZE                DTSBR320
00850 *         INTO L090-PHRASE (2).                                   DTSBR320
00851 *     MOVE SPACES TO L090-PHRASE-OVERSTRIKE-IND (2).              DTSBR320
00852 *     MOVE MC-LIT-NOTICE-TO-US1 TO L090-PHRASE (3).               DTSBR320
00853 *    MOVE SPACES TO L090-PHRASE-OVERSTRIKE-IND (3).               DTSBR320
00854 *    PERFORM S090-PARAGRAPH-FORMAT THRU S090-EXIT.                DTSBR320
00855 *    DISPLAY 'L903 ' L090-PARAGRAPH-LINE-CNT                      DTSBR320
00856 *     DISPLAY ' LIN ' L090-PARAGRAPH-LINE (1)                     DTSBR320
00857 *    IF (L090-UNSUCCESSFUL-88)                                    DTSBR320
00858 *              OR                                                 DTSBR320
00859 *       (L090-PARAGRAPH-LINE-CNT NOT = +1)                        DTSBR320
00860 *        MOVE 'LOGIC ERROR P1000-3' TO ABEND-MSG                  DTSBR320
00861 *        PERFORM S999-ABEND THRU S999-EXIT.                       DTSBR320
00862 *    MOVE L090-PARAGRAPH-LINE (1) TO WS-TEXT-LINE-3.              DTSBR320
00863 *                                                                 DTSBR320
00864 *    MOVE +130 TO L090-DESIRED-LINE-LIMIT.                        DTSBR320
00865 *    MOVE +3 TO L090-PHRASE-CNT.                                  DTSBR320
00866 *    MOVE MC-LIT-NOTICE-TO-US2 TO L090-PHRASE (1).                DTSBR320
00867 *    MOVE SPACES TO L090-PHRASE-OVERSTRIKE-IND (1).               DTSBR320
00868 *    DISPLAY ' RTN BYE DATE ' R417-RETURN-BY-DATE.                DTSBR320
00869 *    MOVE R417-RETURN-BY-DATE TO L002-DATE.                       DTSBR320
00870 *    PERFORM S002-MIXED-CASE THRU S002-EXIT.                      DTSBR320
00871 *    MOVE SPACES TO L090-PHRASE (2).                              DTSBR320
00872 *    STRING L002-LONG-TEXT-AREA DELIMITED BY '  '                 DTSBR320
00873 *           ','                 DELIMITED BY SIZE                 DTSBR320
00874 *        INTO L090-PHRASE (2).                                    DTSBR320
00875 *    MOVE SPACES TO L090-PHRASE-OVERSTRIKE-IND (2).               DTSBR320
00876 *    MOVE MC-LIT-NOTICE-TO-US3 TO L090-PHRASE (3).                DTSBR320
00877 *    MOVE SPACES TO L090-PHRASE-OVERSTRIKE-IND (3).               DTSBR320
00878 *    PERFORM S090-PARAGRAPH-FORMAT THRU S090-EXIT.                DTSBR320
00879 *    DISPLAY 'L904 ' L090-PARAGRAPH-LINE-CNT                      DTSBR320
00880 *     DISPLAY ' LIN ' L090-PARAGRAPH-LINE (1)                     DTSBR320
00881 *    IF (L090-UNSUCCESSFUL-88)                                    DTSBR320
00882 *              OR                                                 DTSBR320
00883 *       (L090-PARAGRAPH-LINE-CNT NOT = +1)                        DTSBR320
00884 *        MOVE 'LOGIC ERROR P1000-4' TO ABEND-MSG                  DTSBR320
00885 *        PERFORM S999-ABEND THRU S999-EXIT.                       DTSBR320
00886 *    MOVE L090-PARAGRAPH-LINE (1) TO WS-TEXT-LINE-4.              DTSBR320
00887                                                                   DTSBR320
00888      PERFORM P9000-PRINT-DETAIL-1 THRU P9000-EXIT.                DTSBR320
00889      PERFORM P9100-PRINT-miss-rpt THRU P9100-EXIT.                DTSBR320
00890                                                                   DTSBR320
00891 *    MOVE +0 TO DETAIL-2-LINE-CNT.                                DTSBR320
00892                                                                   DTSBR320
00893      PERFORM P9700-SELF-MAILER-RTN THRU P9700-EXIT.               DTSBR320
00894  P8000-EXIT.                                                      DTSBR320
00895      EXIT.                                                        DTSBR320
00896  P9000-PRINT-DETAIL-1.                                            DTSBR320
00897      MOVE hdr-UC-SHORT-MONTH-1 TO DTL-UC-SHORT-MONTH-1.           DTSBR320
00898      MOVE hdr-UC-SHORT-MONTH-2 TO DTL-UC-SHORT-MONTH-2.           DTSBR320
00899      MOVE hdr-UC-SHORT-MONTH-3 TO DTL-UC-SHORT-MONTH-3.           DTSBR320
00900      MOVE hdr-LONG-YEAR        TO DTL-LONG-YEAR.                  DTSBR320
00901      WRITE XEROX-REPORT2 FROM DTL-LINE-2 AFTER ADVANCING 2 LINE.  DTSBR320
00902      WRITE XEROX-REPORT2 FROM DTL-LINE-3 AFTER ADVANCING 1 LINE.  DTSBR320
00903 *    WRITE XEROX-REPORT2 FROM DTL-LINE-4 AFTER ADVANCING 1 LINE.  DTSBR320
00904      WRITE XEROX-REPORT2 FROM DTL-LINE-5 AFTER ADVANCING 1 LINE.  DTSBR320
00905      WRITE XEROX-REPORT2 FROM DTL-LINE-5A AFTER ADVANCING 1 LINE. DTSBR320
00906      WRITE XEROX-REPORT2 FROM DTL-LINE-6 AFTER ADVANCING 2 LINE.  DTSBR320
00907      WRITE XEROX-REPORT2 FROM DTL-LINE-6A AFTER ADVANCING 1 LINE. DTSBR320
00908 *    WRITE XEROX-REPORT2 FROM DTL-LINE-7 AFTER ADVANCING 2 LINE.  DTSBR320
00909 *    WRITE XEROX-REPORT2 FROM DTL-LINE-7A AFTER ADVANCING 1 LINE. DTSBR320
00910      WRITE XEROX-REPORT2 FROM DTL-LINE-8 AFTER ADVANCING 1 LINE.  DTSBR320
00911      WRITE XEROX-REPORT2 FROM DTL-LINE-8A AFTER ADVANCING 1 LINE. DTSBR320
00912      WRITE XEROX-REPORT2 FROM DTL-LINE-8b AFTER ADVANCING 1 LINE. DTSBR320
00913      WRITE XEROX-REPORT2 FROM DTL-LINE-9 AFTER ADVANCING 1 LINE.  DTSBR320
00914      WRITE XEROX-REPORT2 FROM DTL-LINE-11 AFTER ADVANCING 1 LINE. DTSBR320
00915      WRITE XEROX-REPORT2 FROM DTL-LINE-12 AFTER ADVANCING 1 LINE. DTSBR320
00916                                                                   DTSBR320
00917  P9000-EXIT.                                                      DTSBR320
00918      EXIT.                                                        DTSBR320
00919  P9100-PRINT-miss-rpt.                                            DTSBR320
00920        if ws-mis-line-cnt > 54                                    DTSBR320
00921           MOVE LRCM-SYS-DATE TO HDR1-SYS-DATE                     DTSBR320
00922           MOVE LRCM-SYS-TIME TO HDR1-SYS-TIME                     DTSBR320
00923           add 1 to ws-mis-page-cnt                                DTSBR320
00924           move  l004-slash-5-qtr to wRK-SUBJECT-SLASH-QTR         DTSBR320
00925           move ws-mis-page-cnt to hdr1-page-cnt                   DTSBR320
00926           write mis-report from hdr1-line-1 after advancing       DTSBR320
00927             TOP-OF-PAGE                                           DTSBR320
00928           write mis-report from hdr1-line-2 after advancing 1     DTSBR320
00929           write mis-report from hdr1-line-3 after advancing 1     DTSBR320
00930           write mis-report from hdr1-line-4m after advancing 1    DTSBR320
00931 *         write mis-report from hdr1-line-5 after advancing 1     DTSBR320
00932           write mis-report from hdr1-line-6 after advancing 1     DTSBR320
00933           write mis-report from hdr1-line-7 after advancing 1     DTSBR320
00934 *         write mis-report from hdr1-line-8 after advancing 1     DTSBR320
00935           write mis-report from hdr1-line-9m after advancing 1    DTSBR320
00936           move 9 to ws-mis-line-cnt.                              DTSBR320
00937                                                                   DTSBR320
00938                                                                   DTSBR320
00939      if   R320-FMT-LINE (1) > spaces                              DTSBR320
00940      move r320-fmt-line(1) to mis-emp-name                        DTSBR320
00941      else                                                         DTSBR320
00942      if   R320-FMT-LINE (2) > spaces                              DTSBR320
00943      MOVE R320-FMT-LINE (2) TO mis-emp-name                       DTSBR320
00944      else                                                         DTSBR320
00945      if   R320-FMT-LINE (3) > spaces                              DTSBR320
00946      MOVE R320-FMT-LINE (3) TO mis-emp-name                       DTSBR320
00947      else                                                         DTSBR320
00948      if   R320-FMT-LINE (4) > spaces                              DTSBR320
00949      MOVE R320-FMT-LINE (4) TO mis-emp-name                       DTSBR320
00950      else                                                         DTSBR320
00951      MOVE spaces            TO mis-emp-name.                      DTSBR320
00952                                                                   DTSBR320
00953      MOVE R320-EMP-NO       TO mis-EMP-NO.                        DTSBR320
00954      if   R320-EMP-type = 'Q'                                        CL**6
00955      MOVE 'R'               TO mis-EMP-type                          CL**4
00956      else                                                            CL**4
00957      MOVE 'S'               TO mis-EMP-type.                         CL**4
00958      MOVE WS-SLASH-DUE-DATE     to mis-rpt-due.                   DTSBR320
00959      move 100.00                to mis-pen-chg-amt                DTSBR320
00960                                                                   DTSBR320
00961       write mis-report from mis-line-1 after advancing 1          DTSBR320
00962       add  1 to ws-mis-line-cnt.                                  DTSBR320
00963       add  1 to ws-mis-rec-cnt.                                   DTSBR320
00964  P9100-EXIT.                                                      DTSBR320
00965      EXIT.                                                        DTSBR320
00966  P9200-PRINT-pen-rpt.                                             DTSBR320
00967        if ws-pen-line-cnt > 54                                    DTSBR320
00968           MOVE LRCM-SYS-DATE TO HDR1-SYS-DATE                     DTSBR320
00969           MOVE LRCM-SYS-TIME TO HDR1-SYS-TIME                     DTSBR320
00970           move  l004-slash-5-qtr to wRK-SUBJECT-SLASH-QTR         DTSBR320
00971           add 1 to ws-pen-page-cnt                                DTSBR320
00972           move ws-pen-page-cnt to hdr1-page-cnt                   DTSBR320
00973           write pen-report from hdr1-line-1 after advancing       DTSBR320
00974             TOP-OF-PAGE                                           DTSBR320
00975           write pen-report from hdr1-line-2 after advancing 1     DTSBR320
00976           write pen-report from hdr1-line-3 after advancing 1     DTSBR320
00977           write pen-report from hdr1-line-4p after advancing 1    DTSBR320
00978 *         write pen-report from hdr1-line-5 after advancing 1     DTSBR320
00979           write pen-report from hdr1-line-6 after advancing 1     DTSBR320
00980           write pen-report from hdr1-line-7 after advancing 1     DTSBR320
00981 *         write pen-report from hdr1-line-8 after advancing 1     DTSBR320
00982           write pen-report from hdr1-line-9p after advancing 1    DTSBR320
00983           move 9 to ws-pen-line-cnt.                              DTSBR320
00984                                                                   DTSBR320
00985                                                                   DTSBR320
00986      if   R320-FMT-LINE (1) > spaces                              DTSBR320
00987      move r320-fmt-line(1) to pen-emp-name                        DTSBR320
00988      else                                                         DTSBR320
00989      if   R320-FMT-LINE (2) > spaces                              DTSBR320
00990      MOVE R320-FMT-LINE (2) TO pen-emp-name                       DTSBR320
00991      else                                                         DTSBR320
00992      if   R320-FMT-LINE (3) > spaces                              DTSBR320
00993      MOVE R320-FMT-LINE (3) TO pen-emp-name                       DTSBR320
00994      else                                                         DTSBR320
00995      if   R320-FMT-LINE (4) > spaces                              DTSBR320
00996      MOVE R320-FMT-LINE (4) TO pen-emp-name                       DTSBR320
00997      else                                                         DTSBR320
00998      MOVE spaces            TO pen-emp-name.                      DTSBR320
00999                                                                   DTSBR320
01000      MOVE R320-EMP-NO       TO PEN-EMP-NO.                           CL**5
01001      if   R320-EMP-type = 'Q'                                        CL**4
01002      MOVE 'R'               TO PEN-EMP-type                          CL**4
01003      else                                                            CL**4
01004      MOVE 'S'               TO PEN-EMP-type.                         CL**4
01005       MOVE WS-rpa-TAX-DUE   TO pen-TAX-DUE.                       DTSBR320
01006       move ws-paid-amt      to pen-paid-amt.                      DTSBR320
01007       move R320-int-CHARGED-AMT TO pen-int-charged-amt            DTSBR320
01008       move R320-pen-CHARGED-AMT TO pen-pen-charged-amt            DTSBR320
01009       MOVE WS-TAX-DUE           TO pen-TOTAL-DUE.                 DTSBR320
01010       write pen-report from pen-line-1 after advancing 1             CL*29
01011       add  1 to ws-pen-rec-cnt.                                   DTSBR320
01012       add  1 to ws-pen-line-cnt.                                  DTSBR320
01013  P9200-EXIT.                                                      DTSBR320
01014      EXIT.                                                        DTSBR320
01015  P9500-PRINT-HEADER.                                              DTSBR320
01016      MOVE R320-EMP-NO       TO BARC-EMP-NO.                       DTSBR320
01017      PERFORM S599-BARCODE   THRU S599-EXIT.                       DTSBR320
01018                                                                   DTSBR320
01019      IF L599-SETB-FONT1                                           DTSBR320
01020         MOVE 'MODIFY=TAXSM1,' TO CNTL2-CME                        DTSBR320
01021      ELSE                                                         DTSBR320
01022      IF L599-SETB-FONT2                                           DTSBR320
01023         MOVE 'MODIFY=TAXSM2,' TO CNTL2-CME                        DTSBR320
01024      ELSE                                                         DTSBR320
01025         MOVE 'MODIFY=TAXSM1,' TO CNTL2-CME.                       DTSBR320
01026                                                                   DTSBR320
01027      MOVE 'MODIFY=CME418,' TO CNTL2-CME.                          DTSBR320
01028      WRITE XEROX-REPORT2    FROM XEROX-CNTL2-LINE18               DTSBR320
01029             AFTER ADVANCING TOP-OF-PAGE.                          DTSBR320
01030 *    WRITE XEROX-REPORT2    FROM XEROX-CNTL2-LINE19.              DTSBR320
01031      WRITE XEROX-REPORT2    FROM XEROX-CNTL2-LINE20.              DTSBR320
01032      MOVE R320-FMT-LINE (1) TO HDR-FMT-LINE-1.                    DTSBR320
01033      MOVE R320-FMT-LINE (2) TO HDR-FMT-LINE-2.                    DTSBR320
01034      MOVE R320-FMT-LINE (3) TO HDR-FMT-LINE-3.                    DTSBR320
01035      MOVE R320-FMT-LINE (4) TO HDR-FMT-LINE-4.                    DTSBR320
01036      MOVE R320-FMT-LINE (5) TO HDR-FMT-LINE-5.                    DTSBR320
01037      MOVE R320-EMP-NO       TO HDR-EMP-NO.                        DTSBR320
01038      MOVE WS-UC-SHORT-MONTH-1 TO HDR-UC-SHORT-MONTH-1.            DTSBR320
01039      MOVE WS-UC-SHORT-MONTH-2 TO HDR-UC-SHORT-MONTH-2.            DTSBR320
01040      MOVE WS-UC-SHORT-MONTH-3 TO HDR-UC-SHORT-MONTH-3.            DTSBR320
01041      MOVE WS-LONG-YEAR        TO HDR-LONG-YEAR.                   DTSBR320
01042 *    WRITE XEROX-REPORT FROM VSCA-LINE AFTER ADVANCING TOP-OF-PAGEDTSBR320
01043      WRITE XEROX-REPORT2 FROM VSCA-LINE AFTER ADVANCING 8  LINE.  DTSBR320
01044 *    WRITE XEROX-REPORT FROM VSCA-LINE AFTER ADVANCING 10 LINE.   DTSBR320
01045      WRITE XEROX-REPORT2 FROM HDR-LINE-10 AFTER ADVANCING 1 LINE. DTSBR320
01046      WRITE XEROX-REPORT2 FROM HDR-LINE-11 AFTER ADVANCING 2 LINE. DTSBR320
01047      WRITE XEROX-REPORT2 FROM HDR-LINE-12 AFTER ADVANCING 1 LINE. DTSBR320
01048      WRITE XEROX-REPORT2 FROM HDR-LINE-13 AFTER ADVANCING 1 LINE. DTSBR320
01049      WRITE XEROX-REPORT2 FROM HDR-LINE-14 AFTER ADVANCING 1 LINE. DTSBR320
01050      WRITE XEROX-REPORT2 FROM HDR-LINE-15 AFTER ADVANCING 1 LINE. DTSBR320
01051                                                                   DTSBR320
01052  P9500-EXIT.                                                      DTSBR320
01053      EXIT.                                                        DTSBR320
01054  P9700-SELF-MAILER-RTN.                                           DTSBR320
01055       MOVE R320-FMT-LINE (1) TO C2-ADDR-FMT-LINE-1.               DTSBR320
01056       MOVE R320-FMT-LINE (2) TO C2-ADDR-FMT-LINE-2.               DTSBR320
01057       MOVE R320-FMT-LINE (3) TO C2-ADDR-FMT-LINE-3.               DTSBR320
01058       MOVE R320-FMT-LINE (4) TO C2-ADDR-FMT-LINE-4.               DTSBR320
01059       MOVE R320-FMT-LINE (5) TO C2-ADDR-FMT-LINE-5.               DTSBR320
01060                                                                   DTSBR320
01061      PERFORM P9900-PRINT-VSCA-ADDR THRU P9900-EXIT.               DTSBR320
01062                                                                   DTSBR320
01063  P9700-EXIT.                                                      DTSBR320
01064      EXIT.                                                        DTSBR320
01065  P9900-PRINT-VSCA-ADDR.                                           DTSBR320
01066                                                                   DTSBR320
01067      MOVE L599-BARCODED-DATA  TO CONVERTED-BARCODE.               DTSBR320
01068                                                                   DTSBR320
01069       MOVE SPACES             TO WS-REC.                          DTSBR320
01070       WRITE XEROX-REPORT2 FROM WS-REC                             DTSBR320
01071           AFTER ADVANCING TOP-OF-PAGE.                            DTSBR320
01072                                                                   DTSBR320
01073 *    WRITE XEROX-REPORT FROM WS-BARC-LINE AFTER 04.               DTSBR320
01074                                                                   DTSBR320
01075 *    WRITE XEROX-REPORT     FROM VSCA-LINE                        DTSBR320
01076 *        AFTER ADVANCING TOP-OF-PAGE.                             DTSBR320
01077      WRITE XEROX-REPORT2 FROM VSCA-LINE AFTER ADVANCING 16 LINE.  DTSBR320
01078 *    WRITE XEROX-REPORT FROM VSCA-LINE AFTER ADVANCING 13 LINE.   DTSBR320
01079 *RW2                                                              DTSBR320
01080      WRITE XEROX-REPORT2 FROM VSC2-ADDR-LINE-17                   DTSBR320
01081              AFTER ADVANCING 1 LINE.                              DTSBR320
01082      WRITE XEROX-REPORT2 FROM VSC2-ADDR-LINE-18                   DTSBR320
01083              AFTER ADVANCING 1 LINE.                              DTSBR320
01084      WRITE XEROX-REPORT2 FROM VSC2-ADDR-LINE-19                   DTSBR320
01085              AFTER ADVANCING 1 LINE.                              DTSBR320
01086      WRITE XEROX-REPORT2 FROM VSC2-ADDR-LINE-20                   DTSBR320
01087              AFTER ADVANCING 1 LINE.                              DTSBR320
01088      WRITE XEROX-REPORT2 FROM VSC2-ADDR-LINE-21                   DTSBR320
01089              AFTER ADVANCING 1 LINE.                              DTSBR320
01090                                                                   DTSBR320
01091  P9900-EXIT.                                                      DTSBR320
01092      EXIT.                                                        DTSBR320
01093                                                                   DTSBR320
01094  T1000-tERMINATE.                                                 DTSBR320
01095        move ws-pen-rec-cnt to pen-rec-cnt                         DTSBR320
01096        write pen-report from penalty-FOOTING-FINAL after 2.       DTSBR320
01097        move ws-mis-rec-cnt to mis-rec-cnt                         DTSBR320
01098        write mis-report from missing-FOOTING-FINAL after 2.       DTSBR320
01099        DISPLAY ' TOTAL NO OF penalty assessed    ' TOT-PEN-CNT.   DTSBR320
01100        DISPLAY ' '                                                DTSBR320
01101        DISPLAY ' NUMBER OF FILERS TAX TOLERATED ' TOL-CNT.        DTSBR320
01102        DISPLAY ' '                                                DTSBR320
01103        DISPLAY ' NUMBER OF FILERS CREDIT APPLID ' CREDIT-CNT.     DTSBR320
01104        DISPLAY ' '                                                DTSBR320
01105        DISPLAY ' NUMBER OF FILERS bal due = 0   ' credit-cnt.     DTSBR320
01106        DISPLAY ' '                                                DTSBR320
01107                                                                   DTSBR320
01108        DISPLAY ' TOTAL NO OF MISSING REPORTS     ' TOT-MIS-CNT.   DTSBR320
01109        DISPLAY ' '                                                DTSBR320
01110      SKIP1                                                        DTSBR320
01111      CLOSE PRT-FILE PRT-FILE2                                     DTSBR320
01112            pen-FILE mis-FILE.                                     DTSBR320
01113      CLOSE EMP-RPT-FILE.                                          DTSBR320
01114                                                                   DTSBR320
01115  T1000-EXIT.                                                      DTSBR320
01116      EXIT.                                                        DTSBR320
01117      EJECT                                                        DTSBR320
01118  S001-FROM-FED-8.                                                 DTSBR320
01119      SET L001-FROM-FED-8 TO TRUE.                                 DTSBR320
01120      GO TO S001-DATE.                                             DTSBR320
01121                                                                   DTSBR320
01122  S001-DATE.                                                       DTSBR320
01123      SKIP1                                                        DTSBR320
01124      CALL 'DTSBU001' USING L001-LINK-AREA.                        DTSBR320
01125      SKIP2                                                        DTSBR320
01126  S001-EXIT.                                                       DTSBR320
01127      EXIT.                                                        DTSBR320
01128      SKIP3                                                        DTSBR320
01129  S002-UPPER-CASE.                                                 DTSBR320
01130      SET L002-UPPER-CASE TO TRUE.                                 DTSBR320
01131      GO TO S002-DATE-ALPHA.                                       DTSBR320
01132                                                                   DTSBR320
01133  S002-MIXED-CASE.                                                 DTSBR320
01134      SET L002-MIXED-CASE TO TRUE.                                 DTSBR320
01135      GO TO S002-DATE-ALPHA.                                       DTSBR320
01136                                                                   DTSBR320
01137  S002-DATE-ALPHA.                                                 DTSBR320
01138      SKIP1                                                        DTSBR320
01139      CALL 'DTSBU002' USING L002-LINK-AREA.                        DTSBR320
01140      SKIP2                                                        DTSBR320
01141  S002-EXIT.                                                       DTSBR320
01142      EXIT.                                                        DTSBR320
01143      SKIP3                                                        DTSBR320
01144  S004-FROM-5.                                                     DTSBR320
01145      SET L004-FROM-5 TO TRUE.                                     DTSBR320
01146      GO TO S004-FROM-QTR.                                         DTSBR320
01147                                                                   DTSBR320
01148  S004-FROM-QTR.                                                   DTSBR320
01149      SKIP1                                                        DTSBR320
01150      CALL 'DTSBU004' USING L004-LINK-AREA.                        DTSBR320
01151      SKIP2                                                        DTSBR320
01152  S004-EXIT.                                                       DTSBR320
01153      EXIT.                                                        DTSBR320
01154      SKIP3                                                        DTSBR320
01155  S008-UPPER-CASE.                                                 DTSBR320
01156      SET L008-UPPER-CASE TO TRUE.                                 DTSBR320
01157      GO TO S008-QUARTER-ALPHA.                                    DTSBR320
01158                                                                   DTSBR320
01159  S008-MIXED-CASE.                                                 DTSBR320
01160      SET L008-MIXED-CASE TO TRUE.                                 DTSBR320
01161      GO TO S008-QUARTER-ALPHA.                                    DTSBR320
01162                                                                   DTSBR320
01163  S008-QUARTER-ALPHA.                                              DTSBR320
01164      CALL 'DTSBU008' USING L008-LINK-AREA.                        DTSBR320
01165  S008-EXIT.                                                       DTSBR320
01166      EXIT.                                                        DTSBR320
01167      SKIP3                                                        DTSBR320
01168  S101-pER-MONTH-NO.                                               DTSBR320
01169      SET L101-PER-MONTH-NO-88 TO TRUE.                            DTSBR320
01170      GO TO S101-INT-COMP.                                         DTSBR320
01171  S101-INT-COMP.                                                   DTSBR320
01172      CALL 'DTSBU101' USING L101-LINK-AREA.                        DTSBR320
01173  S101-EXIT.                                                       DTSBR320
01174      EXIT.                                                        DTSBR320
01175      SKIP3                                                        DTSBR320
01176  S090-PARAGRAPH-FORMAT.                                           DTSBR320
01177      MOVE +0 TO L090-INDENT.                                      DTSBR320
01178      SET L090-SPECIAL-CHAR-STD-88 TO TRUE.                        DTSBR320
01179                                                                   DTSBR320
01180      CALL 'DTSBU090' USING L090-LINK-AREA.                        DTSBR320
01181  S090-EXIT.                                                       DTSBR320
01182      EXIT.                                                        DTSBR320
01183      SKIP3                                                        DTSBR320
01184  S119-REQ-CAPS.                                                   DTSBR320
01185      SET L119-REQ-CAPS-88 TO TRUE.                                DTSBR320
01186      GO TO S119-AGENCY-FACTS.                                     DTSBR320
01187  S119-REQ-MIXED.                                                  DTSBR320
01188      SET L119-REQ-MIXED-88 TO TRUE.                               DTSBR320
01189      GO TO S119-AGENCY-FACTS.                                     DTSBR320
01190                                                                   DTSBR320
01191  S119-AGENCY-FACTS.                                               DTSBR320
01192      CALL 'DTSBU119' USING L119-LINK-AREA.                        DTSBR320
01193  S119-EXIT.                                                       DTSBR320
01194      EXIT.                                                        DTSBR320
01195      SKIP3                                                        DTSBR320
01196                                                                   DTSBR320
01197  S599-BARCODE.                                                    DTSBR320
01198      MOVE CONVERT-BARCODE-LINE           TO L599-INPUT-DATA.      DTSBR320
01199      MOVE LENGTH OF CONVERT-BARCODE-LINE TO L599-REC-LENGTH.      DTSBR320
01200      MOVE 'TAX'                          TO L599-SYSTEM.          DTSBR320
01201                                                                   DTSBR320
01202      CALL 'DTSBU599' USING BARI-LINK-AREA.                        DTSBR320
01203                                                                   DTSBR320
01204      IF L599-NOT-CONVERTED                                        DTSBR320
01205       PERFORM S999-ABEND  THRU S999-EXIT.                         DTSBR320
01206  S599-EXIT.                                                       DTSBR320
01207      EXIT.                                                        DTSBR320
01208      SKIP3                                                        DTSBR320
01209  S910-OPEN.                                                          CL*17
01210       SET L910-OPEN-88 TO TRUE.                                      CL*17
01211       GO TO S910-MSTR-IO.                                         DTSBR320
01212                                                                   DTSBR320
01213  S910-READ.                                                       DTSBR320
01214       SET L910-READ-88 TO TRUE.                                   DTSBR320
01215       GO TO S910-MSTR-IO.                                         DTSBR320
01216                                                                   DTSBR320
01217  S910-CLOSE.                                                      DTSBR320
01218       SET L910-CLOSE-88 TO TRUE.                                  DTSBR320
01219       GO TO S910-MSTR-IO.                                         DTSBR320
01220                                                                   DTSBR320
01221  S910-MSTR-IO.                                                    DTSBR320
01222       CALL 'DTSBU910' USING L910-LINK-AREA                        DTSBR320
01223                             MSKL-REC.                             DTSBR320
01224                                                                   DTSBR320
01225  S910-EXIT.                                                       DTSBR320
01226       EXIT.                                                       DTSBR320
01227      SKIP2                                                        DTSBR320
01228  S999-ABEND.                                                      DTSBR320
01229       DISPLAY '****  dtsBR320 ABENDING '                          DTSBR320
01230                                                                   DTSBR320
01231       CALL 'DTSBU999' USING WRK-ABEND-CODE.                       DTSBR320
01232                                                                   DTSBR320
01233  S999-EXIT.                                                       DTSBR320
01234      EXIT.                                                        DTSBR320
01235                                                                   DTSBR320
