00001  IDENTIFICATION DIVISION.                                         09/14/05
00002  PROGRAM-ID.             DTSBD326.                                DTSBD326
00003  AUTHOR.                 NGC.                                        LV003
00004  DATE-WRITTEN.           APRIL 2004.                              DTSBD326
00005  DATE-COMPILED.                                                   DTSBD326
00006      SKIP3                                                        DTSBD326
00007 *****                                                             DTSBD326
00008 *                                                                 DTSBD326
00009 *    FUNCTION:  COMPROMISE SETTLEMENT PROCESSING.                 DTSBD326
00010 *                                                                 DTSBD326
00011 *                                                                 DTSBD326
00012 *    MODIFICATION LOG:                                            DTSBD326
00013 *                                                                 DTSBD326
00014 *    04/30/2004  INITIAL DEVELOPMENT                              DTSBD326
00015 *                REFERENCE: COMPROMISE          PROGRAMMER: GD    DTSBD326
00016 *                                                                 DTSBD326
00017 *    MM/DD/YYYY  XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX   DTSBD326
00018 *                XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX   DTSBD326
00019 *                REFERENCE: XXXXXXXXXXXXXXX     PROGRAMMER: XXX   DTSBD326
00020 *                                                                 DTSBD326
00021 *                                                                 DTSBD326
00022 *  DESCRIPTION:                                                   DTSBD326
00023 *                                                                 DTSBD326
00024 *      READ THE MCMP RECORD INDICATED BY T011-ESTB-ABSTIME.       DTSBD326
00025 *                                                                 DTSBD326
00026 *      IF MCMP RECORD INDICATED BY T011-ESTB-ABSTIME DOES NOT     DTSBD326
00027 *      EXIST, THEN THE TRANSACTION IS IN ERROR.                   DTSBD326
00028 *                                                                 DTSBD326
00029 *      IF NOT (MCMP-STATUS-PENDING-88),                           DTSBD326
00030 *      THEN THE TRANSACTION IS IN ERROR.                          DTSBD326
00031 *                                                                 DTSBD326
00032 *      SCAN THE MQTR RECORDS INDICATED BY MCMP-COVERED-YRQ.       DTSBD326
00033 *      IF NO UI TAX HAS BEEN WAIVED IN MCMP-COVERED-YRQ(S),       DTSBD326
00034 *      THEN CHANGE MCMP STATUS TO MCMP-STATUS-WITHDRAWN-88        DTSBD326
00035 *      AND THE TRANSACTION IS IN ERROR.                           DTSBD326
00036 *                                                                 DTSBD326
00037 *      THE FOLLOWING SPECIFICATIONS ASSUME AMOUNTS ARE WAIVED     DTSBD326
00038 *      IN ONE OR MORE OF MCMP-COVERED-YRQ(S).                     DTSBD326
00039 *                                                                 DTSBD326
00040 *        CONSTRUCT AND WRITE A R436 RECORD.                       DTSBD326
00041 *                                                                 DTSBD326
00042 *        WRITE AN EVENT LOG RECORD.                               DTSBD326
00043 *                                                                 DTSBD326
00044 *                                                                 DTSBD326
00045 *      MASTER FILE RECORDS READ:                                  DTSBD326
00046 *                                                                 DTSBD326
00047 *        MCMP                                                     DTSBD326
00048 *        MQTR                                                     DTSBD326
00049 *        MOPO                                                     DTSBD326
00050 *                                                                 DTSBD326
00051 *                                                                 DTSBD326
00052 *      MASTER FILE RECORDS UPDATED:                               DTSBD326
00053 *                                                                 DTSBD326
00054 *        MCMP (REWRITE)                                           DTSBD326
00055 *        MEVL (WRITE)                                             DTSBD326
00056 *                                                                 DTSBD326
00057 *                                                                 DTSBD326
00058 *      REPORT RECORDS WRITTEN:                                    DTSBD326
00059 *                                                                 DTSBD326
00060 *        R436  COMPROMISE SETTLEMENT DOCUMENT.                    DTSBD326
00061 *        R907  EXCEPTION REPORT.                                  DTSBD326
00062 *                                                                 DTSBD326
00063 *                                                                 DTSBD326
00064 *      MODULES CALLED:                                            DTSBD326
00065 *                                                                 DTSBD326
00066 *        DTSBU001 DATE EDIT/CONVERSION.                           DTSBD326
00067 *        DTSBU004 QUARTER EDIT/CONVERSION.                        DTSBD326
00068 *        DTSBU005 TIME EDIT/CONVERSION.                           DTSBD326
00069 *        DTSBU101 INTEREST CHARGE/ABATEMENT COMPUTATION.          DTSBD326
00070 *        DTSBU910 MASTER FILE I/O DRIVER.                         DTSBD326
00071 *        DTSBU946 VARIABLE LENGTH RECORD SEQUENTAIL OUTPUT 1.     DTSBD326
00072 *                                                                 DTSBD326
00073 *                                                                 DTSBD326
00074 *****                                                             DTSBD326
00075      SKIP3                                                        DTSBD326
00076  ENVIRONMENT DIVISION.                                            DTSBD326
00077      EJECT                                                        DTSBD326
00078  DATA DIVISION.                                                   DTSBD326
00079      SKIP3                                                        DTSBD326
00080  WORKING-STORAGE SECTION.                                         DTSBD326
000805 77  PAN-VALET PICTURE X(24) VALUE '003DTSBD326  09/14/05'.       DTSBD326
00081      SKIP3                                                        DTSBD326
00082  01  WRK-AREA.                                                    DTSBD326
00083      05  WRK-ABEND-CD                PIC S9(04)  COMP  VALUE +326.DTSBD326
00084                                                                   DTSBD326
00085      05  WRK-MOD-NAME                PIC  X(08)  VALUE 'DTSBD326'.DTSBD326
00086                                                                   DTSBD326
00087      05  FIRST-TIME-IND              PIC  X(01)        VALUE 'Y'. DTSBD326
00088                                                                   DTSBD326
00089      05  WRK-AMT-DISP1               PIC --------9.99.            DTSBD326
00090      05  WRK-AMT-DISP2               PIC --------9.99.            DTSBD326
00091                                                                   DTSBD326
00092      05  WRK-QTR-FOUND-IND           PIC  X(01).                  DTSBD326
00093          88  WRK-QTR-FOUND-YES-88     VALUE 'Y'.                  DTSBD326
00094          88  WRK-QTR-FOUND-NO-88      VALUE 'N'.                  DTSBD326
00095                                                                   DTSBD326
00096      05  WRK-QTR-WAIVER-IND          PIC  X(01).                  DTSBD326
00097          88  WRK-QTR-WAIVER-YES-88    VALUE 'Y'.                  DTSBD326
00098          88  WRK-QTR-WAIVER-NO-88     VALUE 'N'.                  DTSBD326
00099                                                                   DTSBD326
00100      05  WRK-CNT                     PIC S9(04)  COMP.            DTSBD326
00101      05  WRK-AMT                     PIC S9(09)V9(02) COMP-3.     DTSBD326
00102                                                                   DTSBD326
00103      05  WRK-TOT-BALANCE-AMT         PIC S9(09)V9(02) COMP-3.     DTSBD326
00104      05  WRK-YRQ-UI-WAIVED-AMT       PIC S9(09)V9(02) COMP-3.     DTSBD326
00105      05  WRK-TOT-TAX-WAIVED-AMT      PIC S9(09)V9(02) COMP-3.     DTSBD326
00106      05  WRK-TOT-PEN-WAIVED-AMT      PIC S9(09)V9(02) COMP-3.     DTSBD326
00107      05  WRK-TOT-INT-WAIVED-AMT      PIC S9(09)V9(02) COMP-3.     DTSBD326
00108                                                                   DTSBD326
00109      05  WRK-QTR-TBL.                                             DTSBD326
00110          10  WRK-QTR-MAX                 PIC S9(04) COMP          DTSBD326
00111                                             VALUE +20.            DTSBD326
00112          10  WRK-QTR-CNT                 PIC S9(04) COMP.         DTSBD326
00113          10  QTR-SUB                     PIC S9(04) COMP.         DTSBD326
00114          10  FILLER OCCURS 20.                                    DTSBD326
00115              15  WRK-QTR-YRQ             PIC S9(05)       COMP-3. DTSBD326
00116              15  WRK-QTR-WAIVED-AMT      PIC S9(09)V99    COMP-3. DTSBD326
00117              15  WRK-QTR-REVERSE-AMT     PIC S9(09)V99    COMP-3. DTSBD326
00118                                                                   DTSBD326
00119      05  WRK-REVERSE-TBL.                                         DTSBD326
00120          10  WRK-REV-MAX                 PIC S9(04) COMP          DTSBD326
00121                                             VALUE +100.           DTSBD326
00122          10  REV-CNT                     PIC S9(04) COMP.         DTSBD326
00123          10  REV-SUB                     PIC S9(04) COMP.         DTSBD326
00124          10  FILLER OCCURS 100.                                   DTSBD326
00125              15  WRK-REV-APPLIC-YRQ      PIC S9(05)       COMP-3. DTSBD326
00126              15  WRK-REV-APPLIC-IND      PIC  X(02).              DTSBD326
00127              15  WRK-REV-AMT             PIC S9(09)V99    COMP-3. DTSBD326
00128                                                                   DTSBD326
00129      05  WRK-EVENT-TXT.                                           DTSBD326
00130          10  FILLER                  PIC  X(36)                   DTSBD326
00131                VALUE 'COMPROMISE SETTLEMENT PRINTED.  '.          DTSBD326
00132      EJECT                                                        DTSBD326
00133  01  MSG-TABLE.                                                   DTSBD326
00134      05  MSG1-MCMP-NOT-FOUND.                                     DTSBD326
00135          10  MSG1-ID         PIC  X(11)  VALUE 'DTSBD326411'.     DTSBD326
00136          10  MSG1-SHORT-TEXT PIC  X(20)  VALUE 'DELETED MCMP  '.  DTSBD326
00137          10  MSG1-LONG-TEXT.                                      DTSBD326
00138              15  FILLER      PIC  X(30)                           DTSBD326
00139                    VALUE 'TRANSACTION FAILED - RECORD NO'.        DTSBD326
00140              15  FILLER      PIC  X(30)                           DTSBD326
00141                    VALUE 'T FOUND - NO CMP PRINTED      '.        DTSBD326
00142                                                                   DTSBD326
00143      05  MSG2-MCMP-NOT-PENDING.                                   DTSBD326
00144          10  MSG2-ID         PIC  X(11)  VALUE 'DTSBD326412'.     DTSBD326
00145          10  MSG2-SHORT-TEXT PIC  X(20)  VALUE 'NOT PENDING   '.  DTSBD326
00146          10  MSG2-LONG-TEXT.                                      DTSBD326
00147              15  FILLER      PIC  X(30)                           DTSBD326
00148                    VALUE 'TRANSACTION FAILED - COMPROMIS'.        DTSBD326
00149              15  FILLER      PIC  X(30)                           DTSBD326
00150                    VALUE 'E NOT PENDING - NO CMP PRNTED'.         DTSBD326
00151                                                                   DTSBD326
00152      05  MSG3-MQTR-NOT-FOUND.                                     DTSBD326
00153          10  MSG3-ID.                                             DTSBD326
00154              15  MSG3-ID-1   PIC  X(08)  VALUE 'DTSBD326'.        DTSBD326
00155              15  MSG3-ID-2   PIC  X(03)  VALUE '413'.             DTSBD326
00156          10  MSG3-SHORT-TEXT PIC  X(20)  VALUE 'MQTR NOT FOUND'.  DTSBD326
00157          10  MSG3-LONG-TEXT.                                      DTSBD326
00158              15  FILLER      PIC  X(30)                           DTSBD326
00159                    VALUE 'TRANSACTION FAILED - MQTR RECO'.        DTSBD326
00160              15  FILLER      PIC  X(30)                           DTSBD326
00161                    VALUE 'RD NOT FOUND '.                         DTSBD326
00162              15  MSG3-YRQ    PIC  X(06).                          DTSBD326
00163                                                                   DTSBD326
00164      05  MSG4-NO-DUE.                                             DTSBD326
00165          10  MSG4-ID.                                             DTSBD326
00166              15  MSG4-ID-1   PIC  X(08)  VALUE 'DTSBD326'.        DTSBD326
00167              15  MSG4-ID-2   PIC  X(03)  VALUE '414'.             DTSBD326
00168          10  MSG4-SHORT-TEXT PIC  X(20)  VALUE 'NOTHING WAIVED'.  DTSBD326
00169          10  MSG4-LONG-TEXT.                                      DTSBD326
00170              15  FILLER      PIC  X(30)                           DTSBD326
00171                    VALUE 'NOTHING WAIVED - NO COMPROMISE'.        DTSBD326
00172              15  FILLER      PIC  X(30)                           DTSBD326
00173                    VALUE ' SETTLEMENT PRINTED           '.        DTSBD326
00174                                                                   DTSBD326
00175      05  MSG5-NO-WAIVER.                                          DTSBD326
00176          10  MSG5-ID.                                             DTSBD326
00177              15  MSG5-ID-1   PIC  X(08)  VALUE 'DTSBD326'.        DTSBD326
00178              15  MSG5-ID-2   PIC  X(03)  VALUE '415'.             DTSBD326
00179          10  MSG5-SHORT-TEXT PIC  X(20)  VALUE 'NO WAIVER     '.  DTSBD326
00180          10  MSG5-LONG-TEXT.                                      DTSBD326
00181              15  FILLER      PIC  X(30)                           DTSBD326
00182                    VALUE 'UI TAX NOT WAIVED FOR THIS QUA'.        DTSBD326
00183              15  FILLER      PIC  X(05)                           DTSBD326
00184                    VALUE 'RTER '.                                 DTSBD326
00185              15  MSG5-YRQ    PIC  X(06).                          DTSBD326
00186                                                                   DTSBD326
00187      05  MSG6-ADJ-FAILED.                                         DTSBD326
00188          10  MSG6-ID.                                             DTSBD326
00189              15  MSG6-ID-1   PIC  X(08)  VALUE 'DTSBD326'.        DTSBD326
00190              15  MSG6-ID-2   PIC  X(03)  VALUE '416'.             DTSBD326
00191          10  MSG6-SHORT-TEXT PIC  X(20)  VALUE 'ADJ FAILED    '.  DTSBD326
00192          10  MSG6-LONG-TEXT.                                      DTSBD326
00193              15  FILLER      PIC  X(30)                           DTSBD326
00194                    VALUE 'ADJ TRANSACTION FAILED - WITHD'.        DTSBD326
00195              15  FILLER      PIC  X(16)                           DTSBD326
00196                    VALUE 'RAWAL CANCELLED '.                      DTSBD326
00197      05  MSG7-ADJ-EDIT-FAILED.                                    DTSBD326
00198          10  MSG7-ID.                                             DTSBD326
00199              15  MSG7-ID-1   PIC  X(08)  VALUE 'DTSBD326'.        DTSBD326
00200              15  MSG7-ID-2   PIC  X(03)  VALUE '417'.             DTSBD326
00201          10  MSG7-SHORT-TEXT PIC  X(20)  VALUE 'ADJ EDIT FAIL '.  DTSBD326
00202          10  MSG7-LONG-TEXT.                                      DTSBD326
00203              15  FILLER      PIC  X(30)                           DTSBD326
00204                    VALUE 'ADJ WAIVED AMT NOT = QTR WAIVE'.        DTSBD326
00205              15  FILLER      PIC  X(16)                           DTSBD326
00206                    VALUE 'D AMT           '.                      DTSBD326
00207      EJECT                                                        DTSBD326
00208  01  L001-LINK-AREA.                                              DTSBD326
00209  ++INCLUDE DTSIL001                                               DTSBD326
00210      SKIP3                                                        DTSBD326
00211  01  L003-LINK-AREA.                                              DTSBD326
00212  ++INCLUDE DTSIL003                                               DTSBD326
00213      SKIP3                                                        DTSBD326
00214  01  L004-LINK-AREA.                                              DTSBD326
00215  ++INCLUDE DTSIL004                                               DTSBD326
00216      SKIP3                                                        DTSBD326
00217  01  L005-LINK-AREA.                                              DTSBD326
00218  ++INCLUDE DTSIL005                                               DTSBD326
00219      SKIP3                                                        DTSBD326
00220  01  L101-LINK-AREA.                                              DTSBD326
00221  ++INCLUDE DTSIL101                                               DTSBD326
00222      EJECT                                                        DTSBD326
00223  01  ASKL-REC.                                                    DTSBD326
00224  ++INCLUDE DTSIASKL                                               DTSBD326
00225      SKIP3                                                        DTSBD326
00226  01  AADJ-REC REDEFINES ASKL-REC.                                 DTSBD326
00227  ++INCLUDE DTSIAADJ                                               DTSBD326
00228                                                                   DTSBD326
00229  01  L910-LINK-AREA.                                              DTSBD326
00230  ++INCLUDE DTSIL910                                               DTSBD326
00231      SKIP3                                                        DTSBD326
00232  01  MSKL-REC.                                                    DTSBD326
00233  ++INCLUDE DTSIMSKL                                               DTSBD326
00234      SKIP3                                                        DTSBD326
00235  01  MCMP-REC.                                                    DTSBD326
00236  ++INCLUDE DTSIMCMP                                               DTSBD326
00237      SKIP3                                                        DTSBD326
00238  01  MQTR-REC.                                                    DTSBD326
00239  ++INCLUDE DTSIMQTR                                               DTSBD326
00240      SKIP3                                                        DTSBD326
00241  01  MEVL-REC.                                                    DTSBD326
00242  ++INCLUDE DTSIMEVL                                               DTSBD326
00243      SKIP3                                                        DTSBD326
00244  01  MTCK-REC.                                                    DTSBD326
00245  ++INCLUDE DTSIMTCK                                               DTSBD326
00246      EJECT                                                        DTSBD326
00247  01  MADJ-REC.                                                    DTSBD326
00248  ++INCLUDE DTSIMADJ                                               DTSBD326
00249      EJECT                                                        DTSBD326
00250  01  MMAX-LITERALS.                                               DTSBD326
00251  ++INCLUDE DTSIMMAX                                               DTSBD326
00252      EJECT                                                        DTSBD326
00253  01  R436-REC.                                                    DTSBD326
00254  ++INCLUDE DTSIR436                                               DTSBD326
00255      SKIP3                                                        DTSBD326
00256  01  L501-LINK-AREA.                                              DTSBD326
00257  ++INCLUDE DTSIL501                                               DTSBD326
00258                                                                   DTSBD326
00259  01  R907-REC.                                                    DTSBD326
00260  ++INCLUDE DTSIR907                                               DTSBD326
00261      EJECT                                                        DTSBD326
00262  LINKAGE SECTION.                                                 DTSBD326
00263      SKIP3                                                        DTSBD326
00264  01  LBCM-LINK-AREA.                                              DTSBD326
00265  ++INCLUDE DTSILBCM                                               DTSBD326
00266      EJECT                                                        DTSBD326
00267  01  MPRF-REC.                                                    DTSBD326
00268  ++INCLUDE DTSIMPRF                                               DTSBD326
00269      EJECT                                                        DTSBD326
00270  01  T011-REC.                                                    DTSBD326
00271  ++INCLUDE DTSIT011                                               DTSBD326
00272      EJECT                                                        DTSBD326
00273  PROCEDURE DIVISION USING LBCM-LINK-AREA                          DTSBD326
00274                           MPRF-REC                                DTSBD326
00275                           T011-REC.                               DTSBD326
00276                                                                   DTSBD326
00277                                                                   DTSBD326
00278      IF FIRST-TIME-IND = 'Y'                                      DTSBD326
00279          PERFORM I0000-FIRST-TIME THRU I0000-EXIT                 DTSBD326
00280          MOVE 'N' TO FIRST-TIME-IND.                              DTSBD326
00281                                                                   DTSBD326
00282                                                                   DTSBD326
00283      IF T011-CMP-PKG                                              DTSBD326
00284      OR T011-CMP-TCK                                              DTSBD326
00285      OR T011-CMP-WD                                               DTSBD326
00286          PERFORM P0000-PROCESS THRU P0000-EXIT                    DTSBD326
00287      ELSE                                                         DTSBD326
00288          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBD326
00289                                                                   DTSBD326
00290                                                                   DTSBD326
00291      GOBACK.                                                      DTSBD326
00292      EJECT                                                        DTSBD326
00293  I0000-FIRST-TIME.                                                DTSBD326
00294      MOVE LBCM-TRACE-IND TO L910-TRACE-IND.                       DTSBD326
00295                                                                   DTSBD326
00296      MOVE WRK-MOD-NAME TO L910-MOD-NAME                           DTSBD326
00297                           R907-MODULE-NAME                        DTSBD326
00298                           L501-ORIGIN.                            DTSBD326
00299                                                                   DTSBD326
00300      MOVE LENGTH OF R436-REC TO R436-LENGTH.                      DTSBD326
00301                                                                   DTSBD326
00302      MOVE LENGTH OF R907-REC TO R907-LENGTH.                      DTSBD326
00303                                                                   DTSBD326
00304  I0000-EXIT.                                                      DTSBD326
00305      EXIT.                                                        DTSBD326
00306                                                                   DTSBD326
00307  P0000-PROCESS.                                                   DTSBD326
00308      PERFORM S1000-READ-SUBJECT-MCMP THRU S1000-EXIT.             DTSBD326
00309                                                                   DTSBD326
00310      IF L910-NO-REC-88                                            DTSBD326
00311          SET LBCM-TRN-NOT-OK-88 TO TRUE                           DTSBD326
00312          MOVE MSG1-MCMP-NOT-FOUND TO LBCM-TRN-MSG-AREA            DTSBD326
00313          GO TO P0000-EXIT.                                        DTSBD326
00314                                                                   DTSBD326
00315      PERFORM S2000-DELETE-MTCK       THRU S2000-EXIT.             DTSBD326
00316 *************************************************************     DTSBD326
00317 * STATUS MUST BE PENDING.  THIS PROGRAM WRITES A TICKLER          DTSBD326
00318 * IF THE MCMP CANNOT BE UPDATED SUCCESSFULLY - THE TICKLER        DTSBD326
00319 * WILL TRIGGER ON THE NEXT RUN DATE, AND CALL THIS PROGRAM        DTSBD326
00320 * TO RE-PROCESS THE MCMP. IF THE T011 TRANSACTION CAME FROM       DTSBD326
00321 * THE TICKLER PROCESS (T011-CMP-TCK IS TRUE), AND THE STATUS      DTSBD326
00322 * IS NOT PENDING, THEN PROCESSING HAS BEEN COMPLETED, AND         DTSBD326
00323 * THE TRIGGER RECORD CAN BE IGNORED.                              DTSBD326
00324 *************************************************************     DTSBD326
00325      IF  MCMP-STATUS-WITHDRAWN-88                                 DTSBD326
00326         PERFORM P7000-WITHDRAW  THRU P7000-EXIT                   DTSBD326
00327         IF LBCM-TRN-NOT-OK-88                                     DTSBD326
00328            PERFORM P6000-WRITE-TICKLER      THRU P6000-EXIT       DTSBD326
00329         END-IF                                                    DTSBD326
00330         GO TO P0000-EXIT                                          DTSBD326
00331      ELSE                                                         DTSBD326
00332         IF  MCMP-STATUS-PENDING-88                                DTSBD326
00333            NEXT SENTENCE                                          DTSBD326
00334         ELSE                                                      DTSBD326
00335            IF T011-CMP-PKG                                        DTSBD326
00336               GO TO P0000-EXIT                                    DTSBD326
00337            ELSE                                                   DTSBD326
00338               SET LBCM-TRN-NOT-OK-88 TO TRUE                      DTSBD326
00339               MOVE MSG2-MCMP-NOT-PENDING TO LBCM-TRN-MSG-AREA     DTSBD326
00340               GO TO P0000-EXIT                                    DTSBD326
00341            END-IF                                                 DTSBD326
00342         END-IF                                                    DTSBD326
00343      END-IF.                                                      DTSBD326
00344                                                                   DTSBD326
00345      PERFORM P1000-START-R436 THRU P1000-EXIT.                    DTSBD326
00346                                                                   DTSBD326
00347      MOVE MCMP-INT-COMP-DATE TO L101-RECEIVED-DATE.               DTSBD326
00348 *&                                                                DTSBD326
00349 *    DISPLAY 'BD326 P0000 INT COMP ' MCMP-INT-COMP-DATE           DTSBD326
00350 *       '  ABS ' LBCM-ABSTIME.                                    DTSBD326
00351 *&                                                                DTSBD326
00352                                                                   DTSBD326
00353      SET L101-WAIVE-INT-NO-88 TO TRUE.                            DTSBD326
00354                                                                   DTSBD326
00355      MOVE LOW-VALUE TO MQTR-KEY-AREA.                             DTSBD326
00356                                                                   DTSBD326
00357      MOVE MPRF-EMP-NO TO MQTR-EMP-NO.                             DTSBD326
00358                                                                   DTSBD326
00359      SET MQTR-QTR-88 TO TRUE.                                     DTSBD326
00360                                                                   DTSBD326
00361      PERFORM P3000-PROCESS-MQTR THRU P3000-EXIT.                  DTSBD326
00362                                                                   DTSBD326
00363      IF LBCM-TRN-OK-88                                            DTSBD326
00364         PERFORM P4000-WRITE-MCMP-AND-REPORT THRU P4000-EXIT       DTSBD326
00365         PERFORM P5000-UPDATE-MQTR           THRU P5000-EXIT       DTSBD326
00366      ELSE                                                         DTSBD326
00367         PERFORM P6000-WRITE-TICKLER         THRU P6000-EXIT       DTSBD326
00368      END-IF.                                                      DTSBD326
00369                                                                   DTSBD326
00370  P0000-EXIT.                                                      DTSBD326
00371      EXIT.                                                        DTSBD326
00372      EJECT                                                        DTSBD326
00373  P1000-START-R436.                                                DTSBD326
00374      MOVE T011-RESP-OP-ID TO R436-RESP-OP-ID.                     DTSBD326
00375                                                                   DTSBD326
00376      MOVE MPRF-EMP-NO TO R436-EMP-NO.                             DTSBD326
00377                                                                   DTSBD326
00378                                                                   DTSBD326
00379      INITIALIZE R436-DATA-AREA.                                   DTSBD326
00380      MOVE LBCM-CURR-MAIL-DATE  TO R436-MAIL-DATE.                 DTSBD326
00381                                                                   DTSBD326
00382      MOVE MCMP-SETTLEMENT-DATE TO R436-SETTLEMENT-DATE            DTSBD326
00383                                                                   DTSBD326
00384      MOVE MPRF-PRIMARY-NAME TO R436-PRIMARY-NAME.                 DTSBD326
00385                                                                   DTSBD326
00386      MOVE MCMP-MAILING-ADDRESS TO R436-MAILING-ADDRESS.           DTSBD326
00387                                                                   DTSBD326
00388  P1000-EXIT.                                                      DTSBD326
00389      EXIT.                                                        DTSBD326
00390      EJECT                                                        DTSBD326
00391  P3000-PROCESS-MQTR.                                              DTSBD326
00392      MOVE +0 TO WRK-TOT-BALANCE-AMT                               DTSBD326
00393                 WRK-TOT-TAX-WAIVED-AMT                            DTSBD326
00394                 WRK-TOT-PEN-WAIVED-AMT                            DTSBD326
00395                 WRK-TOT-INT-WAIVED-AMT.                           DTSBD326
00396                                                                   DTSBD326
00397      PERFORM P3100-EACH-QTR     THRU P3100-EXIT                   DTSBD326
00398          VARYING WRK-CNT FROM 1 BY 1                              DTSBD326
00399          UNTIL WRK-CNT > MCMP-COV-CNT.                            DTSBD326
00400                                                                   DTSBD326
00401      IF LBCM-TRN-OK-88                                            DTSBD326
00402         IF WRK-TOT-TAX-WAIVED-AMT = ZERO                          DTSBD326
00403            DISPLAY 'ERR: TOT WAIVED = ZERO'                       DTSBD326
00404            SET LBCM-TRN-NOT-OK-88 TO TRUE                         DTSBD326
00405            MOVE MSG4-NO-DUE       TO LBCM-TRN-MSG-AREA            DTSBD326
00406         END-IF                                                    DTSBD326
00407      END-IF.                                                      DTSBD326
00408                                                                   DTSBD326
00409  P3000-EXIT.                                                      DTSBD326
00410      EXIT.                                                        DTSBD326
00411                                                                   DTSBD326
00412  P3100-EACH-QTR.                                                  DTSBD326
00413 *&                                                                DTSBD326
00414      DISPLAY 'BD326 P3100 ' MPRF-EMP-NO                           DTSBD326
00415         ' WRK-CNT ' WRK-CNT                                       DTSBD326
00416         '  QTR ' MCMP-COVERED-YRQ (WRK-CNT).                      DTSBD326
00417 *&                                                                DTSBD326
00418      MOVE +0 TO L101-PAID-CHNG.                                   DTSBD326
00419                                                                   DTSBD326
00420      SET WRK-QTR-WAIVER-NO-88        TO TRUE.                     DTSBD326
00421                                                                   DTSBD326
00422      MOVE MCMP-COVERED-YRQ (WRK-CNT) TO MQTR-YRQ.                 DTSBD326
00423                                                                   DTSBD326
00424      MOVE MQTR-KEY-AREA              TO MSKL-KEY-AREA.            DTSBD326
00425                                                                   DTSBD326
00426      PERFORM S910-READ               THRU S910-EXIT.              DTSBD326
00427                                                                   DTSBD326
00428      IF L910-OK-88                                                DTSBD326
00429          MOVE MSKL-REC TO MQTR-REC                                DTSBD326
00430      ELSE                                                         DTSBD326
00431            DISPLAY 'ERR: P3100 NO MQTR'                           DTSBD326
00432          SET LBCM-TRN-NOT-OK-88 TO TRUE                           DTSBD326
00433          MOVE MSG3-ID-2           TO R907-MSG-ID                  DTSBD326
00434          MOVE MQTR-YRQ            TO L004-QTR-5-9                 DTSBD326
00435          PERFORM S004-FROM-5      THRU S004-EXIT                  DTSBD326
00436          MOVE L004-SLASH-5-QTR    TO MSG3-YRQ                     DTSBD326
00437          MOVE MPRF-EMP-NO         TO R907-EMP-NO                  DTSBD326
00438          MOVE MSG3-LONG-TEXT      TO R907-MSG-TEXT                DTSBD326
00439          PERFORM S946-WRITE-R907  THRU S946-EXIT                  DTSBD326
00440          GO TO P3100-EXIT.                                        DTSBD326
00441                                                                   DTSBD326
00442                                                                   DTSBD326
00443      PERFORM P3110-PROCESS-ACCT-AREA THRU P3110-EXIT              DTSBD326
00444          VARYING MQTR-ACCT-IDX FROM 1 BY 1                        DTSBD326
00445          UNTIL MQTR-ACCT-IDX > MQTR-ACCT-CNT.                     DTSBD326
00446                                                                   DTSBD326
00447      IF WRK-QTR-WAIVER-NO-88                                      DTSBD326
00448            DISPLAY 'ERR: P3100 NOTHING WAIVED'                    DTSBD326
00449         MOVE MSG5-ID-2           TO R907-MSG-ID                   DTSBD326
00450         MOVE MQTR-YRQ            TO L004-QTR-5-9                  DTSBD326
00451         PERFORM S004-FROM-5      THRU S004-EXIT                   DTSBD326
00452         MOVE L004-SLASH-5-QTR    TO MSG5-YRQ                      DTSBD326
00453         MOVE MPRF-EMP-NO         TO R907-EMP-NO                   DTSBD326
00454         SET LBCM-TRN-NOT-OK-88   TO TRUE                          DTSBD326
00455         MOVE MSG5-LONG-TEXT      TO R907-MSG-TEXT                 DTSBD326
00456         PERFORM S946-WRITE-R907  THRU S946-EXIT                   DTSBD326
00457         GO TO P3100-EXIT.                                         DTSBD326
00458                                                                   DTSBD326
00459      MOVE MQTR-TAX-DUE-DATE TO L101-TAX-DUE-DATE.                 DTSBD326
00460                                                                   DTSBD326
00461      MOVE MQTR-INT-AREA TO L101-INT-AREA.                         DTSBD326
00462                                                                   DTSBD326
00463      PERFORM S101-PER-MONTH-NO THRU S101-EXIT.                    DTSBD326
00464            DISPLAY 'INT CHNG ' L101-INT-CHARGE-CHNG.              DTSBD326
00465                                                                   DTSBD326
00466      ADD L101-INT-CHARGE-CHNG TO WRK-TOT-BALANCE-AMT.             DTSBD326
00467 **                               WRK-YRQ-INT-WAIVED-AMT.          DTSBD326
00468                                                                   DTSBD326
00469      SUBTRACT L101-INT-WAIVE-CHNG FROM WRK-TOT-BALANCE-AMT.       DTSBD326
00470 **                                     WRK-YRQ-INT-WAIVED-AMT.    DTSBD326
00471                                                                   DTSBD326
00472      IF R436-COV-CNT < MMAX-CMP-COV-MAX                           DTSBD326
00473          ADD +1 TO R436-COV-CNT                                   DTSBD326
00474          MOVE MQTR-YRQ TO R436-COVERED-YRQ (R436-COV-CNT)         DTSBD326
00475      END-IF.                                                      DTSBD326
00476                                                                   DTSBD326
00477  P3100-EXIT.                                                      DTSBD326
00478      EXIT.                                                        DTSBD326
00479                                                                   DTSBD326
00480  P3110-PROCESS-ACCT-AREA.                                         DTSBD326
00481      ADD MQTR-BALANCE-AMT (MQTR-ACCT-IDX) TO WRK-TOT-BALANCE-AMT. DTSBD326
00482                                                                   DTSBD326
00483      IF MQTR-ACCT-TAX-88 (MQTR-ACCT-IDX)                          DTSBD326
00484         IF MQTR-WAIVED-AMT (MQTR-ACCT-IDX) > ZERO                 DTSBD326
00485            SET WRK-QTR-WAIVER-YES-88      TO TRUE                 DTSBD326
00486         END-IF                                                    DTSBD326
00487         ADD MQTR-WAIVED-AMT (MQTR-ACCT-IDX)                       DTSBD326
00488                                        TO WRK-TOT-TAX-WAIVED-AMT  DTSBD326
00489         ADD MQTR-BALANCE-AMT (MQTR-ACCT-IDX)                      DTSBD326
00490                                        TO L101-PAID-CHNG          DTSBD326
00491      ELSE                                                         DTSBD326
00492         IF MQTR-ACCT-LATE-PEN-88 (MQTR-ACCT-IDX)                  DTSBD326
00493            ADD MQTR-WAIVED-AMT (MQTR-ACCT-IDX)                    DTSBD326
00494                                        TO WRK-TOT-PEN-WAIVED-AMT  DTSBD326
00495         ELSE                                                      DTSBD326
00496            IF MQTR-ACCT-INT-88 (MQTR-ACCT-IDX)                    DTSBD326
00497               ADD MQTR-WAIVED-AMT (MQTR-ACCT-IDX)                 DTSBD326
00498                                        TO WRK-TOT-INT-WAIVED-AMT  DTSBD326
00499            END-IF                                                 DTSBD326
00500         END-IF                                                    DTSBD326
00501      END-IF.                                                      DTSBD326
00502                                                                   DTSBD326
00503  P3110-EXIT.                                                      DTSBD326
00504      EXIT.                                                        DTSBD326
00505      EJECT                                                        DTSBD326
00506  P4000-WRITE-MCMP-AND-REPORT.                                     DTSBD326
00507      MOVE WRK-TOT-BALANCE-AMT      TO MCMP-TOT-BALANCE-AMT        DTSBD326
00508                                       R436-SETTLEMENT-DUE-AMT.    DTSBD326
00509      MOVE WRK-TOT-TAX-WAIVED-AMT   TO MCMP-TAX-WAIVED-AMT         DTSBD326
00510                                       R436-TAX-WAIVED-AMT.        DTSBD326
00511      MOVE WRK-TOT-PEN-WAIVED-AMT   TO MCMP-PEN-WAIVED-AMT         DTSBD326
00512                                       R436-PEN-WAIVED-AMT.        DTSBD326
00513      MOVE WRK-TOT-INT-WAIVED-AMT   TO MCMP-INT-WAIVED-AMT         DTSBD326
00514                                       R436-INT-WAIVED-AMT.        DTSBD326
00515                                                                   DTSBD326
00516      PERFORM S946-WRITE-R436 THRU S946-EXIT.                      DTSBD326
00517                                                                   DTSBD326
00518      PERFORM P4100-WRITE-MEVL THRU P4100-EXIT.                    DTSBD326
00519                                                                   DTSBD326
00520      SET MCMP-STATUS-FINAL-88  TO TRUE.                           DTSBD326
00521                                                                   DTSBD326
00522      MOVE LBCM-CURR-RUN-DATE TO MCMP-CHNG-DATE.                   DTSBD326
00523                                                                   DTSBD326
00524      MOVE MCMP-REC TO MSKL-REC.                                   DTSBD326
00525                                                                   DTSBD326
00526      PERFORM S910-REWRITE THRU S910-EXIT.                         DTSBD326
00527  P4000-EXIT.                                                      DTSBD326
00528      EXIT.                                                        DTSBD326
00529      EJECT                                                        DTSBD326
00530  P4100-WRITE-MEVL.                                                DTSBD326
00531      MOVE LOW-VALUE TO MEVL-REC.                                  DTSBD326
00532                                                                   DTSBD326
00533      MOVE MPRF-EMP-NO TO MEVL-EMP-NO.                             DTSBD326
00534                                                                   DTSBD326
00535      SET MEVL-EVL-88 TO TRUE.                                     DTSBD326
00536                                                                   DTSBD326
00537      ADD +1000 TO LBCM-EMP-ABSTIME.                               DTSBD326
00538                                                                   DTSBD326
00539      MOVE LBCM-EMP-ABSTIME TO L005-ABSTIME.                       DTSBD326
00540                                                                   DTSBD326
00541      PERFORM S005-FROM-ABSTIME THRU S005-EXIT.                    DTSBD326
00542                                                                   DTSBD326
00543      MOVE L005-DATE TO MEVL-DATE.                                 DTSBD326
00544                                                                   DTSBD326
00545      MOVE L005-TIME TO MEVL-TIME.                                 DTSBD326
00546                                                                   DTSBD326
00547      MOVE +0 TO MEVL-PURGE-DATE.                                  DTSBD326
00548                                                                   DTSBD326
00549      MOVE WRK-EVENT-TXT TO MEVL-TEXT.                             DTSBD326
00550                                                                   DTSBD326
00551      SET MEVL-SOURCE-SYSTEM-88 TO TRUE.                           DTSBD326
00552                                                                   DTSBD326
00553      SET MEVL-NOT-CONVERTED-88 TO TRUE.                           DTSBD326
00554                                                                   DTSBD326
00555      MOVE LBCM-CURR-RUN-DATE TO MEVL-ESTB-DATE                    DTSBD326
00556                                 MEVL-CHNG-DATE.                   DTSBD326
00557                                                                   DTSBD326
00558      MOVE MEVL-REC TO MSKL-REC.                                   DTSBD326
00559                                                                   DTSBD326
00560      PERFORM S910-WRITE THRU S910-EXIT.                           DTSBD326
00561  P4100-EXIT.                                                      DTSBD326
00562      EXIT.                                                        DTSBD326
00563                                                                   DTSBD326
00564  P5000-UPDATE-MQTR.                                               DTSBD326
00565      MOVE LOW-VALUE TO MQTR-KEY-AREA.                             DTSBD326
00566      MOVE MPRF-EMP-NO TO MQTR-EMP-NO.                             DTSBD326
00567      SET MQTR-QTR-88 TO TRUE.                                     DTSBD326
00568                                                                   DTSBD326
00569      PERFORM P5100-PROCESS-MQTR THRU P5100-EXIT                   DTSBD326
00570          VARYING WRK-CNT FROM 1 BY 1                              DTSBD326
00571          UNTIL WRK-CNT > MCMP-COV-CNT.                            DTSBD326
00572                                                                   DTSBD326
00573  P5000-EXIT.                                                      DTSBD326
00574      EXIT.                                                        DTSBD326
00575                                                                   DTSBD326
00576  P5100-PROCESS-MQTR.                                              DTSBD326
00577      MOVE MCMP-COVERED-YRQ (WRK-CNT) TO MQTR-YRQ.                 DTSBD326
00578      MOVE MQTR-KEY-AREA              TO MSKL-KEY-AREA.            DTSBD326
00579                                                                   DTSBD326
00580      PERFORM S910-READ               THRU S910-EXIT.              DTSBD326
00581                                                                   DTSBD326
00582      IF L910-OK-88                                                DTSBD326
00583          MOVE MSKL-REC               TO MQTR-REC                  DTSBD326
00584          MOVE MCMP-ESTB-ABSTIME      TO MQTR-CMP-ESTB-ABSTIME     DTSBD326
00585          MOVE MQTR-REC               TO MSKL-REC                  DTSBD326
00586          PERFORM S910-REWRITE        THRU S910-EXIT               DTSBD326
00587      ELSE                                                         DTSBD326
00588          DISPLAY 'DTSBD326 CANNOT FIND MQTR ' MQTR-YRQ            DTSBD326
00589          PERFORM S999-ABEND THRU S999-EXIT                        DTSBD326
00590      END-IF.                                                      DTSBD326
00591                                                                   DTSBD326
00592  P5100-EXIT.                                                      DTSBD326
00593      EXIT.                                                        DTSBD326
00594                                                                   DTSBD326
00595  P6000-WRITE-TICKLER.                                             DTSBD326
00596      MOVE LOW-VALUE TO MTCK-REC.                                  DTSBD326
00597      MOVE MPRF-EMP-NO TO MTCK-EMP-NO.                             DTSBD326
00598      SET MTCK-TCK-88 TO TRUE.                                     DTSBD326
00599      MOVE LBCM-ABSTIME TO MTCK-ESTB-ABSTIME.                      DTSBD326
00600      MOVE +0 TO MTCK-PURGE-DATE.                                  DTSBD326
00601      INITIALIZE MTCK-DATA-AREA.                                   DTSBD326
00602      SET MTCK-TYPE-CMP-PEND-88 TO TRUE.                           DTSBD326
00603                                                                   DTSBD326
00604      MOVE LBCM-CURR-RUN-DATE    TO L001-FED-8-DATE-9.             DTSBD326
00605      SET L001-FROM-FED-8        TO TRUE.                          DTSBD326
00606      PERFORM S001-CONVERT-DATE  THRU S001-EXIT.                   DTSBD326
00607      ADD +1                     TO L001-JUL-ABS-DAY.              DTSBD326
00608      SET L001-FROM-ABS-DAY      TO TRUE.                          DTSBD326
00609      PERFORM S001-CONVERT-DATE  THRU S001-EXIT.                   DTSBD326
00610      MOVE L001-FED-8-DATE-9     TO MTCK-TRIGGER-DATE.             DTSBD326
00611                                                                   DTSBD326
00612      SET MTCK-SOURCE-SYSTEM-88 TO TRUE.                           DTSBD326
00613      SET MTCK-DEST-SYSTEM-88 TO TRUE.                             DTSBD326
00614      MOVE MCMP-ESTB-ABSTIME TO MTCK-CMP-ESTB-ABSTIME.             DTSBD326
00615      SET MTCK-NOT-CONVERTED-88 TO TRUE.                           DTSBD326
00616      MOVE LBCM-CURR-RUN-DATE TO MTCK-ESTB-DATE                    DTSBD326
00617                                 MTCK-CHNG-DATE.                   DTSBD326
00618      MOVE +0 TO MTCK-TEXT-CNT.                                    DTSBD326
00619      MOVE MTCK-REC TO MSKL-REC.                                   DTSBD326
00620      PERFORM S910-WRITE THRU S910-EXIT.                           DTSBD326
00621                                                                   DTSBD326
00622  P6000-EXIT.                                                      DTSBD326
00623      EXIT.                                                        DTSBD326
00624                                                                   DTSBD326
00625  P7000-WITHDRAW.                                                  DTSBD326
00626      DISPLAY 'P7000 ' MPRF-EMP-NO.                                DTSBD326
00627      PERFORM P7100-FIND-QTRS       THRU P7100-EXIT.               DTSBD326
00628      PERFORM P7200-EDIT-ADJ        THRU P7200-EXIT.               DTSBD326
00629      IF LBCM-TRN-OK-88                                            DTSBD326
00630         PERFORM P7300-WITHDRAW        THRU P7300-EXIT             DTSBD326
00631         IF LBCM-TRN-OK-88                                         DTSBD326
00632            PERFORM P7400-UPDATE-MQTR  THRU P7400-EXIT             DTSBD326
00633         END-IF                                                    DTSBD326
00634      END-IF.                                                      DTSBD326
00635                                                                   DTSBD326
00636  P7000-EXIT.                                                      DTSBD326
00637      EXIT.                                                        DTSBD326
00638                                                                   DTSBD326
00639  P7100-FIND-QTRS.                                                 DTSBD326
00640      PERFORM P7110-INIT-QTR-TBL  THRU P7110-EXIT.                 DTSBD326
00641                                                                   DTSBD326
00642      MOVE LOW-VALUE              TO MQTR-KEY-AREA.                DTSBD326
00643      MOVE MPRF-EMP-NO            TO MQTR-EMP-NO.                  DTSBD326
00644      SET MQTR-QTR-88             TO TRUE.                         DTSBD326
00645                                                                   DTSBD326
00646      PERFORM                                                      DTSBD326
00647        VARYING WRK-CNT FROM 1 BY 1                                DTSBD326
00648        UNTIL WRK-CNT > MCMP-COV-CNT                               DTSBD326
00649           MOVE MCMP-COVERED-YRQ (WRK-CNT) TO MQTR-YRQ             DTSBD326
00650           MOVE MQTR-KEY-AREA          TO MSKL-KEY-AREA            DTSBD326
00651           PERFORM S910-READ           THRU S910-EXIT              DTSBD326
00652           IF L910-OK-88                                           DTSBD326
00653              MOVE MSKL-REC            TO MQTR-REC                 DTSBD326
00654              MOVE MQTR-YRQ            TO WRK-QTR-YRQ (WRK-CNT)    DTSBD326
00655              PERFORM P7120-PROCESS-ACCT-AREA THRU P7120-EXIT      DTSBD326
00656           END-IF                                                  DTSBD326
00657      END-PERFORM.                                                 DTSBD326
00658                                                                   DTSBD326
00659  P7100-EXIT.                                                      DTSBD326
00660      EXIT.                                                        DTSBD326
00661                                                                   DTSBD326
00662  P7110-INIT-QTR-TBL.                                              DTSBD326
00663      PERFORM                                                      DTSBD326
00664        VARYING QTR-SUB FROM +1 BY +1                              DTSBD326
00665        UNTIL QTR-SUB > WRK-QTR-MAX                                DTSBD326
00666           MOVE +0              TO WRK-QTR-YRQ (QTR-SUB)           DTSBD326
00667                                   WRK-QTR-WAIVED-AMT (QTR-SUB)    DTSBD326
00668                                   WRK-QTR-REVERSE-AMT (QTR-SUB)   DTSBD326
00669      END-PERFORM.                                                 DTSBD326
00670                                                                   DTSBD326
00671  P7110-EXIT.                                                      DTSBD326
00672      EXIT.                                                        DTSBD326
00673                                                                   DTSBD326
00674  P7120-PROCESS-ACCT-AREA.                                         DTSBD326
00675      PERFORM                                                      DTSBD326
00676         VARYING MQTR-ACCT-IDX FROM 1 BY 1                         DTSBD326
00677         UNTIL MQTR-ACCT-IDX > MQTR-ACCT-CNT                       DTSBD326
00678            ADD MQTR-WAIVED-AMT (MQTR-ACCT-IDX)                    DTSBD326
00679                              TO WRK-QTR-WAIVED-AMT (WRK-CNT)      DTSBD326
00680      END-PERFORM.                                                 DTSBD326
00681                                                                   DTSBD326
00682  P7120-EXIT.                                                      DTSBD326
00683      EXIT.                                                        DTSBD326
00684                                                                   DTSBD326
00685  P7200-EDIT-ADJ.                                                  DTSBD326
00686      PERFORM P7210-INIT-REV-TBL  THRU P7210-EXIT.                 DTSBD326
00687                                                                   DTSBD326
00688      MOVE LOW-VALUE              TO MADJ-KEY-AREA.                DTSBD326
00689      MOVE MPRF-EMP-NO            TO MADJ-EMP-NO.                  DTSBD326
00690      SET MADJ-ADJ-88             TO TRUE.                         DTSBD326
00691                                                                   DTSBD326
00692      MOVE MADJ-KEY-AREA          TO MSKL-KEY-AREA.                DTSBD326
00693                                                                   DTSBD326
00694      PERFORM S910-START-BROWSE   THRU S910-EXIT.                  DTSBD326
00695                                                                   DTSBD326
00696      PERFORM                                                      DTSBD326
00697        UNTIL L910-NO-REC-88                                       DTSBD326
00698           MOVE MSKL-REC                  TO MADJ-REC              DTSBD326
00699           DISPLAY 'P7200 ' MPRF-EMP-NO '  ' MADJ-APPLIC-YRQ       DTSBD326
00700           IF MADJ-CMP-ESTB-ABSTIME      = MCMP-ESTB-ABSTIME       DTSBD326
00701              PERFORM P7220-ADD-TO-TBL    THRU P7220-EXIT          DTSBD326
00702           END-IF                                                  DTSBD326
00703           PERFORM S910-READ-NEXT         THRU S910-EXIT           DTSBD326
00704      END-PERFORM.                                                 DTSBD326
00705                                                                   DTSBD326
00706      PERFORM P7230-CHECK-QTRS    THRU P7230-EXIT.                 DTSBD326
00707                                                                   DTSBD326
00708  P7200-EXIT.                                                      DTSBD326
00709      EXIT.                                                        DTSBD326
00710                                                                   DTSBD326
00711  P7210-INIT-REV-TBL.                                              DTSBD326
00712      MOVE +0                       TO REV-CNT.                    DTSBD326
00713                                                                   DTSBD326
00714      PERFORM                                                      DTSBD326
00715        VARYING REV-SUB FROM +1 BY +1                              DTSBD326
00716        UNTIL REV-SUB > WRK-REV-MAX                                DTSBD326
00717           MOVE +0              TO WRK-REV-AMT (REV-SUB)           DTSBD326
00718                                   WRK-REV-APPLIC-YRQ (REV-SUB)    DTSBD326
00719           MOVE SPACES          TO WRK-REV-APPLIC-IND (REV-SUB)    DTSBD326
00720      END-PERFORM.                                                 DTSBD326
00721                                                                   DTSBD326
00722  P7210-EXIT.                                                      DTSBD326
00723      EXIT.                                                        DTSBD326
00724                                                                   DTSBD326
00725  P7220-ADD-TO-TBL.                                                DTSBD326
00726      IF REV-CNT < WRK-REV-MAX                                     DTSBD326
00727         ADD +1                   TO REV-CNT                       DTSBD326
00728      ELSE                                                         DTSBD326
00729         DISPLAY 'P7220 TABLE LENGTH EXCEEDED ' MPRF-EMP-NO        DTSBD326
00730         SET LBCM-TRN-NOT-OK-88   TO TRUE                          DTSBD326
00731         GO TO P7220-EXIT                                          DTSBD326
00732      END-IF.                                                      DTSBD326
00733                                                                   DTSBD326
00734      MOVE MADJ-AMT               TO WRK-REV-AMT (REV-CNT).        DTSBD326
00735      MOVE MADJ-APPLIC-YRQ        TO WRK-REV-APPLIC-YRQ (REV-CNT). DTSBD326
00736      MOVE MADJ-APPLIC-IND        TO WRK-REV-APPLIC-IND (REV-CNT). DTSBD326
00737                                                                   DTSBD326
00738      PERFORM P7221-UPD-QTR-TBL   THRU P7221-EXIT.                 DTSBD326
00739                                                                   DTSBD326
00740  P7220-EXIT.                                                      DTSBD326
00741      EXIT.                                                        DTSBD326
00742                                                                   DTSBD326
00743  P7221-UPD-QTR-TBL.                                               DTSBD326
00744      SET WRK-QTR-FOUND-NO-88       TO TRUE.                       DTSBD326
00745                                                                   DTSBD326
00746      PERFORM                                                      DTSBD326
00747        VARYING QTR-SUB FROM +1 BY +1                              DTSBD326
00748        UNTIL QTR-SUB > WRK-QTR-MAX                                DTSBD326
00749        OR WRK-QTR-FOUND-YES-88                                    DTSBD326
00750           IF WRK-QTR-YRQ (QTR-SUB)  =                             DTSBD326
00751                           WRK-REV-APPLIC-YRQ (REV-CNT)            DTSBD326
00752              SET WRK-QTR-FOUND-YES-88      TO TRUE                DTSBD326
00753              ADD MADJ-AMT TO                                      DTSBD326
00754                            WRK-QTR-REVERSE-AMT (QTR-SUB)          DTSBD326
00755           END-IF                                                  DTSBD326
00756      END-PERFORM.                                                 DTSBD326
00757                                                                   DTSBD326
00758  P7221-EXIT.                                                      DTSBD326
00759      EXIT.                                                        DTSBD326
00760                                                                   DTSBD326
00761  P7230-CHECK-QTRS.                                                DTSBD326
00762      PERFORM                                                      DTSBD326
00763        VARYING QTR-SUB FROM +1 BY +1                              DTSBD326
00764        UNTIL QTR-SUB > WRK-QTR-MAX                                DTSBD326
00765           IF WRK-QTR-WAIVED-AMT (QTR-SUB) NOT =                   DTSBD326
00766                                  WRK-QTR-REVERSE-AMT (QTR-SUB)    DTSBD326
00767              DISPLAY 'P7230: WAIVE '                              DTSBD326
00768                 WRK-QTR-WAIVED-AMT (QTR-SUB)                      DTSBD326
00769                 '  REV ' WRK-QTR-REVERSE-AMT (QTR-SUB)            DTSBD326
00770              SET LBCM-TRN-NOT-OK-88 TO TRUE                       DTSBD326
00771              MOVE MSG7-ADJ-EDIT-FAILED TO LBCM-TRN-MSG-AREA       DTSBD326
00772           END-IF                                                  DTSBD326
00773      END-PERFORM.                                                 DTSBD326
00774                                                                   DTSBD326
00775  P7230-EXIT.                                                      DTSBD326
00776      EXIT.                                                        DTSBD326
00777                                                                   DTSBD326
00778  P7300-WITHDRAW.                                                  DTSBD326
00779      PERFORM P7310-SCAN-TBL        THRU P7310-EXIT                DTSBD326
00780        VARYING REV-SUB FROM +1 BY +1                              DTSBD326
00781        UNTIL REV-SUB > REV-CNT.                                   DTSBD326
00782                                                                   DTSBD326
00783  P7300-EXIT.                                                      DTSBD326
00784      EXIT.                                                        DTSBD326
00785                                                                   DTSBD326
00786  P7310-SCAN-TBL.                                                  DTSBD326
00787      MOVE LOW-VALUES               TO AADJ-REC.                   DTSBD326
00788      SET AADJ-ADJ-88               TO TRUE.                       DTSBD326
00789      MOVE MPRF-PRIMARY-NAME (1:4)  TO AADJ-NAME-CHECK.            DTSBD326
00790      MOVE MPRF-EMP-NO              TO AADJ-EMP-NO.                DTSBD326
00791      SET AADJ-WAIVE-88             TO TRUE.                       DTSBD326
00792      MOVE LBCM-RECEIVED-DATE       TO AADJ-RECEIVED-DATE.         DTSBD326
00793      MOVE LBCM-DEPOSIT-DATE        TO AADJ-DEPOSIT-DATE.          DTSBD326
00794      MOVE WRK-REV-AMT (REV-SUB)    TO WRK-AMT.                    DTSBD326
00795      COMPUTE AADJ-AMT               = WRK-AMT * -1.               DTSBD326
00796      MOVE WRK-REV-APPLIC-YRQ (REV-SUB)  TO AADJ-APPLIC-YRQ.       DTSBD326
00797      MOVE WRK-REV-APPLIC-IND (REV-SUB)  TO AADJ-APPLIC-IND.       DTSBD326
00798      MOVE ZEROS                    TO AADJ-APPLIC-BATCH-NO        DTSBD326
00799                                       AADJ-APPLIC-ITEM-NO         DTSBD326
00800                                       AADJ-DATE-1                 DTSBD326
00801                                       AADJ-DATE-2                 DTSBD326
00802                                       AADJ-INT-RATE               DTSBD326
00803                                       AADJ-CMP-ESTB-ABSTIME.      DTSBD326
00804                                                                   DTSBD326
00805      MOVE 'N'                      TO AADJ-DISREGARD-EDITS-IND.   DTSBD326
00806      MOVE 'SYS'                    TO AADJ-RESPONSIBLE-ACTIVITY.  DTSBD326
00807      MOVE 'SYSTEM'                 TO AADJ-RESPONSIBLE-OP-ID.     DTSBD326
00808      SET AADJ-NOT-PROCESSED-88     TO TRUE.                       DTSBD326
00809                                                                   DTSBD326
00810      MOVE AADJ-AMT      TO WRK-AMT-DISP1.                         DTSBD326
00811       DISPLAY 'P7310 ' MPRF-EMP-NO '  ' AADJ-APPLIC-YRQ           DTSBD326
00812         '  AMT ' WRK-AMT-DISP1.                                   DTSBD326
00813                                                                   DTSBD326
00814      SET L501-EXT-TO-ACCT-88       TO TRUE.                       DTSBD326
00815      PERFORM S501-INTERNAL-ACCT-PROCESS THRU S501-EXIT.           DTSBD326
00816      IF L501-TRN-NOT-OK-88                                        DTSBD326
00817         DISPLAY 'L501 TRAN FAILED'                                DTSBD326
00818         SET LBCM-TRN-NOT-OK-88 TO TRUE                            DTSBD326
00819         MOVE MSG6-ADJ-FAILED   TO LBCM-TRN-MSG-AREA               DTSBD326
00820      END-IF.                                                      DTSBD326
00821                                                                   DTSBD326
00822  P7310-EXIT.                                                      DTSBD326
00823      EXIT.                                                        DTSBD326
00824                                                                   DTSBD326
00825  P7400-UPDATE-MQTR.                                               DTSBD326
00826      MOVE LOW-VALUE              TO MQTR-KEY-AREA.                DTSBD326
00827      MOVE MPRF-EMP-NO            TO MQTR-EMP-NO.                  DTSBD326
00828      SET MQTR-QTR-88             TO TRUE.                         DTSBD326
00829                                                                   DTSBD326
00830      PERFORM                                                      DTSBD326
00831        VARYING WRK-CNT FROM 1 BY 1                                DTSBD326
00832        UNTIL WRK-CNT > MCMP-COV-CNT                               DTSBD326
00833           MOVE MCMP-COVERED-YRQ (WRK-CNT) TO MQTR-YRQ             DTSBD326
00834           MOVE MQTR-KEY-AREA              TO MSKL-KEY-AREA        DTSBD326
00835           PERFORM S910-READ               THRU S910-EXIT          DTSBD326
00836           IF L910-OK-88                                           DTSBD326
00837              MOVE MSKL-REC                TO MQTR-REC             DTSBD326
00838              DISPLAY 'P7400 ' MPRF-EMP-NO '  ' MQTR-YRQ           DTSBD326
00839              MOVE ZERO                    TO MQTR-CMP-ESTB-ABSTIMEDTSBD326
00840              MOVE MQTR-REC                TO MSKL-REC             DTSBD326
00841              PERFORM S910-REWRITE         THRU S910-EXIT          DTSBD326
00842           ELSE                                                    DTSBD326
00843              PERFORM P7410-ERROR          THRU P7410-EXIT         DTSBD326
00844           END-IF                                                  DTSBD326
00845      END-PERFORM.                                                 DTSBD326
00846                                                                   DTSBD326
00847  P7400-EXIT.                                                      DTSBD326
00848      EXIT.                                                        DTSBD326
00849                                                                   DTSBD326
00850  P7410-ERROR.                                                     DTSBD326
00851      SET LBCM-TRN-NOT-OK-88   TO TRUE.                            DTSBD326
00852      MOVE MSG3-ID-2           TO R907-MSG-ID.                     DTSBD326
00853      MOVE MQTR-YRQ            TO L004-QTR-5-9.                    DTSBD326
00854      PERFORM S004-FROM-5      THRU S004-EXIT.                     DTSBD326
00855      MOVE L004-SLASH-5-QTR    TO MSG3-YRQ.                        DTSBD326
00856      MOVE MPRF-EMP-NO         TO R907-EMP-NO.                     DTSBD326
00857      MOVE MSG3-LONG-TEXT      TO R907-MSG-TEXT.                   DTSBD326
00858      PERFORM S946-WRITE-R907  THRU S946-EXIT.                     DTSBD326
00859                                                                   DTSBD326
00860  P7410-EXIT.                                                      DTSBD326
00861      EXIT.                                                        DTSBD326
00862                                                                   DTSBD326
00863  S1000-READ-SUBJECT-MCMP.                                         DTSBD326
00864      MOVE LOW-VALUE TO MCMP-KEY-AREA.                             DTSBD326
00865                                                                   DTSBD326
00866      MOVE MPRF-EMP-NO TO MCMP-EMP-NO.                             DTSBD326
00867                                                                   DTSBD326
00868      SET MCMP-CMP-88 TO TRUE.                                     DTSBD326
00869                                                                   DTSBD326
00870      MOVE T011-ESTB-ABSTIME TO MCMP-ESTB-ABSTIME.                 DTSBD326
00871                                                                   DTSBD326
00872      MOVE MCMP-KEY-AREA TO MSKL-KEY-AREA.                         DTSBD326
00873                                                                   DTSBD326
00874      PERFORM S910-READ THRU S910-EXIT.                            DTSBD326
00875                                                                   DTSBD326
00876      IF L910-OK-88                                                DTSBD326
00877          MOVE MSKL-REC TO MCMP-REC.                               DTSBD326
00878  S1000-EXIT.                                                      DTSBD326
00879      EXIT.                                                        DTSBD326
00880      EJECT                                                        DTSBD326
00881  S2000-DELETE-MTCK.                                               DTSBD326
00882      MOVE LOW-VALUE TO MSKL-KEY-AREA.                             DTSBD326
00883                                                                   DTSBD326
00884      MOVE MPRF-EMP-NO TO MSKL-EMP-NO.                             DTSBD326
00885                                                                   DTSBD326
00886      SET MSKL-TCK-88 TO TRUE.                                     DTSBD326
00887                                                                   DTSBD326
00888      PERFORM S910-START-BROWSE THRU S910-EXIT.                    DTSBD326
00889                                                                   DTSBD326
00890      PERFORM                                                      DTSBD326
00891        UNTIL L910-NO-REC-88                                       DTSBD326
00892          MOVE MSKL-REC TO MTCK-REC                                DTSBD326
00893          IF MTCK-TYPE-CMP-PEND-88                                 DTSBD326
00894                     AND                                           DTSBD326
00895             MTCK-CMP-ESTB-ABSTIME = T011-ESTB-ABSTIME             DTSBD326
00896              PERFORM S910-DELETE THRU S910-EXIT                   DTSBD326
00897          END-IF                                                   DTSBD326
00898          PERFORM S910-READ-NEXT THRU S910-EXIT                    DTSBD326
00899      END-PERFORM.                                                 DTSBD326
00900                                                                   DTSBD326
00901  S2000-EXIT.                                                      DTSBD326
00902      EXIT.                                                        DTSBD326
00903      EJECT                                                        DTSBD326
00904  S001-CONVERT-DATE.                                               DTSBD326
00905      CALL 'DTSBU001' USING L001-LINK-AREA.                        DTSBD326
00906  S001-EXIT. EXIT.                                                 DTSBD326
00907                                                                   DTSBD326
00908  S004-FROM-5.                                                     DTSBD326
00909      SET L004-FROM-5 TO TRUE.                                     DTSBD326
00910      GO TO S004-YRQ.                                              DTSBD326
00911                                                                   DTSBD326
00912  S004-YRQ.                                                        DTSBD326
00913      CALL 'DTSBU004' USING L004-LINK-AREA.                        DTSBD326
00914  S004-EXIT.                                                       DTSBD326
00915      EXIT.                                                        DTSBD326
00916      SKIP3                                                        DTSBD326
00917  S005-FROM-ABSTIME.                                               DTSBD326
00918      SET L005-FROM-ABSTIME TO TRUE.                               DTSBD326
00919      GO TO S005-TIME.                                             DTSBD326
00920                                                                   DTSBD326
00921  S005-TIME.                                                       DTSBD326
00922      CALL 'DTSBU005' USING L005-LINK-AREA.                        DTSBD326
00923  S005-EXIT.                                                       DTSBD326
00924      EXIT.                                                        DTSBD326
00925      SKIP3                                                        DTSBD326
00926  S101-PER-MONTH-NO.                                               DTSBD326
00927      SET L101-PER-MONTH-NO-88 TO TRUE.                            DTSBD326
00928      GO TO S101-INTEREST.                                         DTSBD326
00929                                                                   DTSBD326
00930  S101-INTEREST.                                                   DTSBD326
00931      CALL 'DTSBU101' USING L101-LINK-AREA.                        DTSBD326
00932  S101-EXIT.                                                       DTSBD326
00933      EXIT.                                                        DTSBD326
00934      SKIP3                                                        DTSBD326
00935  S501-INTERNAL-ACCT-PROCESS.                                      DTSBD326
00936      CALL 'DTSBU501' USING L501-LINK-AREA                         DTSBD326
00937                            LBCM-LINK-AREA                         DTSBD326
00938                            MPRF-REC                               DTSBD326
00939                            ASKL-REC.                              DTSBD326
00940  S501-EXIT.                                                       DTSBD326
00941      EXIT.                                                        DTSBD326
00942                                                                   DTSBD326
00943  S910-READ.                                                       DTSBD326
00944      SET L910-READ-88 TO TRUE.                                    DTSBD326
00945      GO TO S910-MSTR-IO.                                          DTSBD326
00946                                                                   DTSBD326
00947  S910-START-BROWSE.                                               DTSBD326
00948      SET L910-START-BROWSE-88 TO TRUE.                            DTSBD326
00949      GO TO S910-MSTR-IO.                                          DTSBD326
00950                                                                   DTSBD326
00951  S910-READ-NEXT.                                                  DTSBD326
00952      SET L910-READ-NEXT-88 TO TRUE.                               DTSBD326
00953      GO TO S910-MSTR-IO.                                          DTSBD326
00954                                                                   DTSBD326
00955  S910-DELETE.                                                     DTSBD326
00956      SET L910-DELETE-88 TO TRUE.                                  DTSBD326
00957      GO TO S910-MSTR-IO.                                          DTSBD326
00958                                                                   DTSBD326
00959  S910-WRITE.                                                      DTSBD326
00960      SET LBCM-EMP-UPDATE-YES-88 TO TRUE.                          DTSBD326
00961      SET L910-WRITE-88 TO TRUE.                                   DTSBD326
00962      GO TO S910-MSTR-IO.                                          DTSBD326
00963                                                                   DTSBD326
00964  S910-REWRITE.                                                    DTSBD326
00965      SET LBCM-EMP-UPDATE-YES-88 TO TRUE.                          DTSBD326
00966      SET L910-REWRITE-88 TO TRUE.                                 DTSBD326
00967      GO TO S910-MSTR-IO.                                          DTSBD326
00968                                                                   DTSBD326
00969 *S910-DELETE.                                                     DTSBD326
00970 *****SET LBCM-EMP-UPDATE-YES-88 TO TRUE.                          DTSBD326
00971 *****SET L910-DELETE-88 TO TRUE.                                  DTSBD326
00972 *****GO TO S910-MSTR-IO.                                          DTSBD326
00973                                                                   DTSBD326
00974  S910-MSTR-IO.                                                    DTSBD326
00975      CALL 'DTSBU910' USING L910-LINK-AREA                         DTSBD326
00976                            MSKL-REC.                              DTSBD326
00977  S910-EXIT.                                                       DTSBD326
00978      EXIT.                                                        DTSBD326
00979      SKIP3                                                        DTSBD326
00980  S946-WRITE-R436.                                                 DTSBD326
00981      CALL 'DTSBU946' USING R436-REC.                              DTSBD326
00982      GO TO S946-EXIT.                                             DTSBD326
00983                                                                   DTSBD326
00984  S946-WRITE-R907.                                                 DTSBD326
00985      CALL 'DTSBU946' USING R907-REC.                              DTSBD326
00986      GO TO S946-EXIT.                                             DTSBD326
00987                                                                   DTSBD326
00988  S946-EXIT.                                                       DTSBD326
00989      EXIT.                                                        DTSBD326
00990      SKIP3                                                        DTSBD326
00991  S999-ABEND.                                                      DTSBD326
00992      CALL 'DTSBU999' USING WRK-ABEND-CD.                          DTSBD326
00993  S999-EXIT.                                                       DTSBD326
00994      EXIT.                                                        DTSBD326
