00001  IDENTIFICATION DIVISION.                                         03/12/99
00002  PROGRAM-ID.             DTSBE740.                                DTSBE740
00003  AUTHOR.                 TRICOASTAL CONSULTING LTD.                  LV006
00004  DATE-WRITTEN.           OCTOBER 1996.                            DTSBE740
00005  DATE-COMPILED.                                                   DTSBE740
00006      SKIP3                                                        DTSBE740
00007 *****                                                             DTSBE740
00008 *                                                                 DTSBE740
00009 *    CALLING SEQUENCE:  DTSBD400 CALLS                               CL**2
00010 *                       DTSBE740 WHICH UPDATES DTSIR740              CL**2
00011 *                       DTSBR740 READS DTSIR740 RECORDS.             CL**2
00012 *                                                                    CL**2
00013 *    FUNCTION:  ELECTRONIC FILER LIST.                            DTSBE740
00014 *                                                                 DTSBE740
00015 *                                                                 DTSBE740
00016 *    MODIFICATION LOG:                                            DTSBE740
00017 *                                                                 DTSBE740
00018 *    03/02/99  MODIFIED TO MEET DUTAS PROGRAMMING SPECIFICATIONS.    CL**3
00019 *              WORK ORDER:                      PROGRAMMER:  DVS     CL**3
00020 *                                                                 DTSBE740
00021 *    XX/XX/XX  XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX      CL**3
00022 *              XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX      CL**3
00023 *              WORK ORDER:                      PROGRAMMER: XXX      CL**3
00024 *                                                                    CL**3
00025 *                                                                 DTSBE740
00026 *  DESCRIPTION:                                                   DTSBE740
00027 *                                                                 DTSBE740
00028 *                                                                 DTSBE740
00029 *                                                                 DTSBE740
00030 *                                                                 DTSBE740
00031 *    RECORDS READ:                                                DTSBE740
00032 *                                                                 DTSBE740
00033 *      MASTER:                                                    DTSBE740
00034 *                                                                 DTSBE740
00035 *        MPRF                                                     DTSBE740
00036 *        MELF                                                     DTSBE740
00037 *                                                                 DTSBE740
00038 *                                                                 DTSBE740
00039 *      ALTERNATE INDEX:                                           DTSBE740
00040 *                                                                 DTSBE740
00041 *        NONE.                                                    DTSBE740
00042 *                                                                 DTSBE740
00043 *                                                                 DTSBE740
00044 *      REFERENCE:                                                 DTSBE740
00045 *                                                                 DTSBE740
00046 *        NONE.                                                    DTSBE740
00047 *                                                                 DTSBE740
00048 *                                                                 DTSBE740
00049 *    RECORDS UPDATED:                                             DTSBE740
00050 *                                                                 DTSBE740
00051 *        NONE.                                                    DTSBE740
00052 *                                                                 DTSBE740
00053 *                                                                 DTSBE740
00054 *    REPORT RECORDS WRITTEN:                                      DTSBE740
00055 *                                                                 DTSBE740
00056 *        R740  ELECTRONIC FILER LIST.                             DTSBE740
00057 *                                                                 DTSBE740
00058 *                                                                 DTSBE740
00059 *    BATCH TRANSACTION COLLECTION RECORDS WRITTEN:                DTSBE740
00060 *                                                                 DTSBE740
00061 *        NONE.                                                    DTSBE740
00062 *                                                                 DTSBE740
00063 *                                                                 DTSBE740
00064 *    MODULES CALLED:                                              DTSBE740
00065 *                                                                 DTSBE740
00066 *        DTSBU910  MASTER FILE I/O.                                  CL**2
00067 *        DTSBU946  VARIABLE LENGTH RECORDS SEQUENTIAL OUTPUT 1.      CL**2
00068 *                                                                 DTSBE740
00069 *                                                                 DTSBE740
00070 *****                                                             DTSBE740
00071      SKIP3                                                        DTSBE740
00072  ENVIRONMENT DIVISION.                                            DTSBE740
00073      SKIP3                                                        DTSBE740
00074  DATA DIVISION.                                                   DTSBE740
00075      SKIP3                                                        DTSBE740
00076  WORKING-STORAGE SECTION.                                         DTSBE740
000765 77  PAN-VALET PICTURE X(24) VALUE '006DTSBE740  03/12/99'.       DTSBE740
00077      SKIP3                                                        DTSBE740
00078  01  WRK-AREA.                                                    DTSBE740
00079      05  WRK-ABEND-CD                PIC S9(04)  COMP  VALUE +740.DTSBE740
00080      SKIP1                                                        DTSBE740
00081      05  WRK-MOD-NAME                PIC  X(08)  VALUE 'DTSBE740'.   CL**2
00082      SKIP3                                                        DTSBE740
00083      05  ABEND-MSG                   PIC  X(60).                  DTSBE740
00084      EJECT                                                        DTSBE740
00085  01  L910-LINK-AREA.                                              DTSBE740
00086  ++INCLUDE DTSIL910                                                  CL**2
00087      SKIP3                                                        DTSBE740
00088  01  MSKL-REC.                                                    DTSBE740
00089  ++INCLUDE DTSIMSKL                                                  CL**2
00090      SKIP3                                                        DTSBE740
00091  01  MELF-REC.                                                    DTSBE740
00092  ++INCLUDE DTSIMELF                                                  CL**2
00093      EJECT                                                        DTSBE740
00094  01  R740-REC.                                                    DTSBE740
00095  ++INCLUDE DTSIR740                                                  CL**2
00096      EJECT                                                        DTSBE740
00097  LINKAGE SECTION.                                                 DTSBE740
00098      SKIP3                                                        DTSBE740
00099  01  LECM-LINK-AREA.                                              DTSBE740
00100  ++INCLUDE DTSILECM                                                  CL**2
00101      EJECT                                                        DTSBE740
00102  01  MPRF-LINK-REC.                                               DTSBE740
00103  ++INCLUDE DTSIMPRF                                                  CL**2
00104      EJECT                                                        DTSBE740
00105  PROCEDURE DIVISION USING LECM-LINK-AREA                          DTSBE740
00106                           MPRF-LINK-REC.                          DTSBE740
00107      SKIP2                                                        DTSBE740
00108      MOVE LENGTH OF R740-REC TO R740-LENGTH.                         CL**4
00109      MOVE '740'              TO R740-REC-TYPE.                       CL**4
00110      SKIP2                                                           CL**4
00111      IF LECM-PROCESS-88                                           DTSBE740
00112          PERFORM P0000-PROCESS THRU P0000-EXIT                    DTSBE740
00113      ELSE                                                         DTSBE740
00114      IF LECM-INITIALIZE-88                                        DTSBE740
00115          PERFORM I0000-INITIALIZE THRU I0000-EXIT                 DTSBE740
00116      ELSE                                                         DTSBE740
00117      IF LECM-TERMINATE-88                                         DTSBE740
00118          PERFORM T0000-TERMINATE THRU T0000-EXIT                  DTSBE740
00119      ELSE                                                         DTSBE740
00120          MOVE 'INVALID LECM-CALL-TYPE-IND ENCOUNTERED'            DTSBE740
00121            TO ABEND-MSG                                           DTSBE740
00122          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBE740
00123      SKIP2                                                        DTSBE740
00124      GOBACK.                                                      DTSBE740
00125      EJECT                                                        DTSBE740
00126  I0000-INITIALIZE.                                                DTSBE740
00127      MOVE LECM-TRACE-IND TO L910-TRACE-IND.                       DTSBE740
00128      MOVE WRK-MOD-NAME TO L910-MOD-NAME.                          DTSBE740
00129                                                                   DTSBE740
00130      SET LECM-MST-OPEN-READ-88 TO TRUE.                           DTSBE740
00131                                                                   DTSBE740
00132  I0000-EXIT.                                                      DTSBE740
00133      EXIT.                                                        DTSBE740
00134      EJECT                                                        DTSBE740
00135  P0000-PROCESS.                                                   DTSBE740
00136      SKIP3                                                        DTSBE740
00137 *****                                                             DTSBE740
00138 *                                                                 DTSBE740
00139 *                                                                 DTSBE740
00140 *****                                                             DTSBE740
00141                                                                   DTSBE740
00142 *    IF MPRF-STATUS-ACT-88                                           CL**6
00143 *        SET R740-STATUS-ACT-88 TO TRUE                              CL**6
00144 *    ELSE                                                            CL**6
00145 *    IF MPRF-STATUS-INACT-88                                         CL**6
00146 *        SET R740-STATUS-INACT-88 TO TRUE                            CL**6
00147 *    ELSE                                                            CL**6
00148 *        GO TO P0000-EXIT.                                           CL**6
00149                                                                   DTSBE740
00150      MOVE MPRF-EMP-NO TO R740-EMP-NO.                             DTSBE740
00151      MOVE MPRF-PRIMARY-NAME TO R740-PRIMARY-NAME.                    CL**2
00152                                                                   DTSBE740
00153      MOVE LOW-VALUES TO MELF-KEY-AREA.                            DTSBE740
00154      MOVE MPRF-EMP-NO TO MELF-EMP-NO.                             DTSBE740
00155      SET MELF-ELF-88 TO TRUE.                                     DTSBE740
00156      MOVE MELF-KEY-AREA TO MSKL-KEY-AREA.                         DTSBE740
00157      PERFORM S910-START-BROWSE THRU S910-EXIT.                    DTSBE740
00158      IF L910-NO-REC-88                                            DTSBE740
00159          NEXT SENTENCE                                            DTSBE740
00160      ELSE                                                         DTSBE740
00161          PERFORM P1000-MELF-SCAN THRU P1000-EXIT.                 DTSBE740
00162  P0000-EXIT.                                                      DTSBE740
00163      EXIT.                                                        DTSBE740
00164      EJECT                                                        DTSBE740
00165  P1000-MELF-SCAN.                                                 DTSBE740
00166      MOVE MSKL-REC TO MELF-REC.                                   DTSBE740
00167                                                                   DTSBE740
00168      MOVE MELF-MEDIA-TYPE-CD TO R740-MEDIA-TYPE-CD.               DTSBE740
00169 *    MOVE MELF-TAX-RPT-IND TO R740-TAX-RPT-IND.                      CL**5
00170      MOVE MELF-WAGES-IND TO R740-WAGES-IND.                       DTSBE740
00171      MOVE MELF-WAGE-BEGIN-YRQ TO R740-WAGE-BEGIN-YRQ.                CL**5
00172      PERFORM S946-WRITE-R740 THRU S946-EXIT.                      DTSBE740
00173  P1000-EXIT.                                                      DTSBE740
00174      EXIT.                                                        DTSBE740
00175      EJECT                                                        DTSBE740
00176  T0000-TERMINATE.                                                 DTSBE740
00177      SKIP2                                                        DTSBE740
00178      SKIP2                                                        DTSBE740
00179  T0000-EXIT.                                                      DTSBE740
00180      EXIT.                                                        DTSBE740
00181      EJECT                                                        DTSBE740
00182 *S910-READ.                                                       DTSBE740
00183 *****SET L910-READ-88 TO TRUE.                                    DTSBE740
00184 *****GO TO S910-MSTR-IO.                                          DTSBE740
00185      SKIP1                                                        DTSBE740
00186  S910-START-BROWSE.                                               DTSBE740
00187      SET L910-START-BROWSE-88 TO TRUE.                            DTSBE740
00188      GO TO S910-MSTR-IO.                                          DTSBE740
00189      SKIP1                                                        DTSBE740
00190  S910-READ-NEXT.                                                  DTSBE740
00191      SET L910-READ-NEXT-88 TO TRUE.                               DTSBE740
00192      GO TO S910-MSTR-IO.                                          DTSBE740
00193      SKIP1                                                        DTSBE740
00194 *S910-COUNT.                                                      DTSBE740
00195 *****SET L910-COUNT-88 TO TRUE.                                   DTSBE740
00196 *****GO TO S910-MSTR-IO.                                          DTSBE740
00197      SKIP1                                                        DTSBE740
00198  S910-MSTR-IO.                                                    DTSBE740
00199      CALL 'DTSBU910' USING L910-LINK-AREA                            CL**2
00200                            MSKL-REC.                              DTSBE740
00201  S910-EXIT.                                                       DTSBE740
00202      EXIT.                                                        DTSBE740
00203      SKIP3                                                        DTSBE740
00204  S946-WRITE-R740.                                                 DTSBE740
00205      CALL 'DTSBU946' USING R740-REC.                                 CL**2
00206      GO TO S946-EXIT.                                             DTSBE740
00207      SKIP1                                                        DTSBE740
00208  S946-EXIT.                                                       DTSBE740
00209      EXIT.                                                        DTSBE740
00210      SKIP3                                                        DTSBE740
00211  S999-ABEND.                                                      DTSBE740
00212      DISPLAY '*** DTSBE740 ABENDING.  '                              CL**2
00213              ABEND-MSG.                                           DTSBE740
00214      SKIP1                                                        DTSBE740
00215      CALL 'DTSBU999' USING WRK-ABEND-CD.                             CL**2
00216  S999-EXIT.                                                       DTSBE740
00217      EXIT.                                                        DTSBE740
