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