00001  IDENTIFICATION DIVISION.                                         01/03/14
00002  PROGRAM-ID.             DTSBR319.                                DTSBR319
00003  AUTHOR.                 MT DEPT OF LABOR/UI PROGRAMMING SECTION     LV029
00004  DATE-WRITTEN.           JANUAR 2005.                             DTSBR319
00005  DATE-COMPILED.                                                   DTSBR319
00006      SKIP3                                                        DTSBR319
00007 *****                                                             DTSBR319
00008 *    CALLING SEQUENCE:  DTSBD400 CALLS                            DTSBR319
00009 *                       DTSBD372 WHICH WRITES  DTSIR319           DTSBR319
00010 *                       DTSBR319 READS DTSIR319 RECORDS.          DTSBR319
00011 *                                                                 DTSBR319
00012 *    FUNCTION:  RETURNED CHECK NOTICE.                            DTSBR319
00013 *                                                                 DTSBR319
00014 *                                                                 DTSBR319
00015 *    MODIFICATION HISTORY:                                        DTSBR319
00016 *                                                                 DTSBR319
00017 * 01/26/05 DEVELOPED TO NOTIFY EMPLOYER OF CHECK PAYMENT WAS NOT. DTSBR319
00018 *          PROCESSED BY THE BANK.                                 DTSBR319
00019 *          REFERENCE RFP # SPEC 59               PROGRAMMER: ZL1  DTSBR319
00020 *                                                                 DTSBR319
00021 * 04/29/05 CORRECTED PROBLEM WITH READ OF MQTR: P2100 SCANS MJRN. DTSBR319
00022 *          WHEN CORRECT BATCH FOUND, IT CALLS P2200 TO READ MQTR  DTSBR319
00023 *          (NEEDED FOR INTEREST CALCULATION). WHEN CONTROL RETURNSDTSBR319
00024 *          TO P2100, IT DID A READ NEXT WITHOUT MOVING THE MJRN   DTSBR319
00025 *          RECORD BACK TO THE MSKL. THIS RESULTS IN A READ OF THE DTSBR319
00026 *          MQTR, WHICH IS THEN MOVED TO THE MJRN COPY BOOK,       DTSBR319
00027 *          CAUSING A DATA EXCEPTION.                              DTSBR319
00028 *          REFERENCE RFP # PRODUCTION PROBLEM    PROGRAMMER: GD   DTSBR319
00029 *                                                                 DTSBR319
00030 * 12/20/05 RECOMPILED FOR NEW VERSION OF DTSIC119.                DTSBR319
00031 *          REFERENCE RFP #                       PROGRAMMER: GD   DTSBR319
00032 *                                                                 DTSBR319
00033 * 08/21/06 REMOVED OPEN/CLOSE OF TAX MASTER FILES. THE FILES      DTSBR319
00034 *          ARE NOW OPENED AND CLOSED IN DTSBD800.                 DTSBR319
00035 *          REFERENCE RFP #                       PROGRAMMER: GD   DTSBR319
00036 *                                                                 DTSBR319
00037 * 01/08/06 MODIFIED TO CHECK FOR NSF PENALTY WHEN THE ORIGINAL    DTSBR319
00038 *          CHECK COVERED ONLY ADMINISTRATIVE ASSESSMENT.          DTSBR319
00039 *          REFERENCE RFP #                       PROGRAMMER: GD   DTSBR319
00040 *                                                                 DTSBR319
00041 * 07/28/08 RECOMPILE FOR IC119 COPYBOOK CHANGE                    DTSBR319
00042 *          REFERENCE RFP #                       PROGRAMMER: ZL1  DTSBR319
00043 *                                                                 DTSBR319
00044 *                                                                 DTSBR319
00045 * 07/23/10 RECOMPILE FOR IC119 COPYBOOK CHANGE                    DTSBR319
00046 *          ADDED MARY TUCKER AS ASSOCIATE DIRECTOR                DTSBR319
00047 *          ADDED MARILYN SEABROOK AS TAX CHIEF                    DTSBR319
00048 *          REFERENCE RFP #                       PROGRAMMER: ZL1  DTSBR319
00049 *                                                                 DTSBR319
00050 * 10/26/11 REMOVED TAX CHIEF NAME FROM FORM. NAME WAS COMING      DTSBR319
00051 *          FROM IC119 COPYBOOK                                    DTSBR319
00052 *          REFERENCE RFP #                       PROGRAMMER: ZL1  DTSBR319
00053 *                                                                 DTSBR319
00054 * MM-DD-YY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  DTSBR319
00055 *          XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  DTSBR319
00056 *          REFERENCE RFP #****                   PROGRAMMER: XXX  DTSBR319
00057 *                                                                 DTSBR319
00058 *                                                                 DTSBR319
00059 *    DESCRIPTION:                                                 DTSBR319
00060 *                                                                 DTSBR319
00061 *        THIS MODULE GENERATES NOTICE  TO EMPLOYERS WHOSE CHECK   DTSBR319
00062 *        PAYMENT WAS RETURNED BY THE BANK.                        DTSBR319
00063 *                                                                 DTSBR319
00064 *                                                                 DTSBR319
00065 *    RECORDS READ:                                                DTSBR319
00066 *                                                                 DTSBR319
00067 *        NONE.                                                    DTSBR319
00068 *                                                                 DTSBR319
00069 *                                                                 DTSBR319
00070 *    PRINTED OUTPUTS:                                             DTSBR319
00071 *                                                                 DTSBR319
00072 *        319R1  RETURNED CHECK NOTICE.                            DTSBR319
00073 *                                                                 DTSBR319
00074 *                                                                 DTSBR319
00075 *    RECORDS WRITTEN:                                             DTSBR319
00076 *                                                                 DTSBR319
00077 *        NONE.                                                    DTSBR319
00078 *                                                                 DTSBR319
00079 *                                                                 DTSBR319
00080 *    MODULES CALLED:                                              DTSBR319
00081 *                                                                 DTSBR319
00082 *        DTSBU002  DATE ALPHA CONVERSION MODULE                   DTSBR319
00083 *        DTSBU071  NAME EDIT/CONVERSION MODULE                    DTSBR319
00084 *        DTSBU082  OPERATOR ID EDIT/LOOKUP MODULE                 DTSBR319
00085 *                                                                 DTSBR319
00086 *                                                                 DTSBR319
00087 *****                                                             DTSBR319
00088      EJECT                                                        DTSBR319
00089  ENVIRONMENT DIVISION.                                            DTSBR319
00090      SKIP2                                                        DTSBR319
00091  CONFIGURATION SECTION.                                           DTSBR319
00092  SPECIAL-NAMES. C01 IS TOP-OF-PAGE.                               DTSBR319
00093      SKIP1                                                        DTSBR319
00094  INPUT-OUTPUT SECTION.                                            DTSBR319
00095      SKIP1                                                        DTSBR319
00096  FILE-CONTROL.                                                    DTSBR319
00097      SELECT PRT-FILW  ASSIGN TO RPT319R1.                         DTSBR319
00098      SKIP3                                                        DTSBR319
00099  DATA DIVISION.                                                   DTSBR319
00100      SKIP3                                                        DTSBR319
00101  FILE SECTION.                                                    DTSBR319
00102      SKIP2                                                        DTSBR319
00103  FD  PRT-FILW                                                     DTSBR319
00104      RECORDING MODE IS F                                          DTSBR319
00105      BLOCK CONTAINS 0 RECORDS                                     DTSBR319
00106      LABEL RECORDS ARE OMITTED.                                   DTSBR319
00107  01  XEROX-REPORTW.                                               DTSBR319
00108      05  FILLER                      PIC X(1).                    DTSBR319
00109      05  XEROX-RPT-W                 PIC X(132).                  DTSBR319
00110                                                                   DTSBR319
00111      EJECT                                                        DTSBR319
00112  WORKING-STORAGE SECTION.                                         DTSBR319
001125 77  PAN-VALET PICTURE X(24) VALUE '029DTSBR319  01/03/14'.       DTSBR319
00113  77  PAN-VALET PICTURE X(24) VALUE '001DTSBR319  01/03/14'.       DTSBR319
00114  77  PAN-VALET PICTURE X(24) VALUE '027DTSBR319  10/10/12'.       DTSBR319
00115  77  PAN-VALET PICTURE X(24) VALUE '009DTSBR319  09/18/12'.       DTSBR319
00116      SKIP3                                                        DTSBR319
00117  01  WRK-AREA.                                                    DTSBR319
00118      05  WRK-ABEND-CD                PIC S9(04)  COMP  VALUE +319.DTSBR319
00119      05  WRK-TOTAL-AMT               PIC  9(07)V9(02) VALUE ZEROS.DTSBR319
00120      05  WRK-CHK-AMOUNT              PIC  9(07)V9(02) VALUE ZEROS.DTSBR319
00121      05  WRK-INT-AMT                 PIC  9(07)V9(02) VALUE ZEROS.DTSBR319
00122      05  WRK-NSF-AMT                 PIC  9(07)V9(02) VALUE ZEROS.DTSBR319
00123      05  WRK-PEN-AMT                 PIC  9(07)V9(02) VALUE ZEROS.DTSBR319
00124      05  ABEND-MSG                   PIC  X(50)  VALUE SPACE.     DTSBR319
00125      05  FIRST-TIME-IND              PIC  X(01)  VALUE 'Y'.       DTSBR319
00126                                                                   DTSBR319
00127      05  QTR-FIRST                  PIC S9(04)  COMP VALUE +400.  DTSBR319
00128      05  QTR-LAST                   PIC S9(04)  COMP VALUE +0.    DTSBR319
00129      05  QTR-MAX                    PIC S9(04)  COMP VALUE +400.  DTSBR319
00130      05  QTR-SUB                    PIC S9(04)  COMP.             DTSBR319
00131      05  WRK-QTR-TABLE OCCURS 400 TIMES.                          DTSBR319
00132          10  TBL-YRQ                 PIC S9(05)    COMP-3.        DTSBR319
00133          10  TBL-UI-PAID             PIC S9(09)V99 COMP-3.        DTSBR319
00134          10  TBL-LATE-PEN-AMT        PIC S9(09)V99 COMP-3.        DTSBR319
00135          10  TBL-LATE-PEN-IND        PIC  X(01).                  DTSBR319
00136              88  TBL-LATE-PEN-YES-88   VALUE 'Y'.                 DTSBR319
00137              88  TBL-LATE-PEN-NO-88    VALUE 'N'.                 DTSBR319
00138          10  TBL-NSF-PEN-AMT         PIC S9(09)V99 COMP-3.        DTSBR319
00139          10  TBL-NSF-PEN-IND         PIC  X(01).                  DTSBR319
00140              88  TBL-NSF-PEN-YES-88    VALUE 'Y'.                 DTSBR319
00141              88  TBL-NSF-PEN-NO-88     VALUE 'N'.                 DTSBR319
00142          10  TBL-INT                 PIC S9(09)V99 COMP-3.        DTSBR319
00143                                                                   DTSBR319
00144      05  WRK-MJRN-FOUND-IND          PIC X(01).                   DTSBR319
00145          88  WRK-MJRN-FOUND-NO-88      VALUE 'N'.                 DTSBR319
00146          88  WRK-MJRN-FOUND-YES-88     VALUE 'Y'.                 DTSBR319
00147                                                                   DTSBR319
00148      05  WS-TAX-VOICE.                                            DTSBR319
00149          10  WS-TAX-VOICE-AREA       PIC X(03)  VALUE SPACES.     DTSBR319
00150          10  WS-TAX-VOICE-DIST       PIC X(03)  VALUE SPACES.     DTSBR319
00151          10  WS-TAX-VOICE-PHONE      PIC X(04)  VALUE SPACES.     DTSBR319
00152          10  WS-TAX-VOICE-EXT        PIC X(04)  VALUE SPACES.     DTSBR319
00153                                                                   DTSBR319
00154      05  WS-WRK-DATE.                                             DTSBR319
00155          10  WS-WRK-MO               PIC X(02)  VALUE SPACES.     DTSBR319
00156          10  FILLER                  PIC X(01)  VALUE SPACES.     DTSBR319
00157          10  WS-WRK-DAY              PIC X(02)  VALUE SPACES.     DTSBR319
00158          10  FILLER                  PIC X(01)  VALUE SPACES.     DTSBR319
00159          10  WS-WRK-YR               PIC X(04)  VALUE SPACES.     DTSBR319
00160                                                                   DTSBR319
00161      05  AMT-DISP1                  PIC --------9.99.             DTSBR319
00162      05  AMT-DISP2                  PIC --------9.99.             DTSBR319
00163      05  AMT-DISP3                  PIC --------9.99.             DTSBR319
00164      05  WS-REC                     PIC  X(132) VALUE SPACES.     DTSBR319
00165                                                                   DTSBR319
00166  01  VSCA-LINE.                                                   DTSBR319
00167      05  VSCA-DATA                   PIC X(133) VALUE SPACES.     DTSBR319
00168                                                                   DTSBR319
00169      EJECT                                                        DTSBR319
00170  01  L001-LINK-AREA.                                              DTSBR319
00171  ++INCLUDE DTSIL001                                               DTSBR319
00172      EJECT                                                        DTSBR319
00173  01  L002-LINK-AREA.                                              DTSBR319
00174  ++INCLUDE DTSIL002                                               DTSBR319
00175      EJECT                                                        DTSBR319
00176  01  L004-LINK-AREA.                                              DTSBR319
00177  ++INCLUDE DTSIL004                                               DTSBR319
00178      EJECT                                                        DTSBR319
00179  01  L071-LINK-AREA.                                              DTSBR319
00180  ++INCLUDE DTSIL071                                               DTSBR319
00181      EJECT                                                        DTSBR319
00182  01  L082-LINK-AREA.                                              DTSBR319
00183  ++INCLUDE DTSIL082                                               DTSBR319
00184      EJECT                                                        DTSBR319
00185  01  L101-LINK-AREA.                                              DTSBR319
00186  ++INCLUDE DTSIL101                                               DTSBR319
00187      EJECT                                                        DTSBR319
00188  01  L119-LINK-AREA.                                              DTSBR319
00189  ++INCLUDE DTSIC119                                               DTSBR319
00190      EJECT                                                        DTSBR319
00191  01  L910-LINK-AREA.                                              DTSBR319
00192  ++INCLUDE DTSIL910                                               DTSBR319
00193      EJECT                                                        DTSBR319
00194  ++INCLUDE DTSXL319                                               DTSBR319
00195      SKIP3                                                        DTSBR319
00196  01  LETTER-HEADING.                                              DTSBR319
00197      05  HDR-LINE-1.                                              DTSBR319
00198          10  FILLER                  PIC  X(03) VALUE SPACES.     DTSBR319
00199          10  WS-LONG-TEXT-AREA       PIC  X(18).                  DTSBR319
00200      05  HDR-LINE-2.                                              DTSBR319
00201          10  FILLER                  PIC  X(03) VALUE SPACES.     DTSBR319
00202          10  WS-FMT-LINE-1           PIC  X(40).                  DTSBR319
00203      05  HDR-LINE-3.                                              DTSBR319
00204          10  FILLER                  PIC  X(03) VALUE SPACES.     DTSBR319
00205          10  WS-FMT-LINE-2           PIC  X(40).                  DTSBR319
00206      05  HDR-LINE-4.                                              DTSBR319
00207          10  FILLER                  PIC  X(03) VALUE SPACES.     DTSBR319
00208          10  WS-FMT-LINE-3           PIC  X(40).                  DTSBR319
00209      05  HDR-LINE-5.                                              DTSBR319
00210          10  FILLER                  PIC  X(03) VALUE SPACES.     DTSBR319
00211          10  WS-FMT-LINE-4           PIC  X(40).                  DTSBR319
00212      05  HDR-LINE-6.                                              DTSBR319
00213          10  FILLER                  PIC  X(03) VALUE SPACES.     DTSBR319
00214          10 WS-FMT-LINE-5            PIC  X(40).                  DTSBR319
00215      05  HDR-LINE-7.                                              DTSBR319
00216          10  FILLER                  PIC  X(03) VALUE SPACES.     DTSBR319
00217          10  FILLER                  PIC  X(13)                   DTSBR319
00218                 VALUE 'ACCOUNT NO:  '.                            DTSBR319
00219          10  WS-EMP-NO               PIC  999B999.                DTSBR319
00220      SKIP2                                                        DTSBR319
00221      05  LET-LINE-1.                                              DTSBR319
00222          10  FILLER                  PIC  X(32) VALUE SPACES.     DTSBR319
00223          10  RPT-CHK-NUMBER          PIC  ZZZZZZZZZ9.             DTSBR319
00224          10  FILLER                  PIC  X(15) VALUE SPACES.     DTSBR319
00225          10  RPT-CHK-DATE            PIC  X(10)  VALUE SPACES.    DTSBR319
00226      SKIP2                                                        DTSBR319
00227      05  LET-LINE-2.                                              DTSBR319
00228          10  FILLER                  PIC  X(25) VALUE SPACES.     DTSBR319
00229          10  RPT-CHK-AMOUNT          PIC  $$$,$$$,$$9.99.         DTSBR319
00230          10  FILLER                  PIC  X(18) VALUE SPACES.     DTSBR319
00231      SKIP2                                                        DTSBR319
00232      05  LET-LINE-3.                                              DTSBR319
00233          10  FILLER                  PIC  X(27) VALUE SPACES.     DTSBR319
00234          10  RPT-CHK-REASON          PIC  X(40) VALUE SPACES.     DTSBR319
00235      SKIP2                                                        DTSBR319
00236      05  LET-LINE-4.                                              DTSBR319
00237          10  FILLER                  PIC  X(49) VALUE SPACES.     DTSBR319
00238          10  RPT-CHK-ORIG-AMT        PIC  ZZZ,ZZ9.99.             DTSBR319
00239      SKIP2                                                        DTSBR319
00240      05  LET-LINE-5.                                              DTSBR319
00241          10  FILLER                  PIC  X(49) VALUE SPACES.     DTSBR319
00242          10  RPT-CHK-NSF-PAYMT       PIC  ZZZ,ZZ9.99.             DTSBR319
00243      SKIP2                                                        DTSBR319
00244      05  LET-LINE-6.                                              DTSBR319
00245          10  FILLER                  PIC  X(49) VALUE SPACES.     DTSBR319
00246          10  RPT-CHK-LATE-PAYMT      PIC  ZZZ,ZZ9.99.             DTSBR319
00247      SKIP2                                                        DTSBR319
00248      05  LET-LINE-7.                                              DTSBR319
00249          10  FILLER                  PIC  X(49) VALUE SPACES.     DTSBR319
00250          10  RPT-CHK-INT-PAYMT       PIC  ZZZ,ZZ9.99.             DTSBR319
00251      SKIP2                                                        DTSBR319
00252      05  LET-LINE-8.                                              DTSBR319
00253          10  FILLER                  PIC  X(49) VALUE SPACES.     DTSBR319
00254          10  RPT-CHK-TOTAL-PAYMT     PIC  ZZZ,ZZ9.99.             DTSBR319
00255      SKIP2                                                        DTSBR319
00256      SKIP2                                                        DTSBR319
00257      05  FTR-LINE-1.                                              DTSBR319
00258          10  FILLER                  PIC  X(13) VALUE SPACES.     DTSBR319
00259          10  RPT-PHO-AREA            PIC  X(03)  VALUE SPACES.    DTSBR319
00260          10  FTR-SLASH1              PIC  X(01) VALUE SPACES.     DTSBR319
00261          10  RPT-PHO-DIST            PIC  X(03)  VALUE SPACES.    DTSBR319
00262          10  FTR-SLASH2              PIC  X(01) VALUE SPACES.     DTSBR319
00263          10  RPT-PHO-NUMBR           PIC  X(04)  VALUE SPACES.    DTSBR319
00264          10  FILLER                  PIC  X(10) VALUE SPACES.     DTSBR319
00265          10  RPT-FAX-AREA            PIC  X(03)  VALUE SPACES.    DTSBR319
00266          10  FTR-SLASH3              PIC  X(01) VALUE SPACES.     DTSBR319
00267          10  RPT-FAX-DIST            PIC  X(03)  VALUE SPACES.    DTSBR319
00268          10  FTR-SLASH4              PIC  X(01) VALUE SPACES.     DTSBR319
00269          10  RPT-FAX-NUMBR           PIC  X(04)  VALUE SPACES.    DTSBR319
00270          10  FILLER                  PIC  X(18) VALUE SPACES.     DTSBR319
00271      SKIP2                                                        DTSBR319
00272      05  FTR-LINE-2.                                              DTSBR319
00273          10  FILLER                  PIC  X(04) VALUE SPACES.     DTSBR319
00274          10  RPT-CHK-NAME            PIC  X(40) VALUE             DTSBR319
00275              ' TAX DIVISION'.                                     DTSBR319
00276      SKIP2                                                        DTSBR319
00277      SKIP2                                                        DTSBR319
00278  01  MQTR-REC.                                                    DTSBR319
00279  ++INCLUDE DTSIMQTR                                               DTSBR319
00280      EJECT                                                        DTSBR319
00281  01  MJRN-REC.                                                    DTSBR319
00282  ++INCLUDE DTSIMJRN                                               DTSBR319
00283      EJECT                                                        DTSBR319
00284  01  MSKL-REC.                                                    DTSBR319
00285  ++INCLUDE DTSIMSKL                                               DTSBR319
00286      EJECT                                                        DTSBR319
00287 *RW1                                                              DTSBR319
00288  01  CONVERT-BARCODE-LINE.                                        DTSBR319
00289      05  BARC-EMP-NO             PIC  9(06)  VALUE ZEROS.         DTSBR319
00290                                                                   DTSBR319
00291  01  WS-BARC-LINE.                                                DTSBR319
00292      05  FILLER                  PIC  X(40)  VALUE SPACES.        DTSBR319
00293      05  CONVERTED-BARCODE       PIC  X(50).                      DTSBR319
00294      05  FILLER                  PIC  X(30)  VALUE SPACES.        DTSBR319
00295                                                                   DTSBR319
00296  01  BARI-LINK-AREA.                                              DTSBR319
00297  ++INCLUDE BARIL599                                               DTSBR319
00298      SKIP3                                                        DTSBR319
00299 *RW2                                                              DTSBR319
00300  LINKAGE SECTION.                                                 DTSBR319
00301      SKIP3                                                        DTSBR319
00302  01  LRCM-LINK-AREA.                                              DTSBR319
00303  ++INCLUDE DTSILRCM                                               DTSBR319
00304      EJECT                                                        DTSBR319
00305  01  R319-REC.                                                    DTSBR319
00306  ++INCLUDE DTSIR319                                               DTSBR319
00307      EJECT                                                        DTSBR319
00308  PROCEDURE DIVISION USING LRCM-LINK-AREA                          DTSBR319
00309                           R319-REC.                               DTSBR319
00310      SKIP2                                                        DTSBR319
00311      IF FIRST-TIME-IND = 'Y'                                      DTSBR319
00312          PERFORM I1000-INITIATE                                   DTSBR319
00313             THRU I1000-EXIT                                       DTSBR319
00314          MOVE 'N' TO FIRST-TIME-IND.                              DTSBR319
00315      SKIP1                                                        DTSBR319
00316      IF LRCM-EOR-88                                               DTSBR319
00317          PERFORM T1000-TERMINATE                                  DTSBR319
00318             THRU T1000-EXIT                                       DTSBR319
00319      ELSE                                                         DTSBR319
00320          PERFORM P1000-PROCESS                                    DTSBR319
00321             THRU P1000-EXIT.                                      DTSBR319
00322      SKIP2                                                        DTSBR319
00323      GOBACK.                                                      DTSBR319
00324      EJECT                                                        DTSBR319
00325  I1000-INITIATE.                                                  DTSBR319
00326                                                                   DTSBR319
00327      OPEN OUTPUT  PRT-FILW.                                       DTSBR319
00328      MOVE SPACES TO XEROX-REPORTW.                                DTSBR319
00329                                                                   DTSBR319
00330 *    WRITE XEROX-REPORTW    FROM XEROX-CNTL-CLASSW                DTSBR319
00331 *        AFTER ADVANCING TOP-OF-PAGE.                             DTSBR319
00332      WRITE XEROX-REPORTW    FROM VSCA-LINE                        DTSBR319
00333          AFTER ADVANCING TOP-OF-PAGE.                             DTSBR319
00334                                                                   DTSBR319
00335 ***  PERFORM S910-OPEN-READ THRU S910-EXIT.                       DTSBR319
00336                                                                   DTSBR319
00337  I1000-EXIT.                                                      DTSBR319
00338      EXIT.                                                        DTSBR319
00339                                                                   DTSBR319
00340  P1000-PROCESS.                                                   DTSBR319
00341      MOVE R319-CURR-MAIL-DATE    TO L002-DATE.                    DTSBR319
00342      SET L002-MIXED-CASE         TO TRUE.                         DTSBR319
00343                                                                   DTSBR319
00344      PERFORM S002-DATE-ALPHA                                      DTSBR319
00345         THRU S002-EXIT.                                           DTSBR319
00346                                                                   DTSBR319
00347      PERFORM P1100-INT-COMP-DATE  THRU P1100-EXIT.                DTSBR319
00348                                                                   DTSBR319
00349 **    IF  R319-EMP-NO = 138072                                    DTSBR319
00350 *         DISPLAY 'BAD EMP NO ' R319-EMP-NO                       DTSBR319
00351 **        GO TO P1000-EXIT.                                       DTSBR319
00352                                                                   DTSBR319
00353      PERFORM P2000-FIND-MJRN       THRU P2000-EXIT.               DTSBR319
00354      PERFORM P3000-PRINT-HEADER    THRU P3000-EXIT.               DTSBR319
00355      PERFORM P4000-PRINT-LETTER    THRU P4000-EXIT.               DTSBR319
00356      PERFORM P5000-PRINT-FOOTER    THRU P5000-EXIT.               DTSBR319
00357      PERFORM P6000-SELF-MAILER-RTN THRU P6000-EXIT.               DTSBR319
00358  P1000-EXIT.                                                      DTSBR319
00359      EXIT.                                                        DTSBR319
00360      EJECT                                                        DTSBR319
00361  P1100-INT-COMP-DATE.                                             DTSBR319
00362       DISPLAY ' I1100 INT COMP DATE'.                             DTSBR319
00363       MOVE LRCM-SYS-8-DATE TO WS-WRK-DATE.                        DTSBR319
00364       MOVE WS-WRK-MO       TO L001-FED-8-MO                       DTSBR319
00365       MOVE WS-WRK-DAY      TO L001-FED-8-DA                       DTSBR319
00366       MOVE WS-WRK-YR       TO L001-FED-8-YR                       DTSBR319
00367       SET L001-FROM-FED-8 TO TRUE                                 DTSBR319
00368       PERFORM S001-DATE       THRU S001-EXIT.                     DTSBR319
00369       ADD +14 TO L001-JUL-ABS-DAY.                                DTSBR319
00370       SET L001-FROM-ABS-DAY TO TRUE                               DTSBR319
00371       PERFORM S001-DATE         THRU S001-EXIT.                   DTSBR319
00372       MOVE L001-FED-8-DATE-9 TO L101-RECEIVED-DATE.               DTSBR319
00373  P1100-EXIT.                                                      DTSBR319
00374      EXIT.                                                        DTSBR319
00375                                                                   DTSBR319
00376  P2000-FIND-MJRN.                                                 DTSBR319
00377      DISPLAY SPACE.                                               DTSBR319
00378      DISPLAY ' P2000 '                                            DTSBR319
00379      DISPLAY ' R319 EMP ' R319-EMP-NO                             DTSBR319
00380         '  ' R319-BATCH-NO '  ' R319-ITEM-NO.                     DTSBR319
00381                                                                   DTSBR319
00382      SET WRK-MJRN-FOUND-NO-88   TO TRUE.                          DTSBR319
00383                                                                   DTSBR319
00384      MOVE LOW-VALUES  TO MSKL-KEY-AREA.                           DTSBR319
00385      MOVE R319-EMP-NO TO MSKL-EMP-NO.                             DTSBR319
00386      SET MSKL-JRN-88  TO TRUE                                     DTSBR319
00387      PERFORM S910-START-BROWSE THRU S910-EXIT                     DTSBR319
00388      PERFORM                                                      DTSBR319
00389        UNTIL L910-NO-REC-88                                       DTSBR319
00390          MOVE MSKL-REC TO MJRN-REC                                DTSBR319
00391          IF MJRN-BATCH-NO = R319-BATCH-NO                         DTSBR319
00392          AND MJRN-ITEM-NO  = R319-ITEM-NO                         DTSBR319
00393             SET WRK-MJRN-FOUND-YES-88    TO TRUE                  DTSBR319
00394             PERFORM P2100-GET-QTRS  THRU P2100-EXIT               DTSBR319
00395             SET L910-NO-REC-88      TO TRUE                       DTSBR319
00396          ELSE                                                     DTSBR319
00397             MOVE MJRN-REC TO MSKL-REC                             DTSBR319
00398             PERFORM S910-READ-NEXT THRU S910-EXIT                 DTSBR319
00399          END-IF                                                   DTSBR319
00400      END-PERFORM.                                                 DTSBR319
00401                                                                   DTSBR319
00402      IF WRK-MJRN-FOUND-NO-88                                      DTSBR319
00403         DISPLAY 'MJRN NOT FOUND '                                 DTSBR319
00404      END-IF.                                                      DTSBR319
00405                                                                   DTSBR319
00406      PERFORM P2200-SUM-DATA    THRU P2200-EXIT.                   DTSBR319
00407                                                                   DTSBR319
00408  P2000-EXIT.                                                      DTSBR319
00409      EXIT.                                                        DTSBR319
00410                                                                   DTSBR319
00411  P2100-GET-QTRS.                                                  DTSBR319
00412      PERFORM                                                      DTSBR319
00413        VARYING QTR-SUB FROM +1 BY +1                              DTSBR319
00414        UNTIL QTR-SUB > QTR-MAX                                    DTSBR319
00415          MOVE ZERO     TO TBL-YRQ (QTR-SUB)                       DTSBR319
00416                           TBL-UI-PAID (QTR-SUB)                   DTSBR319
00417                           TBL-LATE-PEN-AMT (QTR-SUB)              DTSBR319
00418                           TBL-NSF-PEN-AMT (QTR-SUB)               DTSBR319
00419                           TBL-INT (QTR-SUB)                       DTSBR319
00420          SET TBL-LATE-PEN-NO-88 (QTR-SUB)   TO TRUE               DTSBR319
00421          SET TBL-NSF-PEN-NO-88 (QTR-SUB)   TO TRUE                DTSBR319
00422      END-PERFORM.                                                 DTSBR319
00423                                                                   DTSBR319
00424      PERFORM P2110-GET-AMOUNTS    THRU P2110-EXIT.                DTSBR319
00425 **   PERFORM P2110-GET-TAX-PAID   THRU P2110-EXIT.                DTSBR319
00426      PERFORM P2120-GET-PEN-INT    THRU P2120-EXIT.                DTSBR319
00427                                                                   DTSBR319
00428  P2100-EXIT.                                                      DTSBR319
00429      EXIT.                                                        DTSBR319
00430                                                                   DTSBR319
00431  P2110-GET-AMOUNTS.                                               DTSBR319
00432      DISPLAY 'BR319 P2110 ' R319-EMP-NO.                          DTSBR319
00433      PERFORM                                                      DTSBR319
00434        VARYING MJRN-OCC-IDX FROM 1 BY 1                           DTSBR319
00435        UNTIL MJRN-OCC-IDX > MJRN-OCC-CNT                          DTSBR319
00436          EVALUATE TRUE                                            DTSBR319
00437            WHEN (MJRN-ROW-UI-88 (MJRN-OCC-IDX)                    DTSBR319
00438            AND MJRN-COL-PAID-88 (MJRN-OCC-IDX))                   DTSBR319
00439              PERFORM P2111-SAVE-TAX     THRU P2111-EXIT           DTSBR319
00440            WHEN MJRN-ROW-LATE-PEN-88 (MJRN-OCC-IDX)               DTSBR319
00441              PERFORM P2112-LATE-PEN     THRU P2112-EXIT           DTSBR319
00442            WHEN MJRN-ROW-NSF-PEN-88  (MJRN-OCC-IDX)               DTSBR319
00443              PERFORM P2113-NSF-PEN      THRU P2113-EXIT           DTSBR319
00444          END-EVALUATE                                             DTSBR319
00445      END-PERFORM.                                                 DTSBR319
00446                                                                   DTSBR319
00447 ***  PERFORM                                                      DTSBR319
00448 *      VARYING MJRN-OCC-IDX FROM 1 BY 1                           DTSBR319
00449 *      UNTIL MJRN-OCC-IDX > MJRN-OCC-CNT                          DTSBR319
00450 *        IF ((MJRN-ROW-UI-88 (MJRN-OCC-IDX)                       DTSBR319
00451 *        OR   MJRN-ROW-SUR-88 (MJRN-OCC-IDX))                     DTSBR319
00452 *        AND MJRN-COL-PAID-88 (MJRN-OCC-IDX))                     DTSBR319
00453 *           PERFORM P2111-SAVE-IN-TBL  THRU P2111-EXIT            DTSBR319
00454 *        END-IF                                                   DTSBR319
00455 ***  END-PERFORM.                                                 DTSBR319
00456                                                                   DTSBR319
00457  P2110-EXIT.                                                      DTSBR319
00458      EXIT.                                                        DTSBR319
00459                                                                   DTSBR319
00460  P2111-SAVE-TAX.                                                  DTSBR319
00461      MOVE MJRN-YRQ (MJRN-OCC-IDX) TO L004-QTR-5-9.                DTSBR319
00462      PERFORM S004-FROM-5          THRU S004-EXIT.                 DTSBR319
00463      MOVE L004-ABS-QTR            TO QTR-SUB.                     DTSBR319
00464      MOVE L004-QTR-5-9            TO TBL-YRQ (QTR-SUB).           DTSBR319
00465                                                                   DTSBR319
00466      COMPUTE TBL-UI-PAID (QTR-SUB) =                              DTSBR319
00467         (TBL-UI-PAID (QTR-SUB) +                                  DTSBR319
00468         (MJRN-AMT (MJRN-OCC-IDX) * -1)).                          DTSBR319
00469                                                                   DTSBR319
00470      MOVE MJRN-AMT (MJRN-OCC-IDX) TO AMT-DISP1.                   DTSBR319
00471      MOVE TBL-UI-PAID (QTR-SUB)   TO AMT-DISP2.                   DTSBR319
00472      DISPLAY 'BR319 P2111 ' R319-EMP-NO                           DTSBR319
00473         '  JRN ' AMT-DISP1 '  TBL ' AMT-DISP2                     DTSBR319
00474         '  ' TBL-YRQ (QTR-SUB).                                   DTSBR319
00475  P2111-EXIT.                                                      DTSBR319
00476      EXIT.                                                        DTSBR319
00477                                                                   DTSBR319
00478  P2112-LATE-PEN.                                                  DTSBR319
00479      MOVE MJRN-YRQ (MJRN-OCC-IDX) TO L004-QTR-5-9.                DTSBR319
00480      PERFORM S004-FROM-5          THRU S004-EXIT.                 DTSBR319
00481      MOVE L004-ABS-QTR            TO QTR-SUB.                     DTSBR319
00482      MOVE L004-QTR-5-9            TO TBL-YRQ (QTR-SUB).           DTSBR319
00483                                                                   DTSBR319
00484      SET TBL-LATE-PEN-YES-88 (QTR-SUB) TO TRUE.                   DTSBR319
00485                                                                   DTSBR319
00486      DISPLAY 'BR319 P2112 ' R319-EMP-NO.                          DTSBR319
00487  P2112-EXIT.                                                      DTSBR319
00488      EXIT.                                                        DTSBR319
00489                                                                   DTSBR319
00490  P2113-NSF-PEN.                                                   DTSBR319
00491      MOVE MJRN-YRQ (MJRN-OCC-IDX) TO L004-QTR-5-9.                DTSBR319
00492      PERFORM S004-FROM-5          THRU S004-EXIT.                 DTSBR319
00493      MOVE L004-ABS-QTR            TO QTR-SUB.                     DTSBR319
00494      MOVE L004-QTR-5-9            TO TBL-YRQ (QTR-SUB).           DTSBR319
00495                                                                   DTSBR319
00496      SET TBL-NSF-PEN-YES-88 (QTR-SUB) TO TRUE.                    DTSBR319
00497                                                                   DTSBR319
00498      DISPLAY 'BR319 P2112 ' R319-EMP-NO.                          DTSBR319
00499  P2113-EXIT.                                                      DTSBR319
00500      EXIT.                                                        DTSBR319
00501                                                                   DTSBR319
00502  P2120-GET-PEN-INT.                                               DTSBR319
00503      PERFORM                                                      DTSBR319
00504        VARYING QTR-SUB FROM +1 BY +1                              DTSBR319
00505        UNTIL QTR-SUB > QTR-MAX                                    DTSBR319
00506          IF TBL-YRQ (QTR-SUB) NOT = ZERO                          DTSBR319
00507             PERFORM P2121-READ-MQTR  THRU P2121-EXIT              DTSBR319
00508          END-IF                                                   DTSBR319
00509      END-PERFORM.                                                 DTSBR319
00510                                                                   DTSBR319
00511  P2120-EXIT.                                                      DTSBR319
00512      EXIT.                                                        DTSBR319
00513                                                                   DTSBR319
00514  P2121-READ-MQTR.                                                 DTSBR319
00515      DISPLAY 'BR319 P2121 ' TBL-YRQ (QTR-SUB).                    DTSBR319
00516                                                                   DTSBR319
00517      MOVE LOW-VALUE                  TO MQTR-KEY-AREA.            DTSBR319
00518      MOVE R319-EMP-NO                TO MQTR-EMP-NO.              DTSBR319
00519      SET MQTR-QTR-88                 TO TRUE.                     DTSBR319
00520      MOVE TBL-YRQ (QTR-SUB)          TO MQTR-YRQ.                 DTSBR319
00521      MOVE MQTR-KEY-AREA              TO MSKL-KEY-AREA.            DTSBR319
00522      PERFORM S910-READ               THRU S910-EXIT.              DTSBR319
00523                                                                   DTSBR319
00524      IF L910-OK-88                                                DTSBR319
00525         MOVE MSKL-REC                TO MQTR-REC                  DTSBR319
00526         PERFORM P2121A-INTEREST      THRU P2121A-EXIT             DTSBR319
00527         PERFORM P2121B-PENALTY       THRU P2121B-EXIT             DTSBR319
00528      END-IF.                                                      DTSBR319
00529                                                                   DTSBR319
00530  P2121-EXIT.                                                      DTSBR319
00531      EXIT.                                                        DTSBR319
00532                                                                   DTSBR319
00533  P2121A-INTEREST.                                                 DTSBR319
00534      IF TBL-UI-PAID (QTR-SUB) = ZERO                              DTSBR319
00535         GO TO P2121A-EXIT                                         DTSBR319
00536      END-IF.                                                      DTSBR319
00537                                                                   DTSBR319
00538      MOVE TBL-UI-PAID (QTR-SUB)   TO L101-PAID-CHNG.              DTSBR319
00539      MOVE MQTR-TAX-DUE-DATE       TO L101-TAX-DUE-DATE.           DTSBR319
00540      MOVE MQTR-INT-AREA           TO L101-INT-AREA.               DTSBR319
00541      PERFORM S101-CALC-INTEREST   THRU  S101-EXIT.                DTSBR319
00542      ADD L101-INT-CHARGE-CHNG     TO TBL-INT (QTR-SUB).           DTSBR319
00543      SUBTRACT L101-INT-WAIVE-CHNG FROM TBL-INT (QTR-SUB).         DTSBR319
00544                                                                   DTSBR319
00545      MOVE TBL-UI-PAID (QTR-SUB)   TO AMT-DISP1.                   DTSBR319
00546      MOVE L101-INT-CHARGE-CHNG    TO AMT-DISP2.                   DTSBR319
00547      MOVE TBL-INT (QTR-SUB)   TO AMT-DISP3.                       DTSBR319
00548      DISPLAY 'BR319 P2121A PAID ' AMT-DISP1 '  INT ' AMT-DISP2    DTSBR319
00549         '  TBL ' AMT-DISP3.                                       DTSBR319
00550  P2121A-EXIT.                                                     DTSBR319
00551      EXIT.                                                        DTSBR319
00552                                                                   DTSBR319
00553  P2121B-PENALTY.                                                  DTSBR319
00554      PERFORM                                                      DTSBR319
00555        VARYING MQTR-ACCT-IDX FROM +1 BY +1                        DTSBR319
00556        UNTIL MQTR-ACCT-IDX > MQTR-ACCT-CNT                        DTSBR319
00557           IF MQTR-ACCT-LATE-PEN-88 (MQTR-ACCT-IDX)                DTSBR319
00558              ADD MQTR-BALANCE-AMT (MQTR-ACCT-IDX)                 DTSBR319
00559                 TO TBL-LATE-PEN-AMT (QTR-SUB)                     DTSBR319
00560           ELSE                                                    DTSBR319
00561              IF MQTR-ACCT-NSF-PEN-88 (MQTR-ACCT-IDX)              DTSBR319
00562                 ADD MQTR-BALANCE-AMT (MQTR-ACCT-IDX)              DTSBR319
00563                    TO TBL-NSF-PEN-AMT (QTR-SUB)                   DTSBR319
00564              END-IF                                               DTSBR319
00565          END-IF                                                   DTSBR319
00566      END-PERFORM.                                                 DTSBR319
00567                                                                   DTSBR319
00568      MOVE TBL-LATE-PEN-AMT (QTR-SUB) TO AMT-DISP1.                DTSBR319
00569      MOVE TBL-NSF-PEN-AMT (QTR-SUB) TO AMT-DISP2.                 DTSBR319
00570      DISPLAY 'BR319 P2121B LP ' AMT-DISP1 '  NSF ' AMT-DISP2.     DTSBR319
00571  P2121B-EXIT.                                                     DTSBR319
00572      EXIT.                                                        DTSBR319
00573                                                                   DTSBR319
00574  P2200-SUM-DATA.                                                  DTSBR319
00575      MOVE ZEROS TO WRK-INT-AMT                                    DTSBR319
00576                    WRK-NSF-AMT                                    DTSBR319
00577                    WRK-PEN-AMT                                    DTSBR319
00578                    WRK-CHK-AMOUNT                                 DTSBR319
00579                    WRK-TOTAL-AMT.                                 DTSBR319
00580                                                                   DTSBR319
00581      PERFORM                                                      DTSBR319
00582        VARYING QTR-SUB FROM +1 BY +1                              DTSBR319
00583        UNTIL QTR-SUB > QTR-MAX                                    DTSBR319
00584          IF TBL-YRQ (QTR-SUB) NOT = ZERO                          DTSBR319
00585             ADD TBL-INT (QTR-SUB)          TO WRK-INT-AMT         DTSBR319
00586                                               WRK-TOTAL-AMT       DTSBR319
00587             ADD TBL-LATE-PEN-AMT (QTR-SUB)  TO WRK-PEN-AMT        DTSBR319
00588                                               WRK-TOTAL-AMT       DTSBR319
00589             ADD TBL-NSF-PEN-AMT (QTR-SUB)   TO WRK-NSF-AMT        DTSBR319
00590                                               WRK-TOTAL-AMT       DTSBR319
00591          END-IF                                                   DTSBR319
00592      END-PERFORM.                                                 DTSBR319
00593                                                                   DTSBR319
00594      MOVE WRK-INT-AMT TO AMT-DISP1.                               DTSBR319
00595      MOVE WRK-PEN-AMT TO AMT-DISP2.                               DTSBR319
00596      MOVE WRK-NSF-AMT TO AMT-DISP3.                               DTSBR319
00597      DISPLAY 'BR319 P2200 INT ' AMT-DISP1                         DTSBR319
00598         '  LP ' AMT-DISP2 '  NSF ' AMT-DISP3.                     DTSBR319
00599  P2200-EXIT.                                                      DTSBR319
00600      EXIT.                                                        DTSBR319
00601                                                                   DTSBR319
00602 ***************************************                           DTSBR319
00603 *P2100-MJRN-SCAN.                                                 DTSBR319
00604 *    DISPLAY ' P21000 '                                           DTSBR319
00605 *    MOVE ZEROS TO WRK-MJRN-AMT                                   DTSBR319
00606 *                  WRK-INT-AMT                                    DTSBR319
00607 *                  WRK-NSF-AMT                                    DTSBR319
00608 *                  WRK-PEN-AMT                                    DTSBR319
00609 *                  WRK-UI-AMT                                     DTSBR319
00610 *                  WRK-CHK-AMOUNT                                 DTSBR319
00611 *                  WRK-TOTAL-AMT.                                 DTSBR319
00612 *    DISPLAY ' P21100 '                                           DTSBR319
00613 *    MOVE MSKL-REC TO MJRN-REC.                                   DTSBR319
00614 *                                                                 DTSBR319
00615 *    IF R319-EMP-NO = MJRN-EMP-NO                                 DTSBR319
00616 *       NEXT SENTENCE                                             DTSBR319
00617 *    ELSE                                                         DTSBR319
00618 *      SET L910-NO-REC-88 TO TRUE                                 DTSBR319
00619 *        GO TO P2100-EXIT.                                        DTSBR319
00620 *                                                                 DTSBR319
00621 *     DISPLAY ' P21311 '    MJRN-EMP-NO                           DTSBR319
00622 *     DISPLAY ' P21300 '    MJRN-BATCH-NO                         DTSBR319
00623 *     DISPLAY ' P21310 '    MJRN-ITEM-NO                          DTSBR319
00624 *     DISPLAY ' P21350 '    R319-BATCH-NO                         DTSBR319
00625 *     DISPLAY ' P21360 '    R319-ITEM-NO                          DTSBR319
00626 *      IF MJRN-BATCH-NO = R319-BATCH-NO AND                       DTSBR319
00627 *         MJRN-ITEM-NO  = R319-ITEM-NO                            DTSBR319
00628 *         NEXT SENTENCE                                           DTSBR319
00629 *      ELSE                                                       DTSBR319
00630 *     DISPLAY ' P21400 '                                          DTSBR319
00631 *         PERFORM S910-READ-NEXT THRU S910-EXIT                   DTSBR319
00632 *         GO TO P2100-EXIT.                                       DTSBR319
00633 *                                                                 DTSBR319
00634 *      DISPLAY ' BATCH FOUND ' MJRN-BATCH-NO ' ' MJRN-ITEM-NO     DTSBR319
00635 *      PERFORM P2200-MATCH-TABLE THRU P2200-EXIT                  DTSBR319
00636 *                                                                 DTSBR319
00637 *      PERFORM S910-READ-NEXT THRU S910-EXIT.                     DTSBR319
00638 *                                                                 DTSBR319
00639 *P2100-EXIT.                                                      DTSBR319
00640 *    EXIT.                                                        DTSBR319
00641 *    EJECT                                                        DTSBR319
00642 *P2200-MATCH-TABLE.                                               DTSBR319
00643 *      IF MJRN-TRAN-PAY-88 AND                                    DTSBR319
00644 *         MJRN-NO-GOOD-CHECK-PAY-88                               DTSBR319
00645 *         NEXT SENTENCE                                           DTSBR319
00646 *      ELSE                                                       DTSBR319
00647 *         GO TO P2200-EXIT.                                       DTSBR319
00648 *                                                                 DTSBR319
00649 *      PERFORM P2300-MATCH-TABLE THRU P2300-EXIT                  DTSBR319
00650 *        VARYING MJRN-OCC-IDX FROM 1 BY 1                         DTSBR319
00651 *        UNTIL MJRN-OCC-IDX > MJRN-OCC-CNT.                       DTSBR319
00652 *                                                                 DTSBR319
00653 *P2200-EXIT.                                                      DTSBR319
00654 *    EXIT.                                                        DTSBR319
00655 *    EJECT                                                        DTSBR319
00656 *P2300-MATCH-TABLE.                                               DTSBR319
00657 *     DISPLAY ' P23000 '  WRK-MJRN-AMT.                           DTSBR319
00658 *        IF MJRN-ROW-INT-88 (MJRN-OCC-IDX)                        DTSBR319
00659 *           ADD MJRN-AMT (MJRN-OCC-IDX ) TO WRK-INT-AMT           DTSBR319
00660 *           ADD MJRN-AMT(MJRN-OCC-IDX) TO WRK-MJRN-AMT            DTSBR319
00661 *        ELSE                                                     DTSBR319
00662 *          IF MJRN-ROW-NSF-PEN-88 (MJRN-OCC-IDX)                  DTSBR319
00663 *           ADD MJRN-AMT (MJRN-OCC-IDX ) TO WRK-NSF-AMT           DTSBR319
00664 *             ADD MJRN-AMT(MJRN-OCC-IDX) TO WRK-MJRN-AMT          DTSBR319
00665 *          ELSE                                                   DTSBR319
00666 *            IF MJRN-ROW-LATE-PEN-88 (MJRN-OCC-IDX)               DTSBR319
00667 *              ADD  MJRN-AMT (MJRN-OCC-IDX ) TO WRK-PEN-AMT       DTSBR319
00668 *              ADD MJRN-AMT(MJRN-OCC-IDX) TO WRK-MJRN-AMT         DTSBR319
00669 *            ELSE                                                 DTSBR319
00670 *             IF MJRN-ROW-UI-88 (MJRN-OCC-IDX)                    DTSBR319
00671 *                ADD  MJRN-AMT (MJRN-OCC-IDX ) TO WRK-UI-AMT      DTSBR319
00672 *                PERFORM P2310-CALC-INT THRU P2310-EXIT           DTSBR319
00673 *             END-IF                                              DTSBR319
00674 *            END-IF                                               DTSBR319
00675 *           END-IF                                                DTSBR319
00676 *        END-IF.                                                  DTSBR319
00677 *P2300-EXIT.                                                      DTSBR319
00678 *    EXIT.                                                        DTSBR319
00679 *    EJECT                                                        DTSBR319
00680 *P2310-CALC-INT.                                                  DTSBR319
00681 *     DISPLAY ' P23100 '                                          DTSBR319
00682 *     PERFORM P2320-COMP-INT-DATE THRU P2320-EXIT.                DTSBR319
00683 *     SET L101-WAIVE-INT-NO-88 TO TRUE.                           DTSBR319
00684 *     MOVE LOW-VALUE TO MQTR-KEY-AREA.                            DTSBR319
00685 *     MOVE R319-EMP-NO TO MQTR-EMP-NO.                            DTSBR319
00686 *     SET MQTR-QTR-88 TO TRUE.                                    DTSBR319
00687 *     PERFORM P2350-PROCESS-MQTR THRU P2350-EXIT.                 DTSBR319
00688 *P2310-EXIT.                                                      DTSBR319
00689 *    EXIT.                                                        DTSBR319
00690 *P2320-COMP-INT-DATE.                                             DTSBR319
00691 *     DISPLAY ' P23200 '                                          DTSBR319
00692 *     MOVE LRCM-SYS-8-DATE TO WS-WRK-DATE.                        DTSBR319
00693 *     MOVE WS-WRK-MO       TO L001-FED-8-MO                       DTSBR319
00694 *     MOVE WS-WRK-DAY      TO L001-FED-8-DA                       DTSBR319
00695 *     MOVE WS-WRK-YR       TO L001-FED-8-YR                       DTSBR319
00696 *     SET L001-FROM-FED-8 TO TRUE                                 DTSBR319
00697 *     PERFORM S001-DATE       THRU S001-EXIT.                     DTSBR319
00698 *     ADD +14 TO L001-JUL-ABS-DAY.                                DTSBR319
00699 *     SET L001-FROM-ABS-DAY TO TRUE                               DTSBR319
00700 *     PERFORM S001-DATE         THRU S001-EXIT.                   DTSBR319
00701 *     MOVE L001-FED-8-DATE-9 TO L101-RECEIVED-DATE.               DTSBR319
00702 *P2320-EXIT.                                                      DTSBR319
00703 *    EXIT.                                                        DTSBR319
00704 *P2350-PROCESS-MQTR.                                              DTSBR319
00705 *     DISPLAY ' P23500 '                                          DTSBR319
00706 *    MOVE MJRN-YRQ(MJRN-OCC-IDX ) TO MQTR-YRQ.                    DTSBR319
00707 *    MOVE MQTR-KEY-AREA TO MSKL-KEY-AREA.                         DTSBR319
00708 *    PERFORM S910-READ THRU S910-EXIT.                            DTSBR319
00709 *                                                                 DTSBR319
00710 *    IF L910-OK-88                                                DTSBR319
00711 *        MOVE MSKL-REC TO MQTR-REC                                DTSBR319
00712 *    ELSE                                                         DTSBR319
00713 *        GO TO P2350-EXIT.                                        DTSBR319
00714 *                                                                 DTSBR319
00715 *    MOVE ZEROS             TO L101-PAID-CHNG.                    DTSBR319
00716 *    MOVE WRK-UI-AMT        TO L101-PAID-CHNG                     DTSBR319
00717 *    MOVE MQTR-TAX-DUE-DATE TO L101-TAX-DUE-DATE.                 DTSBR319
00718 *    MOVE MQTR-INT-AREA     TO L101-INT-AREA.                     DTSBR319
00719 *    PERFORM S101-CALC-INTEREST THRU  S101-EXIT.                  DTSBR319
00720 *                                                                 DTSBR319
00721 *    ADD L101-INT-CHARGE-CHNG TO WRK-INT-AMT.                     DTSBR319
00722 *                                                                 DTSBR319
00723 *    SUBTRACT L101-INT-WAIVE-CHNG FROM WRK-INT-AMT.               DTSBR319
00724 *                                                                 DTSBR319
00725 *P2350-EXIT.                                                      DTSBR319
00726 *    EXIT.                                                        DTSBR319
00727  P3000-PRINT-HEADER.                                              DTSBR319
00728      MOVE R319-EMP-NO       TO BARC-EMP-NO.                       DTSBR319
00729      PERFORM S599-BARCODE   THRU S599-EXIT.                       DTSBR319
00730                                                                   DTSBR319
00731      IF L599-SETB-FONT1                                           DTSBR319
00732         MOVE 'MODIFY=TAXSM1,' TO WEROX-CME                        DTSBR319
00733      ELSE                                                         DTSBR319
00734      IF L599-SETB-FONT2                                           DTSBR319
00735         MOVE 'MODIFY=TAXSM2,' TO WEROX-CME                        DTSBR319
00736      ELSE                                                         DTSBR319
00737         MOVE 'MODIFY=TAXSM1,' TO WEROX-CME.                       DTSBR319
00738                                                                   DTSBR319
00739      WRITE XEROX-REPORTW    FROM XEROX-CNTL-CLASSW                DTSBR319
00740             AFTER ADVANCING TOP-OF-PAGE.                          DTSBR319
00741                                                                   DTSBR319
00742      MOVE L002-LONG-TEXT-AREA TO WS-LONG-TEXT-AREA.               DTSBR319
00743      MOVE R319-FMT-LINE (1) TO WS-FMT-LINE-1.                     DTSBR319
00744      MOVE R319-FMT-LINE (2) TO WS-FMT-LINE-2.                     DTSBR319
00745      MOVE R319-FMT-LINE (3) TO WS-FMT-LINE-3.                     DTSBR319
00746      MOVE R319-FMT-LINE (4) TO WS-FMT-LINE-4.                     DTSBR319
00747      MOVE R319-FMT-LINE (5) TO WS-FMT-LINE-5.                     DTSBR319
00748      MOVE R319-EMP-NO       TO WS-EMP-NO.                         DTSBR319
00749 *    WRITE XEROX-REPORTW FROM VSCA-LINE                           DTSBR319
00750 *                        AFTER ADVANCING TOP-OF-PAGE.             DTSBR319
00751 *    WRITE XEROX-REPORTW FROM VSCA-LINE AFTER ADVANCING 07 LINES. DTSBR319
00752      WRITE XEROX-REPORTW FROM VSCA-LINE AFTER ADVANCING 07 LINES. DTSBR319
00753                                                                   DTSBR319
00754      WRITE XEROX-REPORTW FROM HDR-LINE-1  AFTER ADVANCING 1 LINE. DTSBR319
00755      WRITE XEROX-REPORTW FROM HDR-LINE-2  AFTER ADVANCING 1 LINE. DTSBR319
00756      WRITE XEROX-REPORTW FROM HDR-LINE-3  AFTER ADVANCING 1 LINE. DTSBR319
00757      WRITE XEROX-REPORTW FROM HDR-LINE-4  AFTER ADVANCING 1 LINE. DTSBR319
00758      WRITE XEROX-REPORTW FROM HDR-LINE-5  AFTER ADVANCING 1 LINE. DTSBR319
00759      WRITE XEROX-REPORTW FROM HDR-LINE-6  AFTER ADVANCING 1 LINE. DTSBR319
00760      WRITE XEROX-REPORTW FROM HDR-LINE-7  AFTER ADVANCING 3 LINE. DTSBR319
00761                                                                   DTSBR319
00762  P3000-EXIT.                                                      DTSBR319
00763      EXIT.                                                        DTSBR319
00764                                                                   DTSBR319
00765  P4000-PRINT-LETTER.                                              DTSBR319
00766       DISPLAY ' P4100 ' R319-EMP-NO '  ' R319-CHECK-NO            DTSBR319
00767          '  ' R319-CHECK-AMT '  ' WRK-NSF-AMT.                    DTSBR319
00768       DISPLAY '   ' WRK-PEN-AMT '  ' WRK-INT-AMT.                 DTSBR319
00769      MOVE  R319-CHECK-NO    TO RPT-CHK-NUMBER.                    DTSBR319
00770      MOVE  R319-CHECK-DATE  TO RPT-CHK-DATE.                      DTSBR319
00771      MOVE  R319-REASON      TO RPT-CHK-REASON.                    DTSBR319
00772      MOVE  R319-CHECK-AMT   TO WRK-CHK-AMOUNT.                    DTSBR319
00773                                                                   DTSBR319
00774      MOVE   WRK-CHK-AMOUNT   TO RPT-CHK-AMOUNT                    DTSBR319
00775                                 RPT-CHK-ORIG-AMT.                 DTSBR319
00776      MOVE   WRK-NSF-AMT      TO RPT-CHK-NSF-PAYMT.                DTSBR319
00777      MOVE   WRK-PEN-AMT      TO RPT-CHK-LATE-PAYMT                DTSBR319
00778      MOVE   WRK-INT-AMT      TO RPT-CHK-INT-PAYMT.                DTSBR319
00779 *&   COMPUTE WRK-TOTAL-AMT =(WRK-MJRN-AMT + WRK-CHK-AMOUNT)       DTSBR319
00780 *     DISPLAY ' TOTAL ' WRK-TOTAL-AMT.                            DTSBR319
00781      COMPUTE WRK-TOTAL-AMT = (WRK-TOTAL-AMT + WRK-CHK-AMOUNT).    DTSBR319
00782       DISPLAY ' TOTAL2 ' WRK-TOTAL-AMT.                           DTSBR319
00783      MOVE WRK-TOTAL-AMT TO RPT-CHK-TOTAL-PAYMT.                   DTSBR319
00784                                                                   DTSBR319
00785      WRITE XEROX-REPORTW FROM LET-LINE-1 AFTER ADVANCING 5 LINE.  DTSBR319
00786      WRITE XEROX-REPORTW FROM LET-LINE-2 AFTER ADVANCING 2 LINE.  DTSBR319
00787      WRITE XEROX-REPORTW FROM LET-LINE-3 AFTER ADVANCING 2 LINE.  DTSBR319
00788      WRITE XEROX-REPORTW FROM LET-LINE-4 AFTER ADVANCING 7 LINE.  DTSBR319
00789      WRITE XEROX-REPORTW FROM LET-LINE-5 AFTER ADVANCING 2 LINE.  DTSBR319
00790      WRITE XEROX-REPORTW FROM LET-LINE-6 AFTER ADVANCING 2 LINE.  DTSBR319
00791      WRITE XEROX-REPORTW FROM LET-LINE-7 AFTER ADVANCING 2 LINE.  DTSBR319
00792      WRITE XEROX-REPORTW FROM LET-LINE-8 AFTER ADVANCING 2 LINE.  DTSBR319
00793                                                                   DTSBR319
00794  P4000-EXIT.                                                      DTSBR319
00795      EXIT.                                                        DTSBR319
00796                                                                   DTSBR319
00797  P5000-PRINT-FOOTER.                                              DTSBR319
00798                                                                   DTSBR319
00799 *    MOVE SPACES                    TO RPT-CHK-NAME.              DTSBR319
00800      MOVE C119-TAX-DIV-VOICE TO WS-TAX-VOICE                      DTSBR319
00801      MOVE '-' TO FTR-SLASH1   FTR-SLASH2                          DTSBR319
00802                  FTR-SLASH3   FTR-SLASH4.                         DTSBR319
00803      MOVE WS-TAX-VOICE-AREA      TO RPT-PHO-AREA.                 DTSBR319
00804      MOVE WS-TAX-VOICE-DIST      TO RPT-PHO-DIST.                 DTSBR319
00805      MOVE WS-TAX-VOICE-PHONE     TO RPT-PHO-NUMBR.                DTSBR319
00806                                                                   DTSBR319
00807      MOVE C119-TAX-DIV-FAX TO WS-TAX-VOICE                        DTSBR319
00808      MOVE WS-TAX-VOICE-AREA      TO RPT-FAX-AREA.                 DTSBR319
00809      MOVE WS-TAX-VOICE-DIST      TO RPT-FAX-DIST.                 DTSBR319
00810      MOVE WS-TAX-VOICE-PHONE     TO RPT-FAX-NUMBR.                DTSBR319
00811                                                                   DTSBR319
00812      WRITE XEROX-REPORTW FROM FTR-LINE-1 AFTER ADVANCING 4 LINE.  DTSBR319
00813      WRITE XEROX-REPORTW FROM FTR-LINE-2 AFTER ADVANCING 5 LINE.  DTSBR319
00814                                                                   DTSBR319
00815  P5000-EXIT.                                                      DTSBR319
00816      EXIT.                                                        DTSBR319
00817                                                                   DTSBR319
00818  P6000-SELF-MAILER-RTN.                                           DTSBR319
00819      MOVE R319-FMT-LINE (1) TO WS-ADDR-FMT-LINE-1.                DTSBR319
00820      MOVE R319-FMT-LINE (2) TO WS-ADDR-FMT-LINE-2.                DTSBR319
00821      MOVE R319-FMT-LINE (3) TO WS-ADDR-FMT-LINE-3.                DTSBR319
00822      MOVE R319-FMT-LINE (4) TO WS-ADDR-FMT-LINE-4.                DTSBR319
00823      MOVE R319-FMT-LINE (5) TO WS-ADDR-FMT-LINE-5.                DTSBR319
00824      PERFORM P7000-PRINT-MAIL-ADDR THRU P7000-EXIT.               DTSBR319
00825  P6000-EXIT.                                                      DTSBR319
00826      EXIT.                                                        DTSBR319
00827      EJECT                                                        DTSBR319
00828                                                                   DTSBR319
00829  P7000-PRINT-MAIL-ADDR.                                           DTSBR319
00830 *RW1                                                              DTSBR319
00831      MOVE L599-BARCODED-DATA  TO CONVERTED-BARCODE.               DTSBR319
00832                                                                   DTSBR319
00833       MOVE SPACES             TO WS-REC.                          DTSBR319
00834       WRITE XEROX-REPORTW FROM WS-REC                             DTSBR319
00835           AFTER ADVANCING TOP-OF-PAGE.                            DTSBR319
00836                                                                   DTSBR319
00837      WRITE XEROX-REPORTW FROM WS-BARC-LINE AFTER 04.              DTSBR319
00838 *RW2                                                              DTSBR319
00839 *    WRITE XEROX-REPORTW    FROM VSCA-LINE                        DTSBR319
00840 *        AFTER ADVANCING TOP-OF-PAGE.                             DTSBR319
00841 *    WRITE XEROX-REPORTW FROM VSCA-LINE AFTER ADVANCING 12 LINE.  DTSBR319
00842      WRITE XEROX-REPORTW FROM VSCA-LINE AFTER ADVANCING  5 LINE.  DTSBR319
00843 *RW2                                                              DTSBR319
00844      WRITE XEROX-REPORTW FROM MAIL-ADDR-LINE-1                    DTSBR319
00845              AFTER ADVANCING 1 LINE.                              DTSBR319
00846      WRITE XEROX-REPORTW FROM MAIL-ADDR-LINE-2                    DTSBR319
00847              AFTER ADVANCING 1 LINE.                              DTSBR319
00848      WRITE XEROX-REPORTW FROM MAIL-ADDR-LINE-3                    DTSBR319
00849              AFTER ADVANCING 1 LINE.                              DTSBR319
00850      WRITE XEROX-REPORTW FROM MAIL-ADDR-LINE-4                    DTSBR319
00851              AFTER ADVANCING 1 LINE.                              DTSBR319
00852      WRITE XEROX-REPORTW FROM MAIL-ADDR-LINE-5                    DTSBR319
00853              AFTER ADVANCING 1 LINE.                              DTSBR319
00854                                                                   DTSBR319
00855  P7000-EXIT.                                                      DTSBR319
00856      EXIT.                                                        DTSBR319
00857                                                                   DTSBR319
00858  T1000-TERMINATE.                                                 DTSBR319
00859      SKIP1                                                        DTSBR319
00860      CLOSE PRT-FILW.                                              DTSBR319
00861      SKIP2                                                        DTSBR319
00862  T1000-EXIT.                                                      DTSBR319
00863      EXIT.                                                        DTSBR319
00864      EJECT                                                        DTSBR319
00865  S001-DATE.                                                       DTSBR319
00866      SKIP1                                                        DTSBR319
00867      CALL 'DTSBU001' USING L001-LINK-AREA.                        DTSBR319
00868      SKIP2                                                        DTSBR319
00869  S001-EXIT.                                                       DTSBR319
00870      EXIT.                                                        DTSBR319
00871      SKIP3                                                        DTSBR319
00872  S002-DATE-ALPHA.                                                 DTSBR319
00873      SKIP1                                                        DTSBR319
00874      CALL 'DTSBU002' USING L002-LINK-AREA.                        DTSBR319
00875      SKIP2                                                        DTSBR319
00876  S002-EXIT.                                                       DTSBR319
00877      EXIT.                                                        DTSBR319
00878      SKIP3                                                        DTSBR319
00879  S004-FROM-5.                                                     DTSBR319
00880      SET L004-FROM-5     TO TRUE.                                 DTSBR319
00881      GO TO S004-EDIT-QTR.                                         DTSBR319
00882                                                                   DTSBR319
00883  S004-EDIT-QTR.                                                   DTSBR319
00884      CALL 'DTSBU004' USING L004-LINK-AREA.                        DTSBR319
00885                                                                   DTSBR319
00886  S004-EXIT.                                                       DTSBR319
00887      EXIT.                                                        DTSBR319
00888                                                                   DTSBR319
00889  S071-DESLASH-NAME.                                               DTSBR319
00890      SKIP1                                                        DTSBR319
00891      CALL 'DTSBU071' USING L071-LINK-AREA.                        DTSBR319
00892      SKIP2                                                        DTSBR319
00893  S071-EXIT.                                                       DTSBR319
00894      EXIT.                                                        DTSBR319
00895      SKIP3                                                        DTSBR319
00896  S082-OP-ID-INFO.                                                 DTSBR319
00897      SKIP1                                                        DTSBR319
00898      CALL 'DTSBU082' USING L082-LINK-AREA.                        DTSBR319
00899      SKIP2                                                        DTSBR319
00900  S082-EXIT.                                                       DTSBR319
00901      EXIT.                                                        DTSBR319
00902      SKIP3                                                        DTSBR319
00903  S101-CALC-INTEREST.                                              DTSBR319
00904      SKIP1                                                        DTSBR319
00905      CALL 'DTSBU101' USING L101-LINK-AREA.                        DTSBR319
00906      SKIP2                                                        DTSBR319
00907  S101-EXIT.                                                       DTSBR319
00908      EXIT.                                                        DTSBR319
00909      SKIP3                                                        DTSBR319
00910  S910-OPEN-READ.                                                  DTSBR319
00911      SET L910-OPEN-READ-88 TO TRUE.                               DTSBR319
00912      GO TO S910-MSTR-IO.                                          DTSBR319
00913  S910-READ.                                                       DTSBR319
00914      SET L910-READ-88 TO TRUE.                                    DTSBR319
00915      GO TO S910-MSTR-IO.                                          DTSBR319
00916  S910-START-BROWSE.                                               DTSBR319
00917      SET L910-START-BROWSE-88 TO TRUE                             DTSBR319
00918      GO TO S910-MSTR-IO.                                          DTSBR319
00919  S910-READ-NEXT.                                                  DTSBR319
00920      SET L910-READ-NEXT-88 TO TRUE                                DTSBR319
00921      GO TO S910-MSTR-IO.                                          DTSBR319
00922  S910-CLOSE.                                                      DTSBR319
00923      SET L910-CLOSE-88 TO TRUE                                    DTSBR319
00924      GO TO S910-MSTR-IO.                                          DTSBR319
00925  S910-MSTR-IO.                                                    DTSBR319
00926       CALL 'DTSBU910' USING L910-LINK-AREA                        DTSBR319
00927                       MSKL-REC.                                   DTSBR319
00928  S910-EXIT.                                                       DTSBR319
00929       EXIT.                                                       DTSBR319
00930  S599-BARCODE.                                                    DTSBR319
00931      MOVE CONVERT-BARCODE-LINE           TO L599-INPUT-DATA.      DTSBR319
00932      MOVE LENGTH OF CONVERT-BARCODE-LINE TO L599-REC-LENGTH.      DTSBR319
00933      MOVE 'TAX'                          TO L599-SYSTEM.          DTSBR319
00934                                                                   DTSBR319
00935      CALL 'DTSBU599' USING BARI-LINK-AREA.                        DTSBR319
00936                                                                   DTSBR319
00937      IF L599-NOT-CONVERTED                                        DTSBR319
00938       PERFORM S999-ABEND  THRU S999-EXIT.                         DTSBR319
00939  S599-EXIT.                                                       DTSBR319
00940      EXIT.                                                        DTSBR319
00941      SKIP3                                                        DTSBR319
00942  S999-ABEND.                                                      DTSBR319
00943      SKIP1                                                        DTSBR319
00944      CALL 'DTSBU999' USING WRK-ABEND-CD.                          DTSBR319
00945      SKIP2                                                        DTSBR319
00946  S999-EXIT.                                                       DTSBR319
00947      EXIT.                                                        DTSBR319
00948                                                                   DTSBR319
