00001  IDENTIFICATION DIVISION.                                         09/14/05
00002  PROGRAM-ID.             DTSBD324.                                DTSBD324
00003  AUTHOR.                 TRICOASTAL CONSULTING LTD.                  LV004
00004  DATE-WRITTEN.           MARCH 1995.                              DTSBD324
00005  DATE-COMPILED.                                                   DTSBD324
00006      SKIP3                                                        DTSBD324
00007 *****                                                             DTSBD324
00008 *                                                                 DTSBD324
00009 *    FUNCTION:  PENDING DEFERRED PAYMENT CONTRACT (DPC) TICKLER   DTSBD324
00010 *               PROCESSING.                                       DTSBD324
00011 *                                                                 DTSBD324
00012 *                                                                 DTSBD324
00013 *    MODIFICATION LOG:                                            DTSBD324
00014 *                                                                 DTSBD324
00015 *    03/20/95  INITIAL DEVELOPMENT.                               DTSBD324
00016 *              WORK ORDER:                      PROGRAMMER: TCL   DTSBD324
00017 *                                                                 DTSBD324
00018 *    01/30/1999  REVIEWED AND MODIFIED FOR DC.                    DTSBD324
00019 *                REFERENCE: DC DEVELOPMENT      PROGRAMMER: EHH   DTSBD324
00020 *                                                                 DTSBD324
00021 *    MM/DD/YYYY  XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX   DTSBD324
00022 *                XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX   DTSBD324
00023 *                REFERENCE: XXXXXXXXXXXXXXX     PROGRAMMER: XXX   DTSBD324
00024 *                                                                 DTSBD324
00025 *                                                                 DTSBD324
00026 *  DESCRIPTION:                                                   DTSBD324
00027 *                                                                 DTSBD324
00028 *      DELETE THE MTCK RECORD(S) ASSOCIATED WITH THIS T011        DTSBD324
00029 *      RECORD (MTCK-TYPE = 'DPC' AND MTCK-DPC-ESTB-ABSTIME =      DTSBD324
00030 *      T011-ESTB-ABSTIME).                                        DTSBD324
00031 *                                                                 DTSBD324
00032 *      READ THE MDPC RECORD INDICATED BY T011-ESTB-ABSTIME.       DTSBD324
00033 *                                                                 DTSBD324
00034 *      IF MDPC RECORD INDICATED BY T011-ESTB-ABSTIME DOES NOT     DTSBD324
00035 *      EXIST, THEN BYPASS THE TRANSACTION.                        DTSBD324
00036 *                                                                 DTSBD324
00037 *      IF THE DPC IS NOT PENDING, THEN BYPASS THE TRANSACTION.    DTSBD324
00038 *                                                                 DTSBD324
00039 *      IF THE DPC IS PENDING THEN:                                DTSBD324
00040 *                                                                 DTSBD324
00041 *       WRITE A MTCK RECORD (MTCK-TRIGGER-DATE =                  DTSBD324
00042 *       LBCM-CURR-RUN-DATE, MTCK-TYPE = 'MAN', MTCK-SOURCE-OP-ID =DTSBD324
00043 *       'SYSTEM', MTCK-DEST-OP-ID = MDPC-RESPONSIBLE-OP-ID,       DTSBD324
00044 *       MTCK-TEXT = 'HAS THE EMPLOYER SIGNED THE DPC?'            DTSBD324
00045 *                                                                 DTSBD324
00046 *       WRITE A MTCK RECORD (MTCK-TRIGGER-DATE =                  DTSBD324
00047 *       LBCM-CURR-RUN-DATE + 14 DAYS, MTCK-TYPE = 'DPC',          DTSBD324
00048 *       MTCK-SOURCE-OP-ID = 'SYSTEM', MTCK-DEST-OP-ID = 'SYSTEM', DTSBD324
00049 *       AND MTCK-DPC-ESTB-ABSTIME = MDPC-ESTB-ABSTIME.            DTSBD324
00050 *                                                                 DTSBD324
00051 *                                                                 DTSBD324
00052 *      MASTER FILE RECORDS READ:                                  DTSBD324
00053 *                                                                 DTSBD324
00054 *        MDPC                                                     DTSBD324
00055 *        MTCK                                                     DTSBD324
00056 *                                                                 DTSBD324
00057 *                                                                 DTSBD324
00058 *      MASTER FILE RECORDS UPDATED:                               DTSBD324
00059 *                                                                 DTSBD324
00060 *        MTCK (DELETE, WRITE).                                    DTSBD324
00061 *                                                                 DTSBD324
00062 *                                                                 DTSBD324
00063 *      REPORT RECORDS WRITTEN:                                    DTSBD324
00064 *                                                                 DTSBD324
00065 *        NONE.                                                    DTSBD324
00066 *                                                                 DTSBD324
00067 *                                                                 DTSBD324
00068 *      MODULES CALLED:                                            DTSBD324
00069 *                                                                 DTSBD324
00070 *        DTSBU001 DATE CONVERT.                                   DTSBD324
00071 *        DTSBU910 MASTER FILE I/O DRIVER.                         DTSBD324
00072 *                                                                 DTSBD324
00073 *                                                                 DTSBD324
00074 *****                                                             DTSBD324
00075      SKIP3                                                        DTSBD324
00076  ENVIRONMENT DIVISION.                                            DTSBD324
00077      SKIP3                                                        DTSBD324
00078  DATA DIVISION.                                                   DTSBD324
00079      SKIP3                                                        DTSBD324
00080  WORKING-STORAGE SECTION.                                         DTSBD324
000805 77  PAN-VALET PICTURE X(24) VALUE '004DTSBD324  09/14/05'.       DTSBD324
00081      SKIP3                                                        DTSBD324
00082  01  WRK-AREA.                                                    DTSBD324
00083      05  WRK-ABEND-CD                PIC S9(04)  COMP  VALUE +324.DTSBD324
00084                                                                   DTSBD324
00085      05  WRK-MOD-NAME                PIC  X(08)  VALUE 'DTSBD324'.DTSBD324
00086                                                                   DTSBD324
00087      05  FIRST-TIME-IND              PIC  X(01)        VALUE 'Y'. DTSBD324
00088      SKIP3                                                        DTSBD324
00089  01  L001-LINK-AREA.                                              DTSBD324
00090  ++INCLUDE DTSIL001                                               DTSBD324
00091      EJECT                                                        DTSBD324
00092  01  L910-LINK-AREA.                                              DTSBD324
00093  ++INCLUDE DTSIL910                                               DTSBD324
00094      SKIP3                                                        DTSBD324
00095  01  MSKL-REC.                                                    DTSBD324
00096  ++INCLUDE DTSIMSKL                                               DTSBD324
00097      SKIP3                                                        DTSBD324
00098  01  MDPC-REC.                                                    DTSBD324
00099  ++INCLUDE DTSIMDPC                                               DTSBD324
00100      SKIP3                                                        DTSBD324
00101  01  MTCK-REC.                                                    DTSBD324
00102  ++INCLUDE DTSIMTCK                                               DTSBD324
00103      EJECT                                                        DTSBD324
00104  LINKAGE SECTION.                                                 DTSBD324
00105      SKIP3                                                        DTSBD324
00106  01  LBCM-LINK-AREA.                                              DTSBD324
00107  ++INCLUDE DTSILBCM                                               DTSBD324
00108      EJECT                                                        DTSBD324
00109  01  MPRF-REC.                                                    DTSBD324
00110  ++INCLUDE DTSIMPRF                                               DTSBD324
00111      EJECT                                                        DTSBD324
00112  01  T011-REC.                                                    DTSBD324
00113  ++INCLUDE DTSIT011                                               DTSBD324
00114      EJECT                                                        DTSBD324
00115  PROCEDURE DIVISION USING LBCM-LINK-AREA                          DTSBD324
00116                           MPRF-REC                                DTSBD324
00117                           T011-REC.                               DTSBD324
00118                                                                   DTSBD324
00119                                                                   DTSBD324
00120      IF FIRST-TIME-IND = 'Y'                                      DTSBD324
00121          PERFORM I0000-FIRST-TIME THRU I0000-EXIT                 DTSBD324
00122          MOVE 'N' TO FIRST-TIME-IND.                              DTSBD324
00123      SKIP3                                                        DTSBD324
00124      IF T011-DPC-TCK                                              DTSBD324
00125          PERFORM P0000-PROCESS THRU P0000-EXIT                    DTSBD324
00126      ELSE                                                         DTSBD324
00127          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBD324
00128                                                                   DTSBD324
00129                                                                   DTSBD324
00130      GOBACK.                                                      DTSBD324
00131      EJECT                                                        DTSBD324
00132  I0000-FIRST-TIME.                                                DTSBD324
00133      MOVE LBCM-TRACE-IND TO L910-TRACE-IND.                       DTSBD324
00134                                                                   DTSBD324
00135      MOVE WRK-MOD-NAME TO L910-MOD-NAME.                          DTSBD324
00136  I0000-EXIT.                                                      DTSBD324
00137      EXIT.                                                        DTSBD324
00138      EJECT                                                        DTSBD324
00139  P0000-PROCESS.                                                   DTSBD324
00140      MOVE LOW-VALUE TO MSKL-KEY-AREA.                             DTSBD324
00141                                                                   DTSBD324
00142      MOVE MPRF-EMP-NO TO MSKL-EMP-NO.                             DTSBD324
00143                                                                   DTSBD324
00144      SET MSKL-TCK-88 TO TRUE.                                     DTSBD324
00145                                                                   DTSBD324
00146      PERFORM S910-START-BROWSE THRU S910-EXIT.                    DTSBD324
00147                                                                   DTSBD324
00148      PERFORM                                                      DTSBD324
00149        UNTIL L910-NO-REC-88                                       DTSBD324
00150          MOVE MSKL-REC TO MTCK-REC                                DTSBD324
00151          IF MTCK-TYPE-DPC-PEND-88                                 DTSBD324
00152                     AND                                           DTSBD324
00153             MTCK-DPC-ESTB-ABSTIME = T011-ESTB-ABSTIME             DTSBD324
00154              PERFORM S910-DELETE THRU S910-EXIT                   DTSBD324
00155          END-IF                                                   DTSBD324
00156          PERFORM S910-READ-NEXT THRU S910-EXIT                    DTSBD324
00157      END-PERFORM.                                                 DTSBD324
00158                                                                   DTSBD324
00159                                                                   DTSBD324
00160      MOVE LOW-VALUE TO MDPC-KEY-AREA.                             DTSBD324
00161                                                                   DTSBD324
00162      MOVE MPRF-EMP-NO TO MDPC-EMP-NO.                             DTSBD324
00163                                                                   DTSBD324
00164      SET MDPC-DPC-88 TO TRUE.                                     DTSBD324
00165                                                                   DTSBD324
00166      MOVE T011-ESTB-ABSTIME TO MDPC-ESTB-ABSTIME.                 DTSBD324
00167                                                                   DTSBD324
00168      MOVE MDPC-KEY-AREA TO MSKL-KEY-AREA.                         DTSBD324
00169                                                                   DTSBD324
00170      PERFORM S910-READ THRU S910-EXIT.                            DTSBD324
00171                                                                   DTSBD324
00172      MOVE MSKL-REC TO MDPC-REC.                                   DTSBD324
00173                                                                   DTSBD324
00174      IF L910-OK-88                                                DTSBD324
00175              AND                                                  DTSBD324
00176         MDPC-STATUS-PENDING-88                                    DTSBD324
00177          NEXT SENTENCE                                            DTSBD324
00178      ELSE                                                         DTSBD324
00179          GO TO P0000-EXIT.                                        DTSBD324
00180                                                                   DTSBD324
00181                                                                   DTSBD324
00182      ADD +1 TO LBCM-EMP-ABSTIME.                                  DTSBD324
00183                                                                   DTSBD324
00184                                                                   DTSBD324
00185      MOVE LOW-VALUE TO MTCK-REC.                                  DTSBD324
00186                                                                   DTSBD324
00187      MOVE MPRF-EMP-NO TO MTCK-EMP-NO.                             DTSBD324
00188                                                                   DTSBD324
00189      SET MTCK-TCK-88 TO TRUE.                                     DTSBD324
00190                                                                   DTSBD324
00191      MOVE LBCM-EMP-ABSTIME TO MTCK-ESTB-ABSTIME.                  DTSBD324
00192                                                                   DTSBD324
00193      MOVE +0 TO MTCK-PURGE-DATE.                                  DTSBD324
00194                                                                   DTSBD324
00195      INITIALIZE MTCK-DATA-AREA.                                   DTSBD324
00196                                                                   DTSBD324
00197      SET MTCK-TYPE-MANUAL-88 TO TRUE.                             DTSBD324
00198                                                                   DTSBD324
00199      MOVE LBCM-CURR-RUN-DATE TO MTCK-TRIGGER-DATE.                DTSBD324
00200                                                                   DTSBD324
00201      SET MTCK-SOURCE-SYSTEM-88 TO TRUE.                           DTSBD324
00202                                                                   DTSBD324
00203      MOVE MDPC-RESPONSIBLE-OP-ID TO MTCK-DEST-OP-ID.              DTSBD324
00204                                                                   DTSBD324
00205      SET MTCK-NOT-CONVERTED-88 TO TRUE.                           DTSBD324
00206                                                                   DTSBD324
00207      MOVE LBCM-CURR-RUN-DATE TO MTCK-ESTB-DATE                    DTSBD324
00208                                 MTCK-CHNG-DATE.                   DTSBD324
00209                                                                   DTSBD324
00210      MOVE +2 TO MTCK-TEXT-CNT.                                    DTSBD324
00211                                                                   DTSBD324
00212      MOVE 'HAS THE EMPLOYER SIGNED THE DEFERRED'                  DTSBD324
00213        TO MTCK-TEXT (1).                                          DTSBD324
00214                                                                   DTSBD324
00215      MOVE 'PAYMENT CONTRACT?'                                     DTSBD324
00216        TO MTCK-TEXT (2).                                          DTSBD324
00217                                                                   DTSBD324
00218      MOVE MTCK-REC TO MSKL-REC.                                   DTSBD324
00219                                                                   DTSBD324
00220      PERFORM S910-WRITE THRU S910-EXIT.                           DTSBD324
00221                                                                   DTSBD324
00222                                                                   DTSBD324
00223      ADD +1 TO LBCM-EMP-ABSTIME.                                  DTSBD324
00224                                                                   DTSBD324
00225                                                                   DTSBD324
00226      MOVE LOW-VALUE TO MTCK-REC.                                  DTSBD324
00227                                                                   DTSBD324
00228      MOVE MPRF-EMP-NO TO MTCK-EMP-NO.                             DTSBD324
00229                                                                   DTSBD324
00230      SET MTCK-TCK-88 TO TRUE.                                     DTSBD324
00231                                                                   DTSBD324
00232      MOVE LBCM-EMP-ABSTIME TO MTCK-ESTB-ABSTIME.                  DTSBD324
00233                                                                   DTSBD324
00234      MOVE +0 TO MTCK-PURGE-DATE.                                  DTSBD324
00235                                                                   DTSBD324
00236      INITIALIZE MTCK-DATA-AREA.                                   DTSBD324
00237                                                                   DTSBD324
00238      SET MTCK-TYPE-DPC-PEND-88 TO TRUE.                           DTSBD324
00239                                                                   DTSBD324
00240      MOVE LBCM-CURR-RUN-DATE TO L001-FED-8-DATE-9.                DTSBD324
00241                                                                   DTSBD324
00242      PERFORM S001-FROM-FED-8 THRU S001-EXIT.                      DTSBD324
00243                                                                   DTSBD324
00244      ADD +14 TO L001-JUL-ABS-DAY.                                 DTSBD324
00245                                                                   DTSBD324
00246      PERFORM S001-FROM-ABS-DATE THRU S001-EXIT.                   DTSBD324
00247                                                                   DTSBD324
00248      MOVE L001-FED-8-DATE-9 TO MTCK-TRIGGER-DATE                  DTSBD324
00249                                                                   DTSBD324
00250      SET MTCK-SOURCE-SYSTEM-88 TO TRUE.                           DTSBD324
00251                                                                   DTSBD324
00252      SET MTCK-DEST-SYSTEM-88 TO TRUE.                             DTSBD324
00253                                                                   DTSBD324
00254      MOVE MDPC-ESTB-ABSTIME TO MTCK-DPC-ESTB-ABSTIME.             DTSBD324
00255                                                                   DTSBD324
00256      SET MTCK-NOT-CONVERTED-88 TO TRUE.                           DTSBD324
00257                                                                   DTSBD324
00258      MOVE LBCM-CURR-RUN-DATE TO MTCK-ESTB-DATE                    DTSBD324
00259                                 MTCK-CHNG-DATE.                   DTSBD324
00260                                                                   DTSBD324
00261      MOVE +0 TO MTCK-TEXT-CNT.                                    DTSBD324
00262                                                                   DTSBD324
00263      MOVE MTCK-REC TO MSKL-REC.                                   DTSBD324
00264                                                                   DTSBD324
00265      PERFORM S910-WRITE THRU S910-EXIT.                           DTSBD324
00266  P0000-EXIT.                                                      DTSBD324
00267      EXIT.                                                        DTSBD324
00268      EJECT                                                        DTSBD324
00269  S001-FROM-FED-8.                                                 DTSBD324
00270      SET L001-FROM-FED-8 TO TRUE.                                 DTSBD324
00271      GO TO S001-DATE.                                             DTSBD324
00272                                                                   DTSBD324
00273  S001-FROM-ABS-DATE.                                              DTSBD324
00274      SET L001-FROM-ABS-DAY TO TRUE.                               DTSBD324
00275      GO TO S001-DATE.                                             DTSBD324
00276                                                                   DTSBD324
00277  S001-DATE.                                                       DTSBD324
00278      CALL 'DTSBU001' USING L001-LINK-AREA.                        DTSBD324
00279  S001-EXIT.                                                       DTSBD324
00280      EXIT.                                                        DTSBD324
00281      SKIP3                                                        DTSBD324
00282  S910-READ.                                                       DTSBD324
00283      SET L910-READ-88 TO TRUE.                                    DTSBD324
00284      GO TO S910-MSTR-IO.                                          DTSBD324
00285                                                                   DTSBD324
00286  S910-START-BROWSE.                                               DTSBD324
00287      SET L910-START-BROWSE-88 TO TRUE.                            DTSBD324
00288      GO TO S910-MSTR-IO.                                          DTSBD324
00289                                                                   DTSBD324
00290  S910-READ-NEXT.                                                  DTSBD324
00291      SET L910-READ-NEXT-88 TO TRUE.                               DTSBD324
00292      GO TO S910-MSTR-IO.                                          DTSBD324
00293                                                                   DTSBD324
00294 *S910-COUNT.                                                      DTSBD324
00295 *****SET L910-COUNT-88 TO TRUE.                                   DTSBD324
00296 *****GO TO S910-MSTR-IO.                                          DTSBD324
00297                                                                   DTSBD324
00298  S910-WRITE.                                                      DTSBD324
00299      SET LBCM-EMP-UPDATE-YES-88 TO TRUE.                          DTSBD324
00300      SET L910-WRITE-88 TO TRUE.                                   DTSBD324
00301      GO TO S910-MSTR-IO.                                          DTSBD324
00302                                                                   DTSBD324
00303 *S910-REWRITE.                                                    DTSBD324
00304 *****SET LBCM-EMP-UPDATE-YES-88 TO TRUE.                          DTSBD324
00305 *****SET L910-REWRITE-88 TO TRUE.                                 DTSBD324
00306 *****GO TO S910-MSTR-IO.                                          DTSBD324
00307                                                                   DTSBD324
00308  S910-DELETE.                                                     DTSBD324
00309      SET LBCM-EMP-UPDATE-YES-88 TO TRUE.                          DTSBD324
00310      SET L910-DELETE-88 TO TRUE.                                  DTSBD324
00311      GO TO S910-MSTR-IO.                                          DTSBD324
00312                                                                   DTSBD324
00313  S910-MSTR-IO.                                                    DTSBD324
00314      CALL 'DTSBU910' USING L910-LINK-AREA                         DTSBD324
00315                            MSKL-REC.                              DTSBD324
00316  S910-EXIT.                                                       DTSBD324
00317      EXIT.                                                        DTSBD324
00318      SKIP3                                                        DTSBD324
00319  S999-ABEND.                                                      DTSBD324
00320      CALL 'DTSBU999' USING WRK-ABEND-CD.                          DTSBD324
00321  S999-EXIT.                                                       DTSBD324
00322      EXIT.                                                        DTSBD324
