00001  IDENTIFICATION DIVISION.                                         07/30/01
00002  PROGRAM-ID.             DTSBE405.                                DTSBE405
00003  AUTHOR.                 TRICOASTAL CONSULTING LTD                   LV023
00004                          MODIFIED BY TRW S&ITG.                   DTSBE405
00005  DATE-WRITTEN.           AUGUST 1994.                             DTSBE405
00006  DATE-COMPILED.                                                   DTSBE405
00007      SKIP3                                                        DTSBE405
00008 *****                                                             DTSBE405
00009 *                                                                 DTSBE405
00010 *    CALLING SEQUENCE:  DTSBE405 CREATES DTSIR405 RECORDS.        DTSBE405
00011 *                                                                 DTSBE405
00012 *    FUNCTION:  AUTOMATICALLY RELEASE LIENS THAT HAVE BEEN        DTSBE405
00013 *               SATISFIED, AND CREATE LIST OF RELEASED LIENS.     DTSBE405
00014 *                                                                 DTSBE405
00015 *                                                                 DTSBE405
00016 *    MODIFICATION LOG:                                            DTSBE405
00017 *                                                                 DTSBE405
00018 *    10/04/1999  MEVL-DATE AND MEVL-TIME RELATED CODE CORRECTED - DTSBE405
00019 *                TO AVOID ABENDS WHEN MULTIPLE LIENS PER EMPOYER  DTSBE405
00020 *                ARE RELEASED DURING SAME RUN.                    DTSBE405
00021 *                REFERENCE: DC DEVELOPMENT      PROGRAMMER: EHH   DTSBE405
00022 *                                                                 DTSBE405
00023 *    10/20/2000  MODIFIED PROGRAM TO INCLUDE LEIN RESPONSIBLE ID- DTSBE405
00024 *                IN THE IR405 RECORD, ALSO GENETATE A LABEL FOR   DTSBE405
00025 *                EACH RELEASED PRINTED.                           DTSBE405
00026 *                REFERENCE: DC DEVELOPMENT      PROGRAMMER: ZL1   DTSBE405
00027 *                                                                 DTSBE405
00028 *    MM/DD/YYYY  XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX   DTSBE405
00029 *                XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX   DTSBE405
00030 *                REFERENCE:                     PROGRAMMER: XXX   DTSBE405
00031 *                                                                 DTSBE405
00032 *                                                                 DTSBE405
00033 *  DESCRIPTION:                                                   DTSBE405
00034 *                                                                 DTSBE405
00035 *                                                                 DTSBE405
00036 *    INITIATION:                                                  DTSBE405
00037 *                                                                 DTSBE405
00038 *      SET LECM-MST-OPEN-UPDATE-88 TO TRUE.                       DTSBE405
00039 *      SET LECM-REF-OPEN-READ-88 TO TRUE.                         DTSBE405
00040 *                                                                 DTSBE405
00041 *      NO PARAMETERS ARE INPUT.                                   DTSBE405
00042 *                                                                 DTSBE405
00043 *                                                                 DTSBE405
00044 *    PROCESSING:                                                  DTSBE405
00045 *                                                                 DTSBE405
00046 *      SEE PRINTED OUTPUTS DESCRIPTION AND LAYOUTS (405R1).       DTSBE405
00047 *      SEE PRINTED OUTPUTS DESCRIPTION AND LAYOUTS (405R2).       DTSBE405
00048 *                                                                 DTSBE405
00049 *                                                                 DTSBE405
00050 *    TERMINATION:                                                 DTSBE405
00051 *                                                                 DTSBE405
00052 *      NO PROCESSING.                                             DTSBE405
00053 *                                                                 DTSBE405
00054 *                                                                 DTSBE405
00055 *    RECORDS READ:                                                DTSBE405
00056 *                                                                 DTSBE405
00057 *      MASTER:                                                    DTSBE405
00058 *                                                                 DTSBE405
00059 *        MLIN                                                     DTSBE405
00060 *        MQTR                                                     DTSBE405
00061 *        MDST                                                     DTSBE405
00062 *                                                                 DTSBE405
00063 *                                                                 DTSBE405
00064 *      ALTERNATE INDEX:                                           DTSBE405
00065 *                                                                 DTSBE405
00066 *        NONE.                                                    DTSBE405
00067 *                                                                 DTSBE405
00068 *                                                                 DTSBE405
00069 *      REFERENCE:                                                 DTSBE405
00070 *                                                                 DTSBE405
00071 *        NONE.                                                    DTSBE405
00072 *                                                                 DTSBE405
00073 *                                                                 DTSBE405
00074 *    RECORDS UPDATED:                                             DTSBE405
00075 *                                                                 DTSBE405
00076 *        MLIN                                                     DTSBE405
00077 *        MEVL (ADD)                                               DTSBE405
00078 *                                                                 DTSBE405
00079 *                                                                 DTSBE405
00080 *    REPORT RECORDS WRITTEN:                                      DTSBE405
00081 *                                                                 DTSBE405
00082 *    R405  LIST OF LIENS AUTOMATICALLY RELEASED.                  DTSBE405
00083 *    R901  LABELS.                                                DTSBE405
00084 *                                                                 DTSBE405
00085 *                                                                 DTSBE405
00086 *    BATCH TRANSACTION COLLECTION RECORDS WRITTEN:                DTSBE405
00087 *                                                                 DTSBE405
00088 *        NONE.                                                    DTSBE405
00089 *                                                                 DTSBE405
00090 *                                                                 DTSBE405
00091 *    MODULES CALLED:                                              DTSBE405
00092 *                                                                 DTSBE405
00093 *        DTSBU001  DATE CONVERSION/EDIT.                          DTSBE405
00094 *        DTSBU061  FIELD ZIP /FIELD REP ID                        DTSBE405
00095 *        DTSBU111  ADDRESS LOOKUP.                                DTSBE405
00096 *        DTSBU112  ADDRESS FORMAT.                                DTSBE405
00097 *        DTSBU910  MASTER FILE I/O.                               DTSBE405
00098 *        DTSBU946  VARIABLE LENGTH RECORDS SEQUENTIAL OUTPUT 1.   DTSBE405
00099 *                                                                 DTSBE405
00100 *                                                                 DTSBE405
00101 *    VERMONT REFERENCE:                                           DTSBE405
00102 *                                                                 DTSBE405
00103 *        ???????                                                  DTSBE405
00104 *                                                                 DTSBE405
00105 *****                                                             DTSBE405
00106      SKIP3                                                        DTSBE405
00107  ENVIRONMENT DIVISION.                                            DTSBE405
00108      SKIP3                                                        DTSBE405
00109  DATA DIVISION.                                                   DTSBE405
00110      SKIP3                                                        DTSBE405
00111  WORKING-STORAGE SECTION.                                         DTSBE405
001115 77  PAN-VALET PICTURE X(24) VALUE '023DTSBE405  07/30/01'.       DTSBE405
00112      SKIP3                                                        DTSBE405
00113  01  WRK-AREA.                                                    DTSBE405
00114      05  WRK-ABEND-CD                PIC S9(04)  COMP  VALUE +405.DTSBE405
00115      SKIP1                                                        DTSBE405
00116      05  WRK-MOD-NAME                PIC  X(08)  VALUE 'DTSBE405'.DTSBE405
00117      SKIP3                                                        DTSBE405
00118      05  ABEND-MSG                   PIC  X(60).                  DTSBE405
00119      SKIP3                                                        DTSBE405
00120      05  WRK-DATE-CONSTANTS.                                      DTSBE405
00121          10  WRK-25-YEARS            PIC S9(08)  COMP             DTSBE405
00122                                                  VALUE +9132.     DTSBE405
00123          10  WRK-2-WEEKS             PIC S9(08)  COMP             DTSBE405
00124                                                  VALUE +14.       DTSBE405
00125      SKIP3                                                        DTSBE405
00126      05  WRK-STATEMENT-CUTOFF-DATE   PIC S9(09)  COMP-3.          DTSBE405
00127      SKIP1                                                        DTSBE405
00128      05  WRK-PAYMENT-CUTOFF-DATE     PIC S9(09)  COMP-3.          DTSBE405
00129      SKIP1                                                        DTSBE405
00130      05  WRK-RELEASE-LIEN-IND        PIC X(01).                   DTSBE405
00131          88  WRK-RELEASE-LIEN-88                 VALUE 'Y'.       DTSBE405
00132          88  WRK-DO-NOT-RELEASE-LIEN-88          VALUE 'N'.       DTSBE405
00133      SKIP3                                                        DTSBE405
00134      05  EVL-TEXT.                                                DTSBE405
00135          10  FILLER                  PIC  X(16)                   DTSBE405
00136                VALUE 'LIEN RELEASED.  '.                          DTSBE405
00137          10  FILLER                  PIC  X(15)                   DTSBE405
00138                VALUE 'CERTIFICATE #: '.                           DTSBE405
00139          10  EVL-CERTIFICATE-NO      PIC  99B9999.                DTSBE405
00140      EJECT                                                        DTSBE405
00141  01  L001-LINK-AREA.                                              DTSBE405
00142  ++INCLUDE DTSIL001                                               DTSBE405
00143      EJECT                                                        DTSBE405
00144  01  L005-LINK-AREA.                                              DTSBE405
00145  ++INCLUDE DTSIL005                                               DTSBE405
00146      EJECT                                                        DTSBE405
00147  01  L062-LINK-AREA.                                              DTSBE405
00148  ++INCLUDE DTSIL062                                               DTSBE405
00149      EJECT                                                        DTSBE405
00150  01  L910-LINK-AREA.                                              DTSBE405
00151  ++INCLUDE DTSIL910                                               DTSBE405
00152      SKIP3                                                        DTSBE405
00153  01  L111-LINK-AREA.                                              DTSBE405
00154  ++INCLUDE DTSIL111                                               DTSBE405
00155      SKIP3                                                        DTSBE405
00156  01  L112-LINK-AREA.                                              DTSBE405
00157  ++INCLUDE DTSIL112                                               DTSBE405
00158      SKIP3                                                        DTSBE405
00159  01  MSKL-REC.                                                    DTSBE405
00160  ++INCLUDE DTSIMSKL                                               DTSBE405
00161      SKIP3                                                        DTSBE405
00162  01  MLIN-REC.                                                    DTSBE405
00163  ++INCLUDE DTSIMLIN                                               DTSBE405
00164      EJECT                                                        DTSBE405
00165  01  MQTR-REC.                                                    DTSBE405
00166  ++INCLUDE DTSIMQTR                                               DTSBE405
00167      EJECT                                                        DTSBE405
00168  01  MDST-REC.                                                    DTSBE405
00169  ++INCLUDE DTSIMDST                                               DTSBE405
00170      EJECT                                                        DTSBE405
00171  01  MEVL-REC.                                                    DTSBE405
00172  ++INCLUDE DTSIMEVL                                               DTSBE405
00173      EJECT                                                        DTSBE405
00174  01  R405-REC.                                                    DTSBE405
00175  ++INCLUDE DTSIR405                                               DTSBE405
00176      EJECT                                                        DTSBE405
00177  01  R901-REC.                                                    DTSBE405
00178  ++INCLUDE DTSIR901                                               DTSBE405
00179      EJECT                                                        DTSBE405
00180  LINKAGE SECTION.                                                 DTSBE405
00181      SKIP3                                                        DTSBE405
00182  01  LECM-LINK-AREA.                                              DTSBE405
00183  ++INCLUDE DTSILECM                                               DTSBE405
00184      EJECT                                                        DTSBE405
00185  01  MPRF-LINK-REC.                                               DTSBE405
00186  ++INCLUDE DTSIMPRF                                               DTSBE405
00187      EJECT                                                        DTSBE405
00188 **************************************************************    DTSBE405
00189 *  PROCEDURE DIVISION FOR DTSBE405 - LIEN RELEASE CANDIDATE       DTSBE405
00190 *  LIST STARTS HERE.                                              DTSBE405
00191 **************************************************************    DTSBE405
00192                                                                   DTSBE405
00193  PROCEDURE DIVISION USING LECM-LINK-AREA                          DTSBE405
00194                           MPRF-LINK-REC.                          DTSBE405
00195      SKIP2                                                        DTSBE405
00196      IF LECM-PROCESS-88                                           DTSBE405
00197          PERFORM P0000-PROCESS THRU P0000-EXIT                    DTSBE405
00198      ELSE                                                         DTSBE405
00199      IF LECM-INITIALIZE-88                                        DTSBE405
00200          PERFORM I0000-INITIALIZE THRU I0000-EXIT                 DTSBE405
00201      ELSE                                                         DTSBE405
00202      IF LECM-TERMINATE-88                                         DTSBE405
00203          PERFORM T0000-TERMINATE THRU T0000-EXIT                  DTSBE405
00204      ELSE                                                         DTSBE405
00205          MOVE 'INVALID LECM-CALL-TYPE-IND ENCOUNTERED'            DTSBE405
00206            TO ABEND-MSG                                           DTSBE405
00207          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBE405
00208      SKIP2                                                        DTSBE405
00209      GOBACK.                                                      DTSBE405
00210      EJECT                                                        DTSBE405
00211 **************************************************************    DTSBE405
00212 *  THIS IS THE INITIALIZATION PARAGRAPH FOR DTSBE405.             DTSBE405
00213 **************************************************************    DTSBE405
00214                                                                   DTSBE405
00215  I0000-INITIALIZE.                                                DTSBE405
00216                                                                   DTSBE405
00217      MOVE LENGTH OF R405-REC TO R405-LENGTH.                      DTSBE405
00218      MOVE '405'              TO R405-REC-TYPE.                    DTSBE405
00219      MOVE LENGTH OF R901-REC TO R901-LENGTH.                      DTSBE405
00220      MOVE '901'              TO R901-REC-TYPE.                    DTSBE405
00221      MOVE LECM-TRACE-IND         TO  L910-TRACE-IND.              DTSBE405
00222      MOVE WRK-MOD-NAME           TO  L910-MOD-NAME.               DTSBE405
00223      SKIP1                                                        DTSBE405
00224      MOVE LECM-CURR-RUN-DATE     TO  L001-FED-8-DATE-9.           DTSBE405
00225      PERFORM S001-FROM-FED-8 THRU S001-EXIT.                      DTSBE405
00226      SUBTRACT WRK-25-YEARS FROM L001-JUL-ABS-DAY.                 DTSBE405
00227      PERFORM S001-FROM-ABS-DAY THRU S001-EXIT.                    DTSBE405
00228      MOVE L001-FED-8-DATE-9      TO  WRK-STATEMENT-CUTOFF-DATE.   DTSBE405
00229      SKIP1                                                        DTSBE405
00230      MOVE LECM-CURR-RUN-DATE     TO  L001-FED-8-DATE-9.           DTSBE405
00231      PERFORM S001-FROM-FED-8 THRU S001-EXIT.                      DTSBE405
00232      SUBTRACT WRK-2-WEEKS FROM L001-JUL-ABS-DAY.                  DTSBE405
00233      PERFORM S001-FROM-ABS-DAY THRU S001-EXIT.                    DTSBE405
00234      MOVE L001-FED-8-DATE-9 TO WRK-PAYMENT-CUTOFF-DATE.           DTSBE405
00235      SKIP1                                                        DTSBE405
00236      SET LECM-MST-OPEN-UPDATE-88 TO  TRUE.                        DTSBE405
00237      SET LECM-REF-OPEN-READ-88   TO  TRUE.                        DTSBE405
00238      SKIP2                                                        DTSBE405
00239  I0000-EXIT.                                                      DTSBE405
00240      EXIT.                                                        DTSBE405
00241      EJECT                                                        DTSBE405
00242 **************************************************************    DTSBE405
00243 *  THIS PARAGRAPH CONTROLS THE PROCESSING FOR DTSBE405.           DTSBE405
00244 **************************************************************    DTSBE405
00245                                                                   DTSBE405
00246  P0000-PROCESS.                                                   DTSBE405
00247                                                                   DTSBE405
00248      IF MPRF-NO-MLIN-88                                           DTSBE405
00249          GO TO P0000-EXIT.                                        DTSBE405
00250                                                                   DTSBE405
00251      MOVE LOW-VALUES            TO  MLIN-KEY-AREA.                DTSBE405
00252      MOVE MPRF-EMP-NO           TO  MLIN-EMP-NO.                  DTSBE405
00253      SET MLIN-LIN-88            TO  TRUE.                         DTSBE405
00254      MOVE MLIN-KEY-AREA         TO  MSKL-KEY-AREA.                DTSBE405
00255                                                                   DTSBE405
00256      PERFORM S910-START-BROWSE THRU S910-EXIT.                    DTSBE405
00257                                                                   DTSBE405
00258      PERFORM P1000-SCAN-MLIN THRU P1000-EXIT                      DTSBE405
00259          UNTIL L910-NO-REC-88.                                    DTSBE405
00260      SKIP2                                                        DTSBE405
00261  P0000-EXIT.                                                      DTSBE405
00262      EXIT.                                                        DTSBE405
00263      SKIP3                                                        DTSBE405
00264 **************************************************************    DTSBE405
00265 *  THIS PARAGRAPH SCANS THE MLIN RECORDS.  IF THE LIEN IS         DTSBE405
00266 *  OPEN OR CONVERTED IT WILL BE CHECKED TO SEE IF IT IS A         DTSBE405
00267 *  CANDIDATE FOR RELEASE.                                         DTSBE405
00268 **************************************************************    DTSBE405
00269                                                                   DTSBE405
00270  P1000-SCAN-MLIN.                                                 DTSBE405
00271                                                                   DTSBE405
00272      MOVE MSKL-REC TO MLIN-REC.                                   DTSBE405
00273                                                                   DTSBE405
00274      IF MLIN-STATUS-OPEN-CONV-88                                  DTSBE405
00275          PERFORM P1100-OPEN-MLIN THRU P1100-EXIT                  DTSBE405
00276          MOVE MLIN-KEY-AREA               TO  MSKL-KEY-AREA       DTSBE405
00277          PERFORM S910-READ THRU S910-EXIT                         DTSBE405
00278          IF L910-NO-REC-88                                        DTSBE405
00279              MOVE 'LOGIC ERROR IN P1000'  TO  ABEND-MSG           DTSBE405
00280              PERFORM S999-ABEND THRU S999-EXIT.                   DTSBE405
00281                                                                   DTSBE405
00282      PERFORM S910-READ-NEXT THRU S910-EXIT.                       DTSBE405
00283                                                                   DTSBE405
00284  P1000-EXIT.                                                      DTSBE405
00285      EXIT.                                                        DTSBE405
00286      EJECT                                                        DTSBE405
00287 **************************************************************    DTSBE405
00288 *  THIS PARAGRAPH PROCESSES THE OPEN OR CONVERTED LIEN TO         DTSBE405
00289 *  DETERMINE IF IT IS A CANDIDATE FOR RELEASE.                    DTSBE405
00290 **************************************************************    DTSBE405
00291                                                                   DTSBE405
00292  P1100-OPEN-MLIN.                                                 DTSBE405
00293                                                                   DTSBE405
00294      IF MLIN-STMT-DATE  LESS THAN  WRK-STATEMENT-CUTOFF-DATE      DTSBE405
00295          PERFORM P1130-RELEASE-LIEN  THRU  P1130-EXIT             DTSBE405
00296          IF L910-OK-88                                            DTSBE405
00297             PERFORM P1110-SETUP-R405 THRU  P1110-EXIT             DTSBE405
00298             PERFORM S946-WRITE-R405  THRU S946-EXIT               DTSBE405
00299             PERFORM P1200-SETUP-R901 THRU  P1200-EXIT             DTSBE405
00300             PERFORM S946-WRITE-R901  THRU  S946-EXIT              DTSBE405
00301             GO TO P1100-EXIT                                      DTSBE405
00302          ELSE                                                     DTSBE405
00303             GO TO P1100-EXIT.                                     DTSBE405
00304 *                                                                 DTSBE405
00305      IF MLIN-REC-DEEDS-NO > SPACES                                DTSBE405
00306          NEXT SENTENCE                                            DTSBE405
00307      ELSE                                                         DTSBE405
00308          GO TO P1100-EXIT.                                        DTSBE405
00309 *                                                                 DTSBE405
00310      IF MPRF-NOT-WRITTEN-OFF-88                                   DTSBE405
00311          NEXT SENTENCE                                            DTSBE405
00312      ELSE                                                         DTSBE405
00313          GO TO P1100-EXIT.                                        DTSBE405
00314                                                                   DTSBE405
00315      SET WRK-RELEASE-LIEN-88         TO  TRUE.                    DTSBE405
00316                                                                   DTSBE405
00317      PERFORM P1120-PROCESS-LIN-QTRS  THRU  P1120-EXIT             DTSBE405
00318          VARYING MLIN-COV-IDX  FROM  1 BY 1                       DTSBE405
00319              UNTIL WRK-DO-NOT-RELEASE-LIEN-88      OR             DTSBE405
00320                    MLIN-COV-IDX  GREATER THAN  MLIN-COV-CNT.      DTSBE405
00321                                                                   DTSBE405
00322      IF WRK-RELEASE-LIEN-88                                       DTSBE405
00323          PERFORM P1130-RELEASE-LIEN  THRU  P1130-EXIT             DTSBE405
00324          PERFORM P1110-SETUP-R405    THRU  P1110-EXIT             DTSBE405
00325          PERFORM S946-WRITE-R405     THRU  S946-EXIT              DTSBE405
00326          PERFORM P1200-SETUP-R901    THRU  P1200-EXIT             DTSBE405
00327          PERFORM S946-WRITE-R901     THRU  S946-EXIT.             DTSBE405
00328                                                                   DTSBE405
00329  P1100-EXIT.                                                      DTSBE405
00330      EXIT.                                                        DTSBE405
00331      EJECT                                                        DTSBE405
00332 **************************************************************    DTSBE405
00333 *  THIS PARAGRAPH WILL SET UP THE R405 EXTRACT RECORD.            DTSBE405
00334 **************************************************************    DTSBE405
00335                                                                   DTSBE405
00336  P1110-SETUP-R405.                                                DTSBE405
00337                                                                   DTSBE405
00338      MOVE MLIN-FLD-REP-ID         TO  L062-FLD-REP-ID.            DTSBE405
00339                                                                   DTSBE405
00340      PERFORM S062-OPID       THRU S062-EXIT.                      DTSBE405
00341                                                                   DTSBE405
00342      MOVE L062-OP-ID              TO  R405-OP-ID.                 DTSBE405
00343                                                                   DTSBE405
00344      MOVE MPRF-EMP-NO             TO  R405-EMP-NO.                DTSBE405
00345      MOVE MPRF-PRIMARY-NAME       TO  R405-PRIMARY-NAME.          DTSBE405
00346      MOVE MLIN-STMT-DATE          TO  R405-STMT-DATE.             DTSBE405
00347 *                                                                 DTSBE405
00348      MOVE MLIN-CERTIFICATE-NO     TO  R405-CERTIFICATE-NO.        DTSBE405
00349      MOVE MLIN-REC-DEEDS-NO       TO  R405-REC-DEEDS-NO.          DTSBE405
00350 *                                                                 DTSBE405
00351      MOVE MLIN-CERTIFICATE-DATE   TO  R405-CERTIFICATE-DATE.      DTSBE405
00352      PERFORM P2310-PROCESS-MTAD   THRU P2310-EXIT.                DTSBE405
00353                                                                   DTSBE405
00354  P1110-EXIT.                                                      DTSBE405
00355      EXIT.                                                        DTSBE405
00356      EJECT                                                        DTSBE405
00357 **************************************************************    DTSBE405
00358 *  THIS PARAGRAPH WILL PROCESS THE QUARTERS COVERED TABLE         DTSBE405
00359 *  IN THE MLIN RECORD.                                            DTSBE405
00360 **************************************************************    DTSBE405
00361                                                                   DTSBE405
00362  P1120-PROCESS-LIN-QTRS.                                          DTSBE405
00363                                                                   DTSBE405
00364      MOVE LOW-VALUES                       TO  MQTR-KEY-AREA.     DTSBE405
00365      MOVE MPRF-EMP-NO                      TO  MQTR-EMP-NO.       DTSBE405
00366      MOVE MLIN-COVERED-YRQ (MLIN-COV-IDX)  TO  MQTR-YRQ.          DTSBE405
00367      SET  MQTR-QTR-88                      TO  TRUE.              DTSBE405
00368      MOVE MQTR-KEY-AREA                    TO  MSKL-KEY-AREA.     DTSBE405
00369                                                                   DTSBE405
00370      PERFORM S910-READ   THRU  S910-EXIT.                         DTSBE405
00371                                                                   DTSBE405
00372      IF L910-OK-88                                                DTSBE405
00373          MOVE MSKL-REC                     TO  MQTR-REC           DTSBE405
00374          PERFORM P1121-PROCESS-ACCT-AREA  THRU  P1121-EXIT        DTSBE405
00375            VARYING MQTR-ACCT-IDX  FROM 1 BY 1                     DTSBE405
00376              UNTIL WRK-DO-NOT-RELEASE-LIEN-88  OR                 DTSBE405
00377                    MQTR-ACCT-IDX  GREATER THAN  MQTR-ACCT-CNT.    DTSBE405
00378                                                                   DTSBE405
00379      IF WRK-DO-NOT-RELEASE-LIEN-88                                DTSBE405
00380          GO TO P1120-EXIT.                                        DTSBE405
00381                                                                   DTSBE405
00382      MOVE LOW-VALUES                 TO  MDST-KEY-AREA.           DTSBE405
00383      MOVE MPRF-EMP-NO                TO  MDST-EMP-NO.             DTSBE405
00384      MOVE MQTR-YRQ                   TO  MDST-YRQ.                DTSBE405
00385      SET MDST-DST-88                 TO  TRUE.                    DTSBE405
00386      MOVE MDST-KEY-AREA              TO  MSKL-KEY-AREA.           DTSBE405
00387                                                                   DTSBE405
00388      PERFORM S910-START-BROWSE  THRU  S910-EXIT.                  DTSBE405
00389                                                                   DTSBE405
00390      IF L910-OK-88                                                DTSBE405
00391          PERFORM P1122-CHECK-DATE  THRU  P1122-EXIT               DTSBE405
00392              UNTIL L910-NO-REC-88   OR                            DTSBE405
00393                    WRK-DO-NOT-RELEASE-LIEN-88.                    DTSBE405
00394                                                                   DTSBE405
00395  P1120-EXIT.                                                      DTSBE405
00396      EXIT.                                                        DTSBE405
00397      EJECT                                                        DTSBE405
00398 **************************************************************    DTSBE405
00399 *  THIS PARAGRAPH WILL PROCESS THE ACCOUNTING AREA IN THE         DTSBE405
00400 *  MQTR-RECORD.                                                   DTSBE405
00401 **************************************************************    DTSBE405
00402                                                                   DTSBE405
00403  P1121-PROCESS-ACCT-AREA.                                         DTSBE405
00404                                                                   DTSBE405
00405      IF MQTR-BALANCE-AMT (MQTR-ACCT-IDX)  GREATER THAN  ZERO      DTSBE405
00406          SET WRK-DO-NOT-RELEASE-LIEN-88  TO  TRUE.                DTSBE405
00407                                                                   DTSBE405
00408  P1121-EXIT.                                                      DTSBE405
00409      EXIT.                                                        DTSBE405
00410      EJECT                                                        DTSBE405
00411 **************************************************************    DTSBE405
00412 *  THIS PARAGRAPH WILL CHECK THE DISTRIBUTION RECORDS TO SEE      DTSBE405
00413 *  IF ALL PAYMENTS HAVE AGED OVER TWO WEEKS.                      DTSBE405
00414 **************************************************************    DTSBE405
00415                                                                   DTSBE405
00416  P1122-CHECK-DATE.                                                DTSBE405
00417                                                                   DTSBE405
00418       MOVE MSKL-REC                       TO  MDST-REC.           DTSBE405
00419                                                                   DTSBE405
00420       IF MDST-YRQ                      EQUAL  MQTR-YRQ            DTSBE405
00421           NEXT SENTENCE                                           DTSBE405
00422       ELSE                                                        DTSBE405
00423           SET L910-NO-REC-88              TO  TRUE                DTSBE405
00424           GO TO P1122-EXIT.                                       DTSBE405
00425                                                                   DTSBE405
00426       IF MDST-RECEIVED-DATE LESS THAN WRK-PAYMENT-CUTOFF-DATE     DTSBE405
00427           NEXT SENTENCE                                           DTSBE405
00428       ELSE                                                        DTSBE405
00429           SET WRK-DO-NOT-RELEASE-LIEN-88  TO TRUE.                DTSBE405
00430                                                                   DTSBE405
00431       PERFORM S910-READ-NEXT  THRU  S910-EXIT.                    DTSBE405
00432                                                                   DTSBE405
00433  P1122-EXIT.                                                      DTSBE405
00434      EXIT.                                                        DTSBE405
00435      EJECT                                                        DTSBE405
00436 **************************************************************    DTSBE405
00437 *  THIS PARAGRAPH WILL CHANGE THE LIEN STATUS TO RELEASED AND     DTSBE405
00438 *  REWRITE THE MLIN RECORD.                                       DTSBE405
00439 **************************************************************    DTSBE405
00440                                                                   DTSBE405
00441  P1130-RELEASE-LIEN.                                              DTSBE405
00442      PERFORM P1135-EVENT-LOG     THRU P1135-EXIT.                 DTSBE405
00443                                                                   DTSBE405
00444      SET MLIN-STATUS-RELEASED-88 TO TRUE.                         DTSBE405
00445      MOVE LECM-CURR-RUN-DATE     TO MLIN-STATUS-DATE              DTSBE405
00446                                     MLIN-CHNG-DATE.               DTSBE405
00447      MOVE 'SYSTEM'               TO MLIN-STATUS-OP-ID.            DTSBE405
00448                                                                   DTSBE405
00449      MOVE MLIN-REC               TO MSKL-REC.                     DTSBE405
00450      PERFORM S910-REWRITE        THRU S910-EXIT.                  DTSBE405
00451                                                                   DTSBE405
00452  P1130-EXIT.                                                      DTSBE405
00453      EXIT.                                                        DTSBE405
00454      EJECT                                                        DTSBE405
00455  P1135-EVENT-LOG.                                                 DTSBE405
00456      ADD +1000 TO LECM-EMP-ABSTIME.                               DTSBE405
00457                                                                   DTSBE405
00458      MOVE LECM-EMP-ABSTIME TO L005-ABSTIME.                       DTSBE405
00459                                                                   DTSBE405
00460      PERFORM S005-FROM-ABSTIME THRU S005-EXIT.                    DTSBE405
00461                                                                   DTSBE405
00462                                                                   DTSBE405
00463      MOVE LOW-VALUES TO MEVL-REC.                                 DTSBE405
00464                                                                   DTSBE405
00465                                                                   DTSBE405
00466      MOVE MPRF-EMP-NO TO MEVL-EMP-NO.                             DTSBE405
00467                                                                   DTSBE405
00468      SET MEVL-EVL-88 TO TRUE.                                     DTSBE405
00469                                                                   DTSBE405
00470      MOVE L005-DATE TO MEVL-DATE.                                 DTSBE405
00471                                                                   DTSBE405
00472      MOVE L005-TIME TO MEVL-TIME.                                 DTSBE405
00473                                                                   DTSBE405
00474      MOVE +0 TO MEVL-PURGE-DATE.                                  DTSBE405
00475                                                                   DTSBE405
00476      MOVE MLIN-CERTIFICATE-NO TO EVL-CERTIFICATE-NO.              DTSBE405
00477                                                                   DTSBE405
00478      MOVE EVL-TEXT TO MEVL-TEXT.                                  DTSBE405
00479                                                                   DTSBE405
00480      MOVE 'SYSTEM' TO MEVL-SOURCE.                                DTSBE405
00481                                                                   DTSBE405
00482      SET MEVL-NOT-CONVERTED-88 TO TRUE.                           DTSBE405
00483                                                                   DTSBE405
00484      MOVE LECM-CURR-RUN-DATE TO MEVL-ESTB-DATE                    DTSBE405
00485                                 MEVL-CHNG-DATE.                   DTSBE405
00486                                                                   DTSBE405
00487      MOVE MEVL-REC TO MSKL-REC.                                   DTSBE405
00488                                                                   DTSBE405
00489      PERFORM S910-WRITE THRU S910-EXIT.                           DTSBE405
00490  P1135-EXIT.                                                      DTSBE405
00491      EXIT.                                                        DTSBE405
00492      EJECT                                                        DTSBE405
00493                                                                   DTSBE405
00494  P1200-SETUP-R901.                                                DTSBE405
00495      SET R901-ON-REQUEST-88 TO TRUE.                              DTSBE405
00496                                                                   DTSBE405
00497      MOVE LOW-VALUE  TO R901-SORT-VAR-AREA.                       DTSBE405
00498                                                                   DTSBE405
00499      MOVE L062-OP-ID TO R901-GRP1-OP-ID.                          DTSBE405
00500                                                                   DTSBE405
00501      MOVE MPRF-EMP-NO TO R901-GRP1-EMP-NO                         DTSBE405
00502                          R901-EMP-NO.                             DTSBE405
00503                                                                   DTSBE405
00504      MOVE +1 TO R901-LABEL-CNT.                                   DTSBE405
00505                                                                   DTSBE405
00506      PERFORM S946-WRITE-R901 THRU S946-EXIT.                      DTSBE405
00507  P1200-EXIT. EXIT.                                                DTSBE405
00508      EJECT                                                        DTSBE405
00509                                                                   DTSBE405
00510  P2310-PROCESS-MTAD.                                              DTSBE405
00511      MOVE LOW-VALUES            TO  L111-RETURN-AREA.             DTSBE405
00512      MOVE MPRF-EMP-NO           TO  L111-EMP-NO.                  DTSBE405
00513      SET L111-LOOKUP-TAD-88     TO  TRUE.                         DTSBE405
00514      SET L111-ID-NO-TAD-MAIL-88 TO  TRUE.                         DTSBE405
00515                                                                   DTSBE405
00516      PERFORM S111-LOOKUP-ADDRESS THRU S111-EXIT.                  DTSBE405
00517                                                                   DTSBE405
00518      IF L111-ADDR-FOUND-88                                        DTSBE405
00519          MOVE MPRF-PRIMARY-NAME     TO  L112-PRIMARY-NAME         DTSBE405
00520          MOVE LOW-VALUES            TO  L112-NAME-ADDRESS-AREA    DTSBE405
00521          SET  L112-TAD-ADDR-88      TO  TRUE                      DTSBE405
00522          SET  L112-ANCHOR-LAST-88   TO  TRUE                      DTSBE405
00523          MOVE L111-RETURN-AREA      TO  L112-NAME-ADDRESS-AREA    DTSBE405
00524          PERFORM S112-FORMAT-ADDR   THRU  S112-EXIT               DTSBE405
00525          MOVE L112-MAILING-ADDRESS  TO R405-FMT-ADDR              DTSBE405
00526                                        R901-FMT-ADDR              DTSBE405
00527      ELSE                                                         DTSBE405
00528          MOVE ALL '?'               TO  R405-FMT-ADDR             DTSBE405
00529                                         R901-FMT-ADDR.            DTSBE405
00530  P2310-EXIT.                                                      DTSBE405
00531      EXIT.                                                        DTSBE405
00532      EJECT                                                        DTSBE405
00533                                                                   DTSBE405
00534  T0000-TERMINATE.                                                 DTSBE405
00535      SKIP2                                                        DTSBE405
00536      SKIP2                                                        DTSBE405
00537  T0000-EXIT.                                                      DTSBE405
00538      EXIT.                                                        DTSBE405
00539      EJECT                                                        DTSBE405
00540  S001-FROM-FED-8.                                                 DTSBE405
00541      SET L001-FROM-FED-8 TO TRUE.                                 DTSBE405
00542      GO TO S001-DATE.                                             DTSBE405
00543      SKIP1                                                        DTSBE405
00544  S001-FROM-ABS-DAY.                                               DTSBE405
00545      SET L001-FROM-ABS-DAY TO TRUE.                               DTSBE405
00546      GO TO S001-DATE.                                             DTSBE405
00547      SKIP1                                                        DTSBE405
00548  S001-DATE.                                                       DTSBE405
00549      CALL 'DTSBU001' USING L001-LINK-AREA.                        DTSBE405
00550  S001-EXIT.                                                       DTSBE405
00551      EXIT.                                                        DTSBE405
00552      SKIP3                                                        DTSBE405
00553  S005-FROM-ABSTIME.                                               DTSBE405
00554      SET L005-FROM-ABSTIME TO TRUE.                               DTSBE405
00555      GO TO S005-ABSTIME.                                          DTSBE405
00556      SKIP1                                                        DTSBE405
00557  S005-ABSTIME.                                                    DTSBE405
00558      CALL 'DTSBU005' USING L005-LINK-AREA.                        DTSBE405
00559  S005-EXIT.                                                       DTSBE405
00560      EXIT.                                                        DTSBE405
00561      SKIP3                                                        DTSBE405
00562  S062-OPID.                                                       DTSBE405
00563      CALL 'DTSBU062' USING L062-LINK-AREA.                        DTSBE405
00564  S062-EXIT.                                                       DTSBE405
00565      EXIT.                                                        DTSBE405
00566      SKIP3                                                        DTSBE405
00567  S111-LOOKUP-ADDRESS.                                             DTSBE405
00568      CALL 'DTSBU111' USING L111-LINK-AREA.                        DTSBE405
00569  S111-EXIT.                                                       DTSBE405
00570      EXIT.                                                        DTSBE405
00571      SKIP3                                                        DTSBE405
00572  S112-FORMAT-ADDR.                                                DTSBE405
00573      CALL 'DTSBU112' USING L112-LINK-AREA.                        DTSBE405
00574  S112-EXIT.                                                       DTSBE405
00575      EXIT.                                                        DTSBE405
00576      SKIP3                                                        DTSBE405
00577  S910-READ.                                                       DTSBE405
00578      SET L910-READ-88 TO TRUE.                                    DTSBE405
00579      GO TO S910-MSTR-IO.                                          DTSBE405
00580      SKIP1                                                        DTSBE405
00581  S910-START-BROWSE.                                               DTSBE405
00582      SET L910-START-BROWSE-88 TO TRUE.                            DTSBE405
00583      GO TO S910-MSTR-IO.                                          DTSBE405
00584      SKIP1                                                        DTSBE405
00585  S910-READ-NEXT.                                                  DTSBE405
00586      SET L910-READ-NEXT-88 TO TRUE.                               DTSBE405
00587      GO TO S910-MSTR-IO.                                          DTSBE405
00588      SKIP1                                                        DTSBE405
00589  S910-WRITE.                                                      DTSBE405
00590      SET L910-WRITE-88 TO TRUE.                                   DTSBE405
00591      SET LECM-EMP-UPDATED-YES-88 TO TRUE.                         DTSBE405
00592      GO TO S910-MSTR-IO.                                          DTSBE405
00593      SKIP1                                                        DTSBE405
00594  S910-REWRITE.                                                    DTSBE405
00595      SET L910-REWRITE-88 TO TRUE.                                 DTSBE405
00596      SET LECM-EMP-UPDATED-YES-88 TO TRUE.                         DTSBE405
00597      GO TO S910-MSTR-IO.                                          DTSBE405
00598      SKIP1                                                        DTSBE405
00599  S910-MSTR-IO.                                                    DTSBE405
00600      CALL 'DTSBU910' USING L910-LINK-AREA                         DTSBE405
00601                            MSKL-REC.                              DTSBE405
00602  S910-EXIT.                                                       DTSBE405
00603      EXIT.                                                        DTSBE405
00604      SKIP3                                                        DTSBE405
00605  S946-WRITE-R405.                                                 DTSBE405
00606      CALL 'DTSBU946' USING R405-REC.                              DTSBE405
00607      GO TO S946-EXIT.                                             DTSBE405
00608      SKIP1                                                        DTSBE405
00609  S946-WRITE-R901.                                                 DTSBE405
00610      CALL 'DTSBU946' USING R901-REC.                              DTSBE405
00611      GO TO S946-EXIT.                                             DTSBE405
00612      SKIP1                                                        DTSBE405
00613  S946-EXIT.                                                       DTSBE405
00614      EXIT.                                                        DTSBE405
00615      SKIP3                                                        DTSBE405
00616  S999-ABEND.                                                      DTSBE405
00617      DISPLAY '*** DTSBE405 ABENDING.  '                           DTSBE405
00618              ABEND-MSG.                                           DTSBE405
00619      SKIP1                                                        DTSBE405
00620      CALL 'DTSBU999' USING WRK-ABEND-CD.                          DTSBE405
00621  S999-EXIT.                                                       DTSBE405
00622      EXIT.                                                        DTSBE405
