00001  IDENTIFICATION DIVISION.                                         10/07/98
00002  PROGRAM-ID.             DTSBE991.                                DTSBE991
00003  AUTHOR.                 TRICOASTAL CONSULTING LTD.                  LV003
00004  DATE-WRITTEN.           SEPTEMBER 1994.                          DTSBE991
00005  DATE-COMPILED.                                                   DTSBE991
00006      SKIP3                                                        DTSBE991
00007 *****                                                             DTSBE991
00008 *                                                                 DTSBE991
00009 *    FUNCTION:  RECOVERY/RESTART EXTRACT.                         DTSBE991
00010 *                                                                 DTSBE991
00011 *                                                                 DTSBE991
00012 *    MODIFICATION LOG:                                            DTSBE991
00013 *                                                                 DTSBE991
00014 *    10/06/1998  REVIEWED AND MODIFIED FOR DC.                       CL**2
00015 *                REFERENCE: DC DEVELOPMENT      PROGRAMMER: EHH      CL**2
00016 *                                                                    CL**2
00017 *    MM/DD/YYYY  XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX      CL**2
00018 *                XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX      CL**2
00019 *                REFERENCE: XXXXXXXXXXXXXXX     PROGRAMMER: XXX      CL**2
00020 *                                                                 DTSBE991
00021 *                                                                 DTSBE991
00022 *  DESCRIPTION:                                                   DTSBE991
00023 *                                                                 DTSBE991
00024 *                                                                 DTSBE991
00025 *    INITIATION:                                                  DTSBE991
00026 *                                                                 DTSBE991
00027 *      SET LECM-MST-OPEN-READ-88 TO TRUE.                         DTSBE991
00028 *      SET LECM-REF-OPEN-READ-88 TO TRUE.                         DTSBE991
00029 *                                                                 DTSBE991
00030 *      EDIT AND DEFAULT PARAMETERS.                               DTSBE991
00031 *                                                                 DTSBE991
00032 *                                                                 DTSBE991
00033 *    PROCESSING:                                                  DTSBE991
00034 *                                                                 DTSBE991
00035 *      SEE PRINTED OUTPUTS DESCRIPTION AND LAYOUTS (905R1).       DTSBE991
00036 *                                                                 DTSBE991
00037 *                                                                 DTSBE991
00038 *    TERMINATION:                                                 DTSBE991
00039 *                                                                 DTSBE991
00040 *      NONE.                                                      DTSBE991
00041 *                                                                 DTSBE991
00042 *                                                                 DTSBE991
00043 *    RECORDS READ:                                                DTSBE991
00044 *                                                                 DTSBE991
00045 *      MASTER:                                                    DTSBE991
00046 *                                                                 DTSBE991
00047 *        NONE.                                                    DTSBE991
00048 *                                                                 DTSBE991
00049 *                                                                 DTSBE991
00050 *      ALTERNATE INDEX:                                           DTSBE991
00051 *                                                                 DTSBE991
00052 *        NONE.                                                    DTSBE991
00053 *                                                                 DTSBE991
00054 *                                                                 DTSBE991
00055 *      REFERENCE:                                                 DTSBE991
00056 *                                                                 DTSBE991
00057 *        NONE.                                                    DTSBE991
00058 *                                                                 DTSBE991
00059 *                                                                 DTSBE991
00060 *    RECORDS UPDATED:                                             DTSBE991
00061 *                                                                 DTSBE991
00062 *        NONE.                                                    DTSBE991
00063 *                                                                 DTSBE991
00064 *                                                                 DTSBE991
00065 *    REPORT RECORDS WRITTEN:                                      DTSBE991
00066 *                                                                 DTSBE991
00067 *        R905  RECOVERY/RESTART REPORT RECORD.                    DTSBE991
00068 *                                                                 DTSBE991
00069 *                                                                 DTSBE991
00070 *    BATCH TRANSACTION COLLECTION RECORDS WRITTEN:                DTSBE991
00071 *                                                                 DTSBE991
00072 *        NONE.                                                    DTSBE991
00073 *                                                                 DTSBE991
00074 *                                                                 DTSBE991
00075 *    MODULES CALLED:                                              DTSBE991
00076 *                                                                 DTSBE991
00077 *        DTSBU001  DATE EDIT/CONVERSION.                             CL**2
00078 *        DTSBU910  MASTER FILE I/O.                                  CL**2
00079 *        DTSBU946  VARIABLE LENGTH RECORDS SEQUENTIAL OUTPUT 1.      CL**2
00080 *                                                                 DTSBE991
00081 *                                                                 DTSBE991
00082 *    VERMONT REFERENCE:                                           DTSBE991
00083 *                                                                 DTSBE991
00084 *        TXBE202                                                  DTSBE991
00085 *                                                                 DTSBE991
00086 *****                                                             DTSBE991
00087      SKIP3                                                        DTSBE991
00088  ENVIRONMENT DIVISION.                                            DTSBE991
00089      EJECT                                                        DTSBE991
00090  DATA DIVISION.                                                   DTSBE991
00091      SKIP3                                                        DTSBE991
00092  WORKING-STORAGE SECTION.                                         DTSBE991
000925 77  PAN-VALET PICTURE X(24) VALUE '003DTSBE991  10/07/98'.       DTSBE991
00093      SKIP3                                                        DTSBE991
00094  01  WRK-AREA.                                                    DTSBE991
00095      05  WRK-ABEND-CD                PIC S9(04)  COMP  VALUE +991.DTSBE991
00096                                                                      CL**2
00097      05  WRK-MOD-NAME                PIC  X(08)  VALUE 'DTSBE991'.   CL**2
00098                                                                      CL**2
00099                                                                      CL**2
00100      05  ABEND-MSG                   PIC  X(60).                  DTSBE991
00101      EJECT                                                        DTSBE991
00102  01  L001-LINK-AREA.                                              DTSBE991
00103  ++INCLUDE DTSIL001                                                  CL**2
00104      EJECT                                                        DTSBE991
00105  01  L910-LINK-AREA.                                              DTSBE991
00106  ++INCLUDE DTSIL910                                                  CL**2
00107      SKIP3                                                        DTSBE991
00108  01  MSKL-REC.                                                    DTSBE991
00109  ++INCLUDE DTSIMSKL                                                  CL**2
00110      EJECT                                                        DTSBE991
00111  01  R905-REC.                                                    DTSBE991
00112  ++INCLUDE DTSIR905                                                  CL**2
00113      EJECT                                                        DTSBE991
00114  LINKAGE SECTION.                                                 DTSBE991
00115      SKIP3                                                        DTSBE991
00116  01  LECM-LINK-AREA.                                              DTSBE991
00117  ++INCLUDE DTSILECM                                                  CL**2
00118      SKIP3                                                        DTSBE991
00119          10  FILLER REDEFINES LECM-EXTRACT-PARMS.                 DTSBE991
00120              15  FILLER                       PIC  X(68).         DTSBE991
00121      EJECT                                                        DTSBE991
00122  01  MPRF-LINK-REC.                                               DTSBE991
00123  ++INCLUDE DTSIMPRF                                                  CL**2
00124      EJECT                                                        DTSBE991
00125  PROCEDURE DIVISION USING LECM-LINK-AREA                          DTSBE991
00126                           MPRF-LINK-REC.                          DTSBE991
00127                                                                      CL**2
00128                                                                      CL**2
00129      IF LECM-PROCESS-88                                           DTSBE991
00130          PERFORM P0000-PROCESS THRU P0000-EXIT                    DTSBE991
00131      ELSE                                                         DTSBE991
00132      IF LECM-INITIALIZE-88                                        DTSBE991
00133          PERFORM I0000-INITIALIZE THRU I0000-EXIT                 DTSBE991
00134      ELSE                                                         DTSBE991
00135      IF LECM-TERMINATE-88                                         DTSBE991
00136          PERFORM T0000-TERMINATE THRU T0000-EXIT                  DTSBE991
00137      ELSE                                                         DTSBE991
00138          MOVE 'INVALID LECM-CALL-TYPE-IND ENCOUNTERED'            DTSBE991
00139            TO ABEND-MSG                                           DTSBE991
00140          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBE991
00141                                                                      CL**2
00142                                                                      CL**2
00143      GOBACK.                                                      DTSBE991
00144      EJECT                                                        DTSBE991
00145  I0000-INITIALIZE.                                                DTSBE991
00146      MOVE LECM-TRACE-IND TO L910-TRACE-IND.                       DTSBE991
00147                                                                      CL**2
00148      MOVE WRK-MOD-NAME TO L910-MOD-NAME.                          DTSBE991
00149                                                                   DTSBE991
00150      PERFORM I1000-EDIT-AND-DEFAULT-PARMS THRU I1000-EXIT.        DTSBE991
00151                                                                   DTSBE991
00152      SET LECM-MST-OPEN-READ-88 TO TRUE.                           DTSBE991
00153                                                                      CL**2
00154      SET LECM-REF-OPEN-READ-88 TO TRUE.                           DTSBE991
00155  I0000-EXIT.                                                      DTSBE991
00156      EXIT.                                                        DTSBE991
00157                                                                      CL**2
00158                                                                      CL**2
00159                                                                      CL**2
00160  I1000-EDIT-AND-DEFAULT-PARMS.                                    DTSBE991
00161  I1000-EXIT.                                                      DTSBE991
00162      EXIT.                                                        DTSBE991
00163      EJECT                                                        DTSBE991
00164  P0000-PROCESS.                                                   DTSBE991
00165      IF MPRF-UPDATE-ACTIVE-88                                     DTSBE991
00166          NEXT SENTENCE                                            DTSBE991
00167      ELSE                                                         DTSBE991
00168          GO TO P0000-EXIT.                                        DTSBE991
00169                                                                   DTSBE991
00170      MOVE MPRF-EMP-NO TO R905-EMP-NO.                             DTSBE991
00171                                                                   DTSBE991
00172      MOVE LECM-SYS-DATE TO R905-SYS-DATE.                         DTSBE991
00173                                                                   DTSBE991
00174      MOVE LECM-SYS-TIME TO R905-SYS-TIME.                         DTSBE991
00175                                                                   DTSBE991
00176      MOVE 'SCAN' TO R905-OP-ID.                                   DTSBE991
00177                                                                   DTSBE991
00178      MOVE 'Y' TO R905-UPDATE-IND.                                 DTSBE991
00179                                                                   DTSBE991
00180      MOVE MPRF-UPDATE-TASK-ID TO R905-UPDATE-TASK-ID.             DTSBE991
00181                                                                   DTSBE991
00182      MOVE MPRF-UPDATE-OP-ID TO R905-UPDATE-OP-ID.                 DTSBE991
00183                                                                   DTSBE991
00184      MOVE MPRF-UPDATE-TERMID TO R905-UPDATE-TERMID.               DTSBE991
00185                                                                      CL**2
00186      MOVE MPRF-UPDATE-NETNAME TO R905-UPDATE-NETNAME.                CL**2
00187                                                                   DTSBE991
00188      MOVE MPRF-UPDATE-START-DATE TO R905-UPDATE-START-DATE.       DTSBE991
00189                                                                   DTSBE991
00190      MOVE MPRF-UPDATE-START-TIME TO R905-UPDATE-START-TIME.       DTSBE991
00191                                                                   DTSBE991
00192      MOVE MPRF-UPDATE-SCR-ID TO R905-UPDATE-SCR-ID.               DTSBE991
00193                                                                   DTSBE991
00194      MOVE MPRF-UPDATE-FUNCTION TO R905-UPDATE-FUNCTION.           DTSBE991
00195                                                                   DTSBE991
00196      PERFORM S946-WRITE-R905 THRU S946-EXIT.                      DTSBE991
00197  P0000-EXIT.                                                      DTSBE991
00198      EXIT.                                                        DTSBE991
00199      EJECT                                                        DTSBE991
00200  T0000-TERMINATE.                                                 DTSBE991
00201                                                                      CL**2
00202                                                                      CL**2
00203                                                                      CL**2
00204  T0000-EXIT.                                                      DTSBE991
00205      EXIT.                                                        DTSBE991
00206      EJECT                                                        DTSBE991
00207  S001-FROM-FED-8.                                                 DTSBE991
00208      SET L001-FROM-FED-8 TO TRUE.                                 DTSBE991
00209      GO TO S001-DATE.                                             DTSBE991
00210                                                                      CL**2
00211  S001-FROM-ABS-DAY.                                               DTSBE991
00212      SET L001-FROM-ABS-DAY TO TRUE.                               DTSBE991
00213      GO TO S001-DATE.                                             DTSBE991
00214                                                                      CL**2
00215  S001-FROM-CAL-6.                                                 DTSBE991
00216      SET L001-FROM-CAL-6 TO TRUE.                                 DTSBE991
00217      GO TO S001-DATE.                                             DTSBE991
00218                                                                      CL**2
00219  S001-DATE.                                                       DTSBE991
00220      CALL 'DTSBU001' USING L001-LINK-AREA.                           CL**2
00221  S001-EXIT.                                                       DTSBE991
00222      EXIT.                                                        DTSBE991
00223      SKIP3                                                        DTSBE991
00224  S910-READ.                                                       DTSBE991
00225      SET L910-READ-88 TO TRUE.                                    DTSBE991
00226      GO TO S910-MSTR-IO.                                          DTSBE991
00227                                                                      CL**2
00228  S910-START-BROWSE.                                               DTSBE991
00229      SET L910-START-BROWSE-88 TO TRUE.                            DTSBE991
00230      GO TO S910-MSTR-IO.                                          DTSBE991
00231                                                                      CL**2
00232  S910-READ-NEXT.                                                  DTSBE991
00233      SET L910-READ-NEXT-88 TO TRUE.                               DTSBE991
00234      GO TO S910-MSTR-IO.                                          DTSBE991
00235                                                                      CL**2
00236  S910-COUNT.                                                      DTSBE991
00237      SET L910-COUNT-88 TO TRUE.                                   DTSBE991
00238      GO TO S910-MSTR-IO.                                          DTSBE991
00239                                                                      CL**2
00240  S910-MSTR-IO.                                                    DTSBE991
00241      CALL 'DTSBU910' USING L910-LINK-AREA                            CL**2
00242                            MSKL-REC.                              DTSBE991
00243  S910-EXIT.                                                       DTSBE991
00244      EXIT.                                                        DTSBE991
00245      SKIP3                                                        DTSBE991
00246  S946-WRITE-R905.                                                 DTSBE991
00247      MOVE LENGTH OF R905-REC TO R905-LENGTH.                         CL**2
00248                                                                      CL**2
00249      MOVE LOW-VALUES TO R905-PADDING-FOR-SYNCSORT.                   CL**3
00250                                                                      CL**3
00251      CALL 'DTSBU946' USING R905-REC.                                 CL**2
00252                                                                      CL**2
00253      GO TO S946-EXIT.                                             DTSBE991
00254                                                                      CL**2
00255  S946-EXIT.                                                       DTSBE991
00256      EXIT.                                                        DTSBE991
00257      SKIP3                                                        DTSBE991
00258  S999-ABEND.                                                      DTSBE991
00259      DISPLAY '*** DTSBE991 ABENDING.  '                              CL**2
00260              ABEND-MSG.                                           DTSBE991
00261                                                                      CL**2
00262      CALL 'DTSBU999' USING WRK-ABEND-CD.                             CL**2
00263  S999-EXIT.                                                       DTSBE991
00264      EXIT.                                                        DTSBE991
