00001  IDENTIFICATION DIVISION.                                         10/01/98
00002  PROGRAM-ID.             DTSBD130.                                DTSBD130
00003  AUTHOR.                 TRICOASTAL CONSULTING LTD.                  LV002
00004  DATE-WRITTEN.           JUNE 1994.                               DTSBD130
00005  DATE-COMPILED.                                                   DTSBD130
00006      SKIP3                                                        DTSBD130
00007 *****                                                             DTSBD130
00008 *                                                                 DTSBD130
00009 *    FUNCTION:  DRIVER FOR BATCH TRANSACTION IMPORT FROM          DTSBD130
00010 *               PERSONAL COMPUTER BASED SYSTEMS.                  DTSBD130
00011 *                                                                 DTSBD130
00012 *                                                                 DTSBD130
00013 *    MODIFICATION LOG:                                            DTSBD130
00014 *                                                                 DTSBD130
00015 *    XX/XX/XX  INITIAL DEVELOPMENT.                               DTSBD130
00016 *              WORK ORDER:                      PROGRAMMER: XXX   DTSBD130
00017 *                                                                 DTSBD130
00018 *    03/03/96  ELECTRONIC FILING MODIFICATIONS.  ADD A CALL TO       CL**2
00019 *              DTSBD133 AND ADD OPEN/CLOSE OF AN OUTPUT BATCH        CL**2
00020 *              TRANSACCTION COLLECTION (BTC) FILE.                DTSBD130
00021 *              WORK ORDER: MTS001 - ELF         PROGRAMMER: EHH   DTSBD130
00022 *                                                                 DTSBD130
00023 *    10/01/1998  REVIEWED AND MODIFIED FOR DC.  IN THE INITIAL       CL**2
00024 *                DC DESIGN THERE ARE NO IMPORTS FROM PERSONAL        CL**2
00025 *                COMPUTER BASED SYSTEMS.  THUS, DTSBD130 IS A        CL**2
00026 *                NULL MODULE.  THE NULL VERSION OF DTSBD130 IS       CL**2
00027 *                IN THE DC SYSTEM IN ANTICIPATION OF FUTURE          CL**2
00028 *                REQUIREMENTS.                                       CL**2
00029 *                WORK ORDER: DC DEVELOPMENT     PROGRAMMER: EHH      CL**2
00030 *                                                                    CL**2
00031 *    MM/DD/YYYY  XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX      CL**2
00032 *                XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX      CL**2
00033 *                WORK ORDER: XXXXXXXXXXXXXXX    PROGRAMMER: XXX      CL**2
00034 *                                                                 DTSBD130
00035 *                                                                 DTSBD130
00036 *  DESCRIPTION:                                                   DTSBD130
00037 *                                                                 DTSBD130
00038 *    THIS FUNCTION WAS DONE AS A DRIVER TYPE FUNCTION IN          DTSBD130
00039 *    ANTICIPATION OF ADDITIONAL IMPORTS FROM PERSONAL COMPUTER    DTSBD130
00040 *    BASED SYSTEMS ARISING IN THE FUTURE.  THIS WAY, EACH OF      DTSBD130
00041 *    THESE POTENTIALLY COMPLEX AND DIFFERENT (BASED ON THE        DTSBD130
00042 *    TYPE OF PC SOFTWARE USED) FUNCTIONS CAN BE ISOLATED INTO     DTSBD130
00043 *    AN INDIVIDUAL MODULE.                                        DTSBD130
00044 *                                                                 DTSBD130
00045 *    IT IS ASSUMED THE CALLED MODULES WILL NOT EDIT THE           DTSBD130
00046 *    INCOMING TRANSACTIONS AGAINST THE MASTER FILE (SUCH          DTSBD130
00047 *    EDITS WILL BE CARRIED OUT DURING THE UPDATE STEP             DTSBD130
00048 *    (DTSBD3*).  HOWEVER, IT WILL BE NECESSARY FOR THE CALLED        CL**2
00049 *    MODULES TO ACCESS THE MASTER FILE AND THE AIX FILE FOR       DTSBD130
00050 *    FUNCTIONS SUCH AS FINDING THE EMPLOYER NUMBER ASSOCIATED     DTSBD130
00051 *    WITH A FIELD ASSIGNMENT.  THUS, THE MASTER FILE AND AIX      DTSBD130
00052 *    FILE ARE OPENED READ ONLY.                                   DTSBD130
00053 *                                                                 DTSBD130
00054 *                                                                 DTSBD130
00055 *                                                                 DTSBD130
00056 *    INITIATION:                                                  DTSBD130
00057 *                                                                 DTSBD130
00058 *      NONE.                                                      DTSBD130
00059 *                                                                 DTSBD130
00060 *                                                                 DTSBD130
00061 *    PROCESSING:                                                  DTSBD130
00062 *                                                                 DTSBD130
00063 *      CALL 'DTSBD131' ONCE.                                         CL**2
00064 *                                                                 DTSBD130
00065 *      CALL 'DTSBD132' ONCE.                                         CL**2
00066 *                                                                 DTSBD130
00067 *      CALL 'DTSBD133' ONCE.                                         CL**2
00068 *                                                                 DTSBD130
00069 *                                                                 DTSBD130
00070 *                                                                 DTSBD130
00071 *    TERMINATION:                                                 DTSBD130
00072 *                                                                 DTSBD130
00073 *      CLOSE THE REPORT RECORD FILE AND THE TRANSACTION RECORD    DTSBD130
00074 *      FILE.                                                      DTSBD130
00075 *                                                                 DTSBD130
00076 *                                                                 DTSBD130
00077 *****                                                             DTSBD130
00078      SKIP3                                                        DTSBD130
00079  ENVIRONMENT DIVISION.                                            DTSBD130
00080      SKIP3                                                        DTSBD130
00081  DATA DIVISION.                                                   DTSBD130
00082      SKIP3                                                        DTSBD130
00083  WORKING-STORAGE SECTION.                                         DTSBD130
000835 77  PAN-VALET PICTURE X(24) VALUE '002DTSBD130  10/01/98'.       DTSBD130
00084      SKIP3                                                        DTSBD130
00085  01  WRK-AREA.                                                    DTSBD130
00086      05  WRK-ABEND-CD                PIC S9(04)  COMP  VALUE +130.DTSBD130
00087                                                                   DTSBD130
00088      05  MOD-NAME                    PIC  X(08)  VALUE 'DTSBD130'.   CL**2
00089  EJECT                                                            DTSBD130
00090  01  L910-LINK-AREA.                                              DTSBD130
00091  ++INCLUDE DTSIL910                                                  CL**2
00092      SKIP3                                                        DTSBD130
00093  01  MSKL-REC.                                                    DTSBD130
00094  ++INCLUDE DTSIMSKL                                                  CL**2
00095      EJECT                                                        DTSBD130
00096  01  L921-LINK-AREA.                                              DTSBD130
00097  ++INCLUDE DTSIL921                                                  CL**2
00098      SKIP3                                                        DTSBD130
00099  01  ISKL-REC.                                                    DTSBD130
00100  ++INCLUDE DTSIISKL                                                  CL**2
00101      EJECT                                                        DTSBD130
00102  01  RSK1-REC.                                                    DTSBD130
00103  ++INCLUDE DTSIRSK1                                                  CL**2
00104      EJECT                                                        DTSBD130
00105  01  L927-LINK-AREA.                                              DTSBD130
00106  ++INCLUDE DTSIL927                                                  CL**2
00107      EJECT                                                        DTSBD130
00108  01  TSKL-REC.                                                    DTSBD130
00109  ++INCLUDE DTSITSKL                                                  CL**2
00110  EJECT                                                            DTSBD130
00111  PROCEDURE DIVISION.                                              DTSBD130
00112      SKIP2                                                        DTSBD130
00113      PERFORM I0000-INITIATE THRU I0000-EXIT.                      DTSBD130
00114                                                                      CL**2
00115      PERFORM P0000-PROCESS THRU P0000-EXIT.                       DTSBD130
00116                                                                      CL**2
00117      PERFORM T0000-TERMINATE THRU T0000-EXIT.                     DTSBD130
00118      SKIP2                                                        DTSBD130
00119      GOBACK.                                                      DTSBD130
00120      EJECT                                                        DTSBD130
00121  I0000-INITIATE.                                                  DTSBD130
00122      MOVE 'N' TO L910-TRACE-IND                                   DTSBD130
00123                  L921-TRACE-IND                                   DTSBD130
00124                  L927-TRACE-IND.                                  DTSBD130
00125                                                                      CL**2
00126      MOVE MOD-NAME TO L910-MOD-NAME                               DTSBD130
00127                       L921-MOD-NAME                               DTSBD130
00128                       L927-MOD-NAME.                              DTSBD130
00129                                                                      CL**2
00130                                                                      CL**2
00131      PERFORM S910-OPEN-READ THRU S910-EXIT.                       DTSBD130
00132                                                                      CL**2
00133      PERFORM S921-OPEN-READ THRU S921-EXIT.                       DTSBD130
00134                                                                      CL**2
00135      PERFORM S927-OPEN-UPDATE THRU S927-EXIT.                     DTSBD130
00136  I0000-EXIT.                                                      DTSBD130
00137      EXIT.                                                        DTSBD130
00138      EJECT                                                        DTSBD130
00139  P0000-PROCESS.                                                   DTSBD130
00140 *****                                                                CL**2
00141 *                                                                    CL**2
00142 *    IN THE INITIAL DC DESIGN, THERE ARE NO IMPORTS FROM PC          CL**2
00143 *    BASED SYSTEMS.  HENCE DTSBD130 IS A 'NULL' MODULE.              CL**2
00144 *                                                                    CL**2
00145 *****                                                                CL**2
00146                                                                      CL**2
00147 *****CALL 'DTSBD131'.                                                CL**2
00148                                                                      CL**2
00149 *****CALL 'DTSBD132'.                                                CL**2
00150                                                                      CL**2
00151 *****CALL 'DTSBD133'.                                                CL**2
00152  P0000-EXIT.                                                      DTSBD130
00153      EXIT.                                                        DTSBD130
00154      EJECT                                                        DTSBD130
00155  T0000-TERMINATE.                                                 DTSBD130
00156      DISPLAY ' '.                                                 DTSBD130
00157                                                                      CL**2
00158      DISPLAY '*** DTSBD130 TERMINATION STATISTICS ***'.              CL**2
00159                                                                      CL**2
00160      DISPLAY ' '.                                                 DTSBD130
00161                                                                      CL**2
00162                                                                      CL**2
00163      PERFORM S910-CLOSE THRU S910-EXIT.                           DTSBD130
00164                                                                      CL**2
00165      PERFORM S921-CLOSE THRU S921-EXIT.                           DTSBD130
00166                                                                      CL**2
00167      PERFORM S927-CLOSE THRU S927-EXIT.                           DTSBD130
00168                                                                      CL**2
00169      MOVE -1 TO RSK1-LENGTH.                                      DTSBD130
00170      PERFORM S946-TRN-REC-O THRU S946-EXIT.                       DTSBD130
00171                                                                      CL**2
00172      MOVE -1 TO RSK1-LENGTH.                                      DTSBD130
00173      PERFORM S947-RPT-REC-O THRU S947-EXIT.                       DTSBD130
00174      SKIP2                                                        DTSBD130
00175  T0000-EXIT.                                                      DTSBD130
00176      EXIT.                                                        DTSBD130
00177      EJECT                                                        DTSBD130
00178  S910-OPEN-READ.                                                  DTSBD130
00179      SET L910-OPEN-READ-88 TO TRUE.                               DTSBD130
00180      GO TO S910-MSTR-IO.                                          DTSBD130
00181                                                                      CL**2
00182  S910-CLOSE.                                                      DTSBD130
00183      SET L910-CLOSE-88 TO TRUE.                                   DTSBD130
00184      GO TO S910-MSTR-IO.                                          DTSBD130
00185                                                                      CL**2
00186  S910-MSTR-IO.                                                    DTSBD130
00187      CALL 'DTSBU910' USING L910-LINK-AREA                            CL**2
00188                            MSKL-REC.                              DTSBD130
00189  S910-EXIT.                                                       DTSBD130
00190      EXIT.                                                        DTSBD130
00191      SKIP3                                                        DTSBD130
00192  S921-OPEN-READ.                                                  DTSBD130
00193      SET L921-OPEN-READ-88 TO TRUE.                               DTSBD130
00194      GO TO S921-AIX-IO.                                           DTSBD130
00195                                                                      CL**2
00196  S921-CLOSE.                                                      DTSBD130
00197      SET L921-CLOSE-88 TO TRUE.                                   DTSBD130
00198      GO TO S921-AIX-IO.                                           DTSBD130
00199                                                                      CL**2
00200  S921-AIX-IO.                                                     DTSBD130
00201      CALL 'DTSBU921' USING L921-LINK-AREA                            CL**2
00202                            ISKL-REC.                              DTSBD130
00203  S921-EXIT.                                                       DTSBD130
00204      EXIT.                                                        DTSBD130
00205      SKIP3                                                        DTSBD130
00206  S927-OPEN-UPDATE.                                                DTSBD130
00207      SET L927-OPEN-UPDATE-88 TO TRUE.                             DTSBD130
00208      GO TO S927-BTC-O.                                            DTSBD130
00209                                                                      CL**2
00210  S927-CLOSE.                                                      DTSBD130
00211      SET L927-CLOSE-88 TO TRUE.                                   DTSBD130
00212      GO TO S927-BTC-O.                                            DTSBD130
00213                                                                      CL**2
00214  S927-BTC-O.                                                      DTSBD130
00215      CALL 'DTSBU927' USING L927-LINK-AREA                            CL**2
00216                            TSKL-REC.                              DTSBD130
00217  S927-EXIT.                                                       DTSBD130
00218      EXIT.                                                        DTSBD130
00219      SKIP3                                                        DTSBD130
00220  S946-TRN-REC-O.                                                  DTSBD130
00221      CALL 'DTSBU946' USING RSK1-REC.                                 CL**2
00222  S946-EXIT.                                                       DTSBD130
00223      EXIT.                                                        DTSBD130
00224      SKIP3                                                        DTSBD130
00225  S947-RPT-REC-O.                                                  DTSBD130
00226      CALL 'DTSBU947' USING RSK1-REC.                                 CL**2
00227  S947-EXIT.                                                       DTSBD130
00228      EXIT.                                                        DTSBD130
00229      SKIP3                                                        DTSBD130
00230  S999-ABEND.                                                      DTSBD130
00231      CALL 'DTSBU999' USING WRK-ABEND-CD.                             CL**2
00232  S999-EXIT.                                                       DTSBD130
00233      EXIT.                                                        DTSBD130
