00001  IDENTIFICATION DIVISION.                                         09/14/05
00002  PROGRAM-ID.             DTSBD322.                                DTSBD322
00003  AUTHOR.                 TRICOASTAL CONSULTING LTD.                  LV008
00004  DATE-WRITTEN.           SEPTEMBER 1994.                          DTSBD322
00005  DATE-COMPILED.                                                   DTSBD322
00006      SKIP3                                                        DTSBD322
00007 *****                                                             DTSBD322
00008 *                                                                 DTSBD322
00009 *    FUNCTION:  LIEN TICKLER PROCESSING.                          DTSBD322
00010 *                                                                 DTSBD322
00011 *                                                                 DTSBD322
00012 *    MODIFICATION LOG:                                            DTSBD322
00013 *                                                                 DTSBD322
00014 *    09/22/94  INITIAL DEVELOPMENT.                               DTSBD322
00015 *              WORK ORDER:                      PROGRAMMER: RHC   DTSBD322
00016 *                                                                 DTSBD322
00017 *    01/30/1999  REVIEWED AND MODIFIED FOR DC.                    DTSBD322
00018 *                REFERENCE: DC DEVELOPMENT      PROGRAMMER: EHH   DTSBD322
00019 *                                                                 DTSBD322
00020 *                                                                 DTSBD322
00021 *  DESCRIPTION:                                                   DTSBD322
00022 *                                                                 DTSBD322
00023 *      DELETE THE MTCK RECORD(S) ASSOCIATED WITH THIS T011        DTSBD322
00024 *      RECORD (MTCK-TYPE = 'L01' AND MTCK-L01-ESTB-ABSTIME =      DTSBD322
00025 *      T011-ESTB-ABSTIME).                                        DTSBD322
00026 *                                                                 DTSBD322
00027 *      READ THE MLIN RECORD INDICATED BY T011-ESTB-ABSTIME.       DTSBD322
00028 *                                                                 DTSBD322
00029 *      IF MLIN RECORD INDICATED BY T011-ESTB-ABSTIME DOES NOT     DTSBD322
00030 *      EXIST, THEN BYPASS THE TRANSACTION.                        DTSBD322
00031 *                                                                 DTSBD322
00032 *      IF THE LIEN IS NOT ACTIVE, THEN BYPASS THE TRANSACTION.    DTSBD322
00033 *                                                                 DTSBD322
00034 *      IF MLIN-CERTIFICATE-DATE = 0, THEN WRITE A MTCK RECORD     DTSBD322
00035 *      (MTCK-TRIGGER-DATE = LBCM-CURR-RUN-DATE,                   DTSBD322
00036 *      MTCK-TYPE = 'MAN', MTCK-SOURCE-OP-ID =                     DTSBD322
00037 *      'SYSTEM', MTCK-DEST-OP-ID = 'COLLECT', MTCK-TEXT =         DTSBD322
00038 *      'OUR LIEN IS NOT RECORDED.  CERTIFICATE: XX XXXX'.         DTSBD322
00039 *                                                                 DTSBD322
00040 *                                                                 DTSBD322
00041 *      MASTER FILE RECORDS READ:                                  DTSBD322
00042 *                                                                 DTSBD322
00043 *        MLIN                                                     DTSBD322
00044 *        MTCK                                                     DTSBD322
00045 *                                                                 DTSBD322
00046 *                                                                 DTSBD322
00047 *      MASTER FILE RECORDS UPDATED:                               DTSBD322
00048 *                                                                 DTSBD322
00049 *        MTCK (DELETE, WRITE).                                    DTSBD322
00050 *                                                                 DTSBD322
00051 *                                                                 DTSBD322
00052 *      REPORT RECORDS WRITTEN:                                    DTSBD322
00053 *                                                                 DTSBD322
00054 *        NONE.                                                    DTSBD322
00055 *                                                                 DTSBD322
00056 *                                                                 DTSBD322
00057 *      MODULES CALLED:                                            DTSBD322
00058 *                                                                 DTSBD322
00059 *        DTSBU910 MASTER FILE I/O DRIVER.                         DTSBD322
00060 *        DTSBU946 VARIABLE LENGTH RECORD SEQUENTIAL OUTPUT 1.     DTSBD322
00061 *                                                                 DTSBD322
00062 *                                                                 DTSBD322
00063 *****                                                             DTSBD322
00064      SKIP3                                                        DTSBD322
00065  ENVIRONMENT DIVISION.                                            DTSBD322
00066      SKIP3                                                        DTSBD322
00067  DATA DIVISION.                                                   DTSBD322
00068      SKIP3                                                        DTSBD322
00069  WORKING-STORAGE SECTION.                                         DTSBD322
000695 77  PAN-VALET PICTURE X(24) VALUE '008DTSBD322  09/14/05'.       DTSBD322
00070      SKIP3                                                        DTSBD322
00071  01  WRK-AREA.                                                    DTSBD322
00072      05  WRK-ABEND-CD                PIC S9(04)  COMP  VALUE +322.DTSBD322
00073                                                                   DTSBD322
00074      05  WRK-MOD-NAME                PIC  X(08)  VALUE 'DTSBD322'.DTSBD322
00075                                                                   DTSBD322
00076      05  FIRST-TIME-IND              PIC  X(01)        VALUE 'Y'. DTSBD322
00077                                                                   DTSBD322
00078                                                                   DTSBD322
00079      05  WRK-TEXT.                                                DTSBD322
00080          10  FILLER                  PIC  X(40)                   DTSBD322
00081                VALUE 'OUR LIEN IS NOT RECORDED.  CERTIFICATE: '.  DTSBD322
00082          10  WRK-CERTIFICATE-NO      PIC  99B9999.                DTSBD322
00083      EJECT                                                        DTSBD322
00084  01  L910-LINK-AREA.                                              DTSBD322
00085  ++INCLUDE DTSIL910                                               DTSBD322
00086      SKIP3                                                        DTSBD322
00087  01  MSKL-REC.                                                    DTSBD322
00088  ++INCLUDE DTSIMSKL                                               DTSBD322
00089      SKIP3                                                        DTSBD322
00090  01  MLIN-REC.                                                    DTSBD322
00091  ++INCLUDE DTSIMLIN                                               DTSBD322
00092      SKIP3                                                        DTSBD322
00093  01  MTCK-REC.                                                    DTSBD322
00094  ++INCLUDE DTSIMTCK                                               DTSBD322
00095      EJECT                                                        DTSBD322
00096  LINKAGE SECTION.                                                 DTSBD322
00097      SKIP3                                                        DTSBD322
00098  01  LBCM-LINK-AREA.                                              DTSBD322
00099  ++INCLUDE DTSILBCM                                               DTSBD322
00100      EJECT                                                        DTSBD322
00101  01  MPRF-REC.                                                    DTSBD322
00102  ++INCLUDE DTSIMPRF                                               DTSBD322
00103      EJECT                                                        DTSBD322
00104  01  T011-REC.                                                    DTSBD322
00105  ++INCLUDE DTSIT011                                               DTSBD322
00106      EJECT                                                        DTSBD322
00107  PROCEDURE DIVISION USING LBCM-LINK-AREA                          DTSBD322
00108                           MPRF-REC                                DTSBD322
00109                           T011-REC.                               DTSBD322
00110                                                                   DTSBD322
00111      IF FIRST-TIME-IND = 'Y'                                      DTSBD322
00112          PERFORM I0000-FIRST-TIME THRU I0000-EXIT                 DTSBD322
00113          MOVE 'N' TO FIRST-TIME-IND.                              DTSBD322
00114                                                                   DTSBD322
00115                                                                   DTSBD322
00116      IF T011-LIN-TCK                                              DTSBD322
00117          PERFORM P0000-PROCESS THRU P0000-EXIT                    DTSBD322
00118      ELSE                                                         DTSBD322
00119          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBD322
00120                                                                   DTSBD322
00121                                                                   DTSBD322
00122      GOBACK.                                                      DTSBD322
00123      EJECT                                                        DTSBD322
00124  I0000-FIRST-TIME.                                                DTSBD322
00125      MOVE LBCM-TRACE-IND TO L910-TRACE-IND.                       DTSBD322
00126                                                                   DTSBD322
00127      MOVE WRK-MOD-NAME TO L910-MOD-NAME.                          DTSBD322
00128  I0000-EXIT.                                                      DTSBD322
00129      EXIT.                                                        DTSBD322
00130      EJECT                                                        DTSBD322
00131  P0000-PROCESS.                                                   DTSBD322
00132      MOVE LOW-VALUE TO MSKL-KEY-AREA.                             DTSBD322
00133                                                                   DTSBD322
00134      MOVE MPRF-EMP-NO TO MSKL-EMP-NO.                             DTSBD322
00135                                                                   DTSBD322
00136      SET MSKL-TCK-88 TO TRUE.                                     DTSBD322
00137                                                                   DTSBD322
00138      PERFORM S910-START-BROWSE THRU S910-EXIT.                    DTSBD322
00139                                                                   DTSBD322
00140      PERFORM                                                      DTSBD322
00141        UNTIL L910-NO-REC-88                                       DTSBD322
00142          MOVE MSKL-REC TO MTCK-REC                                DTSBD322
00143          IF MTCK-TYPE-LIEN-88                                     DTSBD322
00144                  AND                                              DTSBD322
00145             MTCK-L01-ESTB-ABSTIME = T011-ESTB-ABSTIME             DTSBD322
00146              PERFORM S910-DELETE THRU S910-EXIT                   DTSBD322
00147          END-IF                                                   DTSBD322
00148          PERFORM S910-READ-NEXT THRU S910-EXIT                    DTSBD322
00149      END-PERFORM.                                                 DTSBD322
00150                                                                   DTSBD322
00151                                                                   DTSBD322
00152      MOVE LOW-VALUE TO MLIN-KEY-AREA.                             DTSBD322
00153                                                                   DTSBD322
00154      MOVE MPRF-EMP-NO TO MLIN-EMP-NO.                             DTSBD322
00155                                                                   DTSBD322
00156      SET MLIN-LIN-88 TO TRUE.                                     DTSBD322
00157                                                                   DTSBD322
00158      MOVE T011-ESTB-ABSTIME TO MLIN-ESTB-ABSTIME.                 DTSBD322
00159                                                                   DTSBD322
00160      MOVE MLIN-KEY-AREA TO MSKL-KEY-AREA.                         DTSBD322
00161                                                                   DTSBD322
00162      PERFORM S910-READ THRU S910-EXIT.                            DTSBD322
00163                                                                   DTSBD322
00164      MOVE MSKL-REC TO MLIN-REC.                                   DTSBD322
00165                                                                   DTSBD322
00166      IF L910-OK-88                                                DTSBD322
00167              AND                                                  DTSBD322
00168         MLIN-STATUS-ACTIVE-88                                     DTSBD322
00169              AND                                                  DTSBD322
00170         MLIN-CERTIFICATE-DATE = +0                                DTSBD322
00171          NEXT SENTENCE                                            DTSBD322
00172      ELSE                                                         DTSBD322
00173          GO TO P0000-EXIT.                                        DTSBD322
00174                                                                   DTSBD322
00175                                                                   DTSBD322
00176      ADD +1 TO LBCM-EMP-ABSTIME.                                  DTSBD322
00177                                                                   DTSBD322
00178                                                                   DTSBD322
00179      MOVE LOW-VALUE TO MTCK-REC.                                  DTSBD322
00180                                                                   DTSBD322
00181      MOVE MPRF-EMP-NO TO MTCK-EMP-NO.                             DTSBD322
00182                                                                   DTSBD322
00183      SET MTCK-TCK-88 TO TRUE.                                     DTSBD322
00184                                                                   DTSBD322
00185      MOVE LBCM-EMP-ABSTIME TO MTCK-ESTB-ABSTIME.                  DTSBD322
00186                                                                   DTSBD322
00187      MOVE +0 TO MTCK-PURGE-DATE.                                  DTSBD322
00188                                                                   DTSBD322
00189      INITIALIZE MTCK-DATA-AREA.                                   DTSBD322
00190                                                                   DTSBD322
00191      SET MTCK-TYPE-MANUAL-88 TO TRUE.                             DTSBD322
00192                                                                   DTSBD322
00193      MOVE LBCM-CURR-RUN-DATE TO MTCK-TRIGGER-DATE.                DTSBD322
00194                                                                   DTSBD322
00195      SET MTCK-SOURCE-SYSTEM-88 TO TRUE.                           DTSBD322
00196                                                                   DTSBD322
00197      MOVE 'COLLECT' TO MTCK-DEST-OP-ID.                           DTSBD322
00198                                                                   DTSBD322
00199      SET MTCK-NOT-CONVERTED-88 TO TRUE.                           DTSBD322
00200                                                                   DTSBD322
00201      MOVE LBCM-CURR-RUN-DATE TO MTCK-ESTB-DATE                    DTSBD322
00202                                 MTCK-CHNG-DATE.                   DTSBD322
00203                                                                   DTSBD322
00204      MOVE +1 TO MTCK-TEXT-CNT.                                    DTSBD322
00205                                                                   DTSBD322
00206      MOVE MLIN-CERTIFICATE-NO TO WRK-CERTIFICATE-NO.              DTSBD322
00207                                                                   DTSBD322
00208      MOVE WRK-TEXT TO MTCK-TEXT (1).                              DTSBD322
00209                                                                   DTSBD322
00210                                                                   DTSBD322
00211      MOVE MTCK-REC TO MSKL-REC.                                   DTSBD322
00212                                                                   DTSBD322
00213      PERFORM S910-WRITE THRU S910-EXIT.                           DTSBD322
00214  P0000-EXIT.                                                      DTSBD322
00215      EXIT.                                                        DTSBD322
00216      EJECT                                                        DTSBD322
00217 *S041-COUNTY-CD.                                                  DTSBD322
00218 *****SET L041-DISTRICT-COURT-88 TO TRUE.                          DTSBD322
00219 *****MOVE MLIN-COUNTY-CD TO L041-COUNTY-CD-9.                     DTSBD322
00220 *****CALL 'DTSBU041' USING L041-LINK-AREA.                        DTSBD322
00221 *S041-EXIT.                                                       DTSBD322
00222      EXIT.                                                        DTSBD322
00223      SKIP3                                                        DTSBD322
00224  S910-READ.                                                       DTSBD322
00225      SET L910-READ-88 TO TRUE.                                    DTSBD322
00226      GO TO S910-MSTR-IO.                                          DTSBD322
00227                                                                   DTSBD322
00228  S910-START-BROWSE.                                               DTSBD322
00229      SET L910-START-BROWSE-88 TO TRUE.                            DTSBD322
00230      GO TO S910-MSTR-IO.                                          DTSBD322
00231                                                                   DTSBD322
00232  S910-READ-NEXT.                                                  DTSBD322
00233      SET L910-READ-NEXT-88 TO TRUE.                               DTSBD322
00234      GO TO S910-MSTR-IO.                                          DTSBD322
00235                                                                   DTSBD322
00236 *S910-COUNT.                                                      DTSBD322
00237 *****SET L910-COUNT-88 TO TRUE.                                   DTSBD322
00238 *****GO TO S910-MSTR-IO.                                          DTSBD322
00239                                                                   DTSBD322
00240  S910-WRITE.                                                      DTSBD322
00241      SET LBCM-EMP-UPDATE-YES-88 TO TRUE.                          DTSBD322
00242      SET L910-WRITE-88 TO TRUE.                                   DTSBD322
00243      GO TO S910-MSTR-IO.                                          DTSBD322
00244                                                                   DTSBD322
00245 *S910-REWRITE.                                                    DTSBD322
00246 *****SET LBCM-EMP-UPDATE-YES-88 TO TRUE.                          DTSBD322
00247 *****SET L910-REWRITE-88 TO TRUE.                                 DTSBD322
00248 *****GO TO S910-MSTR-IO.                                          DTSBD322
00249                                                                   DTSBD322
00250  S910-DELETE.                                                     DTSBD322
00251      SET LBCM-EMP-UPDATE-YES-88 TO TRUE.                          DTSBD322
00252      SET L910-DELETE-88 TO TRUE.                                  DTSBD322
00253      GO TO S910-MSTR-IO.                                          DTSBD322
00254                                                                   DTSBD322
00255  S910-MSTR-IO.                                                    DTSBD322
00256      CALL 'DTSBU910' USING L910-LINK-AREA                         DTSBD322
00257                            MSKL-REC.                              DTSBD322
00258  S910-EXIT.                                                       DTSBD322
00259      EXIT.                                                        DTSBD322
00260      SKIP3                                                        DTSBD322
00261  S999-ABEND.                                                      DTSBD322
00262      CALL 'DTSBU999' USING WRK-ABEND-CD.                          DTSBD322
00263  S999-EXIT.                                                       DTSBD322
00264      EXIT.                                                        DTSBD322
