00001  IDENTIFICATION DIVISION.                                         11/18/98
00002  PROGRAM-ID.             DTSBE715.                                DTSBE715
00003  AUTHOR.                 TRICOASTAL CONSULTING LTD.                  LV015
00004                          MODIFIED BY TRW/BDM OCT. 1998.              CL**7
00005  DATE-WRITTEN.           SEPTEMBER 1994.                          DTSBE715
00006  DATE-COMPILED.                                                   DTSBE715
00007      SKIP3                                                        DTSBE715
00008 *****                                                             DTSBE715
00009 *                                                                 DTSBE715
00010 *    CALLING SEQUENCE:  DTSBD400 CALLS                               CL**3
00011 *                       DTSBE715 WHICH UPDATES DTSIR715              CL**3
00012 *                       DTSBR715 READS DTSIR715 RECORDS.             CL**3
00013 *                                                                    CL**3
00014 *    FUNCTION:  RQC STATUS DETERMINATION UNIVERSE RECORDS EXTRACT.DTSBE715
00015 *                                                                 DTSBE715
00016 *                                                                 DTSBE715
00017 *    MODIFICATION LOG:                                            DTSBE715
00018 *                                                                 DTSBE715
00019 *    XX/XX/XX  XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX   DTSBE715
00020 *              XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX   DTSBE715
00021 *              WORK ORDER:                      PROGRAMMER: XXX   DTSBE715
00022 *                                                                 DTSBE715
00023 *                                                                 DTSBE715
00024 *  DESCRIPTION:                                                   DTSBE715
00025 *                                                                 DTSBE715
00026 *                                                                 DTSBE715
00027 *    INITIATION:                                                  DTSBE715
00028 *                                                                 DTSBE715
00029 *      SET LECM-MST-OPEN-READ-88 TO TRUE.                         DTSBE715
00030 *      SET LECM-REF-OPEN-READ-88 TO TRUE.                         DTSBE715
00031 *                                                                 DTSBE715
00032 *      EDIT AND DEFAULT PARAMETERS.                               DTSBE715
00033 *                                                                 DTSBE715
00034 *                                                                 DTSBE715
00035 *    PROCESSING:                                                  DTSBE715
00036 *                                                                 DTSBE715
00037 *      SEE PRINTED OUTPUTS DESCRIPTION AND LAYOUTS (715R1).       DTSBE715
00038 *                                                                 DTSBE715
00039 *                                                                 DTSBE715
00040 *    TERMINATION:                                                 DTSBE715
00041 *                                                                 DTSBE715
00042 *      NONE.                                                      DTSBE715
00043 *                                                                 DTSBE715
00044 *                                                                 DTSBE715
00045 *    RECORDS READ:                                                DTSBE715
00046 *                                                                 DTSBE715
00047 *      MASTER:                                                    DTSBE715
00048 *                                                                 DTSBE715
00049 *        MHDR                                                     DTSBE715
00050 *        MERD                                                     DTSBE715
00051 *                                                                 DTSBE715
00052 *                                                                 DTSBE715
00053 *      ALTERNATE INDEX:                                           DTSBE715
00054 *                                                                 DTSBE715
00055 *        NONE.                                                    DTSBE715
00056 *                                                                 DTSBE715
00057 *                                                                 DTSBE715
00058 *      REFERENCE:                                                 DTSBE715
00059 *                                                                 DTSBE715
00060 *        NONE.                                                    DTSBE715
00061 *                                                                 DTSBE715
00062 *                                                                 DTSBE715
00063 *    RECORDS UPDATED:                                             DTSBE715
00064 *                                                                 DTSBE715
00065 *        NONE.                                                    DTSBE715
00066 *                                                                 DTSBE715
00067 *                                                                 DTSBE715
00068 *    REPORT RECORDS WRITTEN:                                      DTSBE715
00069 *                                                                 DTSBE715
00070 *        R715 RQC STATUS DETERMINATION UNIVERSE RECORDS EXTRACT.  DTSBE715
00071 *                                                                 DTSBE715
00072 *                                                                 DTSBE715
00073 *    BATCH TRANSACTION COLLECTION RECORDS WRITTEN:                DTSBE715
00074 *                                                                 DTSBE715
00075 *        NONE.                                                    DTSBE715
00076 *                                                                 DTSBE715
00077 *                                                                 DTSBE715
00078 *    MODULES CALLED:                                              DTSBE715
00079 *                                                                 DTSBE715
00080 *        DTSBU001  DATE EDIT/CONVERSION.                             CL**2
00081 *        DTSBU910  MASTER FILE I/O.                                  CL**2
00082 *        DTSBU946  VARIABLE LENGTH RECORDS SEQUENTIAL OUTPUT 1.      CL**2
00083 *                                                                 DTSBE715
00084 *                                                                 DTSBE715
00085 *    VERMONT REFERENCE:                                           DTSBE715
00086 *                                                                 DTSBE715
00087 *        NONE.                                                    DTSBE715
00088 *                                                                 DTSBE715
00089 *****                                                             DTSBE715
00090      SKIP3                                                        DTSBE715
00091  ENVIRONMENT DIVISION.                                            DTSBE715
00092      EJECT                                                        DTSBE715
00093  DATA DIVISION.                                                   DTSBE715
00094      SKIP3                                                        DTSBE715
00095  WORKING-STORAGE SECTION.                                         DTSBE715
000955 77  PAN-VALET PICTURE X(24) VALUE '015DTSBE715  11/18/98'.       DTSBE715
00096      SKIP3                                                        DTSBE715
00097  01  WRK-AREA.                                                    DTSBE715
00098      05  WRK-ABEND-CD                PIC S9(04)  COMP  VALUE +715.DTSBE715
00099      SKIP1                                                        DTSBE715
00100      05  WRK-MOD-NAME                PIC  X(08)  VALUE 'DTSBE715'.   CL**2
00101      SKIP3                                                        DTSBE715
00102      05  ABEND-MSG                       PIC  X(60).              DTSBE715
00103      SKIP3                                                        DTSBE715
00104      05  WRK-PARM-PERIOD-START-DATE  PIC S9(09)  COMP-3.          DTSBE715
00105                                                                   DTSBE715
00106      05  WRK-PARM-PERIOD-END-DATE    PIC S9(09)  COMP-3.          DTSBE715
00107      EJECT                                                        DTSBE715
00108  01  L001-LINK-AREA.                                              DTSBE715
00109  ++INCLUDE DTSIL001                                                  CL**2
00110      EJECT                                                        DTSBE715
00111  01  L910-LINK-AREA.                                              DTSBE715
00112  ++INCLUDE DTSIL910                                                  CL**2
00113      SKIP3                                                        DTSBE715
00114  01  MSKL-REC.                                                    DTSBE715
00115  ++INCLUDE DTSIMSKL                                                  CL**2
00116      SKIP3                                                        DTSBE715
00117  01  MHDR-REC.                                                    DTSBE715
00118  ++INCLUDE DTSIMHDR                                                  CL**2
00119      SKIP3                                                        DTSBE715
00120  01  MERD-REC.                                                    DTSBE715
00121  ++INCLUDE DTSIMERD                                                  CL**2
00122      EJECT                                                        DTSBE715
00123  01  R715-REC.                                                    DTSBE715
00124  ++INCLUDE DTSIR715                                                  CL**2
00125      EJECT                                                        DTSBE715
00126  LINKAGE SECTION.                                                 DTSBE715
00127      SKIP3                                                        DTSBE715
00128  01  LECM-LINK-AREA.                                              DTSBE715
00129  ++INCLUDE DTSILECM                                                  CL**5
00130      SKIP3                                                        DTSBE715
00131          10  FILLER REDEFINES LECM-EXTRACT-PARMS.                 DTSBE715
00132              15  LECM-PARM-PERIOD-START-DATE  PIC  X(06).         DTSBE715
00133              15  FILLER                       PIC  X(01).         DTSBE715
00134              15  LECM-PARM-PERIOD-END-DATE    PIC  X(06).         DTSBE715
00135              15  FILLER                       PIC  X(55).         DTSBE715
00136      EJECT                                                        DTSBE715
00137  01  MPRF-LINK-REC.                                               DTSBE715
00138  ++INCLUDE DTSIMPRF                                                  CL**2
00139      EJECT                                                        DTSBE715
00140  PROCEDURE DIVISION USING LECM-LINK-AREA                          DTSBE715
00141                           MPRF-LINK-REC.                          DTSBE715
00142      SKIP2                                                           CL**6
00143      MOVE LENGTH OF R715-REC TO R715-LENGTH.                         CL**4
00144      MOVE '715'              TO R715-REC-TYPE.                       CL**8
00145      SKIP2                                                        DTSBE715
00146      IF LECM-PROCESS-88                                           DTSBE715
00147          PERFORM P0000-PROCESS THRU P0000-EXIT                    DTSBE715
00148      ELSE                                                         DTSBE715
00149      IF LECM-INITIALIZE-88                                        DTSBE715
00150          PERFORM I0000-INITIALIZE THRU I0000-EXIT                 DTSBE715
00151      ELSE                                                         DTSBE715
00152      IF LECM-TERMINATE-88                                         DTSBE715
00153          PERFORM T0000-TERMINATE THRU T0000-EXIT                  DTSBE715
00154      ELSE                                                         DTSBE715
00155          MOVE 'INVALID LECM-CALL-TYPE-IND ENCOUNTERED'            DTSBE715
00156            TO ABEND-MSG                                           DTSBE715
00157          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBE715
00158      SKIP2                                                        DTSBE715
00159      GOBACK.                                                      DTSBE715
00160      EJECT                                                        DTSBE715
00161  I0000-INITIALIZE.                                                DTSBE715
00162      SKIP2                                                        DTSBE715
00163      MOVE LECM-TRACE-IND TO L910-TRACE-IND.                       DTSBE715
00164      MOVE WRK-MOD-NAME TO L910-MOD-NAME.                          DTSBE715
00165      PERFORM I1000-EDIT-AND-DEFAULT-PARMS THRU I1000-EXIT.        DTSBE715
00166                                                                   DTSBE715
00167      SET LECM-MST-OPEN-READ-88 TO TRUE.                           DTSBE715
00168      SET LECM-REF-OPEN-READ-88 TO TRUE.                           DTSBE715
00169      SKIP2                                                        DTSBE715
00170  I0000-EXIT.                                                      DTSBE715
00171      EXIT.                                                        DTSBE715
00172      SKIP3                                                        DTSBE715
00173  I1000-EDIT-AND-DEFAULT-PARMS.                                    DTSBE715
00174      MOVE LOW-VALUES TO MHDR-KEY-AREA.                            DTSBE715
00175      MOVE +0 TO MHDR-EMP-NO.                                      DTSBE715
00176      SET MHDR-HDR-88 TO TRUE.                                     DTSBE715
00177      MOVE MHDR-KEY-AREA TO MSKL-KEY-AREA.                         DTSBE715
00178      PERFORM S910-READ THRU S910-EXIT.                            DTSBE715
00179      IF L910-NO-REC-88                                            DTSBE715
00180          MOVE 'MHDR RECORD NOT FOUND' TO ABEND-MSG                DTSBE715
00181          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBE715
00182                                                                   DTSBE715
00183      MOVE MSKL-REC TO MHDR-REC.                                   DTSBE715
00184                                                                   DTSBE715
00185      PERFORM I1100-PERIOD-START-DATE THRU I1100-EXIT.             DTSBE715
00186                                                                   DTSBE715
00187      PERFORM I1200-PERIOD-END-DATE THRU I1200-EXIT.               DTSBE715
00188  I1000-EXIT.                                                      DTSBE715
00189      EXIT.                                                        DTSBE715
00190      SKIP3                                                        DTSBE715
00191  I1100-PERIOD-START-DATE.                                         DTSBE715
00192      IF LECM-PARM-PERIOD-START-DATE = SPACES                      DTSBE715
00193          MOVE MHDR-CMPL-YEAR-BEGIN-DATE                           DTSBE715
00194            TO WRK-PARM-PERIOD-START-DATE                          DTSBE715
00195      ELSE                                                         DTSBE715
00196          MOVE LECM-PARM-PERIOD-START-DATE TO L001-CAL-6-DATE-X    DTSBE715
00197          PERFORM S001-FROM-CAL-6 THRU S001-EXIT                   DTSBE715
00198          IF L001-VALID-DATE                                       DTSBE715
00199              MOVE L001-FED-8-DATE-9 TO WRK-PARM-PERIOD-START-DATE DTSBE715
00200          ELSE                                                     DTSBE715
00201              MOVE 'LECM-PARM-PERIOD-START-DATE NOT VALID'         DTSBE715
00202                TO ABEND-MSG                                       DTSBE715
00203              PERFORM S999-ABEND THRU S999-EXIT.                   DTSBE715
00204  I1100-EXIT.                                                      DTSBE715
00205      EXIT.                                                        DTSBE715
00206      SKIP3                                                        DTSBE715
00207  I1200-PERIOD-END-DATE.                                           DTSBE715
00208      IF LECM-PARM-PERIOD-END-DATE = SPACES                        DTSBE715
00209          MOVE MHDR-CMPL-YEAR-END-DATE                             DTSBE715
00210            TO WRK-PARM-PERIOD-END-DATE                            DTSBE715
00211      ELSE                                                         DTSBE715
00212          MOVE LECM-PARM-PERIOD-END-DATE TO L001-CAL-6-DATE-X      DTSBE715
00213          PERFORM S001-FROM-CAL-6 THRU S001-EXIT                   DTSBE715
00214          IF L001-VALID-DATE                                       DTSBE715
00215              MOVE L001-FED-8-DATE-9 TO WRK-PARM-PERIOD-END-DATE   DTSBE715
00216          ELSE                                                     DTSBE715
00217              MOVE 'LECM-PARM-PERIOD-END-DATE NOT VALID'           DTSBE715
00218                TO ABEND-MSG                                       DTSBE715
00219              PERFORM S999-ABEND THRU S999-EXIT.                   DTSBE715
00220                                                                   DTSBE715
00221      IF WRK-PARM-PERIOD-END-DATE < WRK-PARM-PERIOD-START-DATE     DTSBE715
00222          MOVE 'PERIOD-END-DATE LESS THAN PERIOD-START-DATE'       DTSBE715
00223            TO ABEND-MSG                                           DTSBE715
00224          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBE715
00225  I1200-EXIT.                                                      DTSBE715
00226      EXIT.                                                        DTSBE715
00227      EJECT                                                        DTSBE715
00228  P0000-PROCESS.                                                   DTSBE715
00229      MOVE LOW-VALUES TO MERD-KEY-AREA.                            DTSBE715
00230      MOVE MPRF-EMP-NO TO MERD-EMP-NO.                             DTSBE715
00231      SET MERD-ERD-88 TO TRUE.                                     DTSBE715
00232      MOVE MERD-KEY-AREA TO MSKL-KEY-AREA.                         DTSBE715
00233      PERFORM S910-START-BROWSE THRU S910-EXIT.                    DTSBE715
00234      PERFORM P1000-SCAN-MERD THRU P1000-EXIT                      DTSBE715
00235          UNTIL L910-NO-REC-88.                                    DTSBE715
00236  P0000-EXIT.                                                      DTSBE715
00237      EXIT.                                                        DTSBE715
00238      SKIP3                                                        DTSBE715
00239  P1000-SCAN-MERD.                                                 DTSBE715
00240      MOVE MSKL-REC TO MERD-REC.                                   DTSBE715
00241                                                                   DTSBE715
00242      IF (MERD-ESTB-DATE < WRK-PARM-PERIOD-START-DATE)             DTSBE715
00243              OR                                                   DTSBE715
00244         (MERD-ESTB-DATE > WRK-PARM-PERIOD-END-DATE)               DTSBE715
00245          NEXT SENTENCE                                            DTSBE715
00246      ELSE                                                         DTSBE715
00247          PERFORM P1100-GENERATE-R715 THRU P1100-EXIT.             DTSBE715
00248                                                                   DTSBE715
00249      PERFORM S910-READ-NEXT THRU S910-EXIT.                       DTSBE715
00250  P1000-EXIT.                                                      DTSBE715
00251      EXIT.                                                        DTSBE715
00252      SKIP3                                                        DTSBE715
00253  P1100-GENERATE-R715.                                             DTSBE715
00254      MOVE MERD-EMP-NO TO R715-EMP-NO.                             DTSBE715
00255      MOVE MERD-DETERMINATION-TYPE TO R715-TRAN-TYPE.                 CL*15
00256      MOVE MERD-ESTB-DATE TO R715-ENTRY-DATE.                      DTSBE715
00257      MOVE MERD-EFFECTIVE-DATE TO R715-STATUS-EFF-DATE.            DTSBE715
00258      MOVE MPRF-PRIMARY-NAME TO R715-PRIMARY-NAME.                    CL**9
00259                                                                   DTSBE715
00260      PERFORM S946-WRITE-R715 THRU S946-EXIT.                      DTSBE715
00261  P1100-EXIT.                                                      DTSBE715
00262      EXIT.                                                        DTSBE715
00263      EJECT                                                        DTSBE715
00264  T0000-TERMINATE.                                                 DTSBE715
00265      SKIP2                                                        DTSBE715
00266      SKIP2                                                        DTSBE715
00267  T0000-EXIT.                                                      DTSBE715
00268      EXIT.                                                        DTSBE715
00269      EJECT                                                        DTSBE715
00270  S001-FROM-FED-8.                                                 DTSBE715
00271      SET L001-FROM-FED-8 TO TRUE.                                 DTSBE715
00272      GO TO S001-DATE.                                             DTSBE715
00273      SKIP1                                                        DTSBE715
00274  S001-FROM-ABS-DAY.                                               DTSBE715
00275      SET L001-FROM-ABS-DAY TO TRUE.                               DTSBE715
00276      GO TO S001-DATE.                                             DTSBE715
00277      SKIP1                                                        DTSBE715
00278  S001-FROM-CAL-6.                                                 DTSBE715
00279      SET L001-FROM-CAL-6 TO TRUE.                                 DTSBE715
00280      GO TO S001-DATE.                                             DTSBE715
00281      SKIP1                                                        DTSBE715
00282  S001-DATE.                                                       DTSBE715
00283      CALL 'DTSBU001' USING L001-LINK-AREA.                           CL**2
00284  S001-EXIT.                                                       DTSBE715
00285      EXIT.                                                        DTSBE715
00286      SKIP3                                                        DTSBE715
00287  S910-READ.                                                       DTSBE715
00288      SET L910-READ-88 TO TRUE.                                    DTSBE715
00289      GO TO S910-MSTR-IO.                                          DTSBE715
00290      SKIP1                                                        DTSBE715
00291  S910-START-BROWSE.                                               DTSBE715
00292      SET L910-START-BROWSE-88 TO TRUE.                            DTSBE715
00293      GO TO S910-MSTR-IO.                                          DTSBE715
00294      SKIP1                                                        DTSBE715
00295  S910-READ-NEXT.                                                  DTSBE715
00296      SET L910-READ-NEXT-88 TO TRUE.                               DTSBE715
00297      GO TO S910-MSTR-IO.                                          DTSBE715
00298      SKIP1                                                        DTSBE715
00299  S910-COUNT.                                                      DTSBE715
00300      SET L910-COUNT-88 TO TRUE.                                   DTSBE715
00301      GO TO S910-MSTR-IO.                                          DTSBE715
00302      SKIP1                                                        DTSBE715
00303  S910-MSTR-IO.                                                    DTSBE715
00304      CALL 'DTSBU910' USING L910-LINK-AREA                            CL**2
00305                            MSKL-REC.                              DTSBE715
00306  S910-EXIT.                                                       DTSBE715
00307      EXIT.                                                        DTSBE715
00308      SKIP3                                                        DTSBE715
00309  S946-WRITE-R715.                                                 DTSBE715
00310      CALL 'DTSBU946' USING R715-REC.                                 CL**2
00311      GO TO S946-EXIT.                                             DTSBE715
00312      SKIP1                                                        DTSBE715
00313  S946-EXIT.                                                       DTSBE715
00314      EXIT.                                                        DTSBE715
00315      SKIP3                                                        DTSBE715
00316  S999-ABEND.                                                      DTSBE715
00317      DISPLAY '*** DTSBE715 ABENDING.  '                              CL**2
00318              ABEND-MSG.                                           DTSBE715
00319      SKIP1                                                        DTSBE715
00320      CALL 'DTSBU999' USING WRK-ABEND-CD.                             CL**2
00321  S999-EXIT.                                                       DTSBE715
00322      EXIT.                                                        DTSBE715
