00001  IDENTIFICATION DIVISION.                                         12/01/05
00002  PROGRAM-ID.             DTSBU935.                                DTSBU935
00003  AUTHOR.                 TRW.                                        LV002
00004  DATE-WRITTEN.           JANUARY 2001.                            DTSBU935
00005  DATE-COMPILED.                                                   DTSBU935
00006      SKIP3                                                        DTSBU935
00007 *****                                                             DTSBU935
00008 *                                                                 DTSBU935
00009 *    FUNCTION:  ELECTRONIC MEDIA FILE INPUT/OUTPUT.               DTSBU935
00010 *                                                                 DTSBU935
00011 *                                                                 DTSBU935
00012 *    MODIFICATION LOG:                                            DTSBU935
00013 *                                                                 DTSBU935
00014 *    01/17/2001  INITIAL DEVELOPMENT.                             DTSBU935
00015 *                WORK ORDER:                      PROGRAMMER: GD  DTSBU935
00016 *                                                                 DTSBU935
00017 *    03/23/2001  ADDED TEST FOR DUP KEY DURING WRITE.             DTSBU935
00018 *                WORK ORDER:                      PROGRAMMER: GD  DTSBU935
00019 *                                                                 DTSBU935
00020 *    MM/DD/YYYY  XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX   DTSBU935
00021 *                XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX   DTSBU935
00022 *                REFERENCE: XXXXXXXXXXXXXXX     PROGRAMMER: XXX   DTSBU935
00023 *                                                                 DTSBU935
00024 *                                                                 DTSBU935
00025 *    DESCRIPTION:                                                 DTSBU935
00026 *                                                                 DTSBU935
00027 *        DTSBU935 PERFORMS ALL REQUIRED ELECTRONIC MEDIA          DTSBU935
00028 *        FILE INPUT/OUTPUT.                                       DTSBU935
00029 *                                                                 DTSBU935
00030 *                                                                 DTSBU935
00031 *    GENERAL SPECIFICATIONS:                                      DTSBU935
00032 *                                                                 DTSBU935
00033 *        ALL COMMANDS ARE VALID.                                  DTSBU935
00034 *                                                                 DTSBU935
00035 *        IF AN INVALID COMMAND IS REQUESTED, THEN ABEND THE       DTSBU935
00036 *        MODULE.                                                  DTSBU935
00037 *                                                                 DTSBU935
00038 *        IF A FILE-STATUS OF OTHER THAN '00', '10', OR '23' IS    DTSBU935
00039 *        ENCOUNTERED, THEN ABEND PROCESSING (TOLERATE A           DTSBU935
00040 *        FILE-STATUS OF '97' FROM AN OPEN COMMAND).               DTSBU935
00041 *                                                                 DTSBU935
00042 *                                                                 DTSBU935
00043 *                                                                 DTSBU935
00044 *    COMMAND SPECIFIC SPECIFICATIONS:                             DTSBU935
00045 *                                                                 DTSBU935
00046 *    OPEN-READ                                                    DTSBU935
00047 *        OPEN INPUT.                                              DTSBU935
00048 *                                                                 DTSBU935
00049 *    OPEN-UPDATE                                                  DTSBU935
00050 *        OPEN I-O.                                                DTSBU935
00051 *                                                                 DTSBU935
00052 *    CLOSE                                                        DTSBU935
00053 *                                                                 DTSBU935
00054 *    READ                                                         DTSBU935
00055 *                                                                 DTSBU935
00056 *    START BROWSE                                                 DTSBU935
00057 *        IF THE START-BROWSE IS SUCCESSFUL, THEN PERFORM THE      DTSBU935
00058 *        READ-NEXT LOGIC.  A SUCCESSFUL START-BROWSE RETURNS      DTSBU935
00059 *        A RECORD.                                                DTSBU935
00060 *                                                                 DTSBU935
00061 *    READ NEXT                                                    DTSBU935
00062 *        RETURN L935-NO-REC-88 AT A BREAK IN REC-TYPE             DTSBU935
00063 *           AND AT END OF FILE.                                   DTSBU935
00064 *        FOR THE PROFILE RECORD FILE (MSTE) RETURN                DTSBU935
00065 *           L935-NO-REC-88 ONLY AT END OF FILE.                   DTSBU935
00066 *        FOR THE LOG FILE (MSTF) RETURN                           DTSBU935
00067 *           L935-NO-REC-88 AT A BREAK IN LOG NUMBER.              DTSBU935
00068 *        FOR THE EMPLOYER HISTORY FILE (MSTG) RETURN              DTSBU935
00069 *           L935-NO-REC-88 AT A BREAK IN EMP-NO.                  DTSBU935
00070 *                                                                 DTSBU935
00071 *    WRITE                                                        DTSBU935
00072 *                                                                 DTSBU935
00073 *    REWRITE                                                      DTSBU935
00074 *                                                                 DTSBU935
00075 *    DELETE                                                       DTSBU935
00076 *                                                                 DTSBU935
00077 *                                                                 DTSBU935
00078 *****                                                             DTSBU935
00079      SKIP3                                                        DTSBU935
00080  ENVIRONMENT DIVISION.                                            DTSBU935
00081      SKIP2                                                        DTSBU935
00082  INPUT-OUTPUT SECTION.                                            DTSBU935
00083                                                                   DTSBU935
00084  FILE-CONTROL.                                                    DTSBU935
00085      SELECT MSTE-FILE                                             DTSBU935
00086             ASSIGN TO DTSFMSTE                                    DTSBU935
00087             ORGANIZATION IS INDEXED                               DTSBU935
00088             RECORD KEY IS ESKL-KEY-AREA OF MSTE-SKL-REC           DTSBU935
00089             FILE STATUS IS FILE-STATUS                            DTSBU935
00090             ACCESS IS DYNAMIC.                                    DTSBU935
00091      SKIP3                                                        DTSBU935
00092      SELECT MSTF-FILE                                             DTSBU935
00093             ASSIGN TO DTSFMSTF                                    DTSBU935
00094             ORGANIZATION IS INDEXED                               DTSBU935
00095             RECORD KEY IS ESKL-KEY-AREA OF MSTF-SKL-REC           DTSBU935
00096             FILE STATUS IS FILE-STATUS                            DTSBU935
00097             ACCESS IS DYNAMIC.                                    DTSBU935
00098      SKIP3                                                        DTSBU935
00099      SELECT MSTG-FILE                                             DTSBU935
00100             ASSIGN TO DTSFMSTG                                    DTSBU935
00101             ORGANIZATION IS INDEXED                               DTSBU935
00102             RECORD KEY IS ESKL-KEY-AREA OF MSTG-SKL-REC           DTSBU935
00103             FILE STATUS IS FILE-STATUS                            DTSBU935
00104             ACCESS IS DYNAMIC.                                    DTSBU935
00105      SKIP3                                                        DTSBU935
00106  DATA DIVISION.                                                   DTSBU935
00107      SKIP3                                                        DTSBU935
00108  FILE SECTION.                                                    DTSBU935
00109      SKIP3                                                        DTSBU935
00110  FD  MSTE-FILE.                                                   DTSBU935
00111                                                                   DTSBU935
00112  01  MSTE-SKL-REC.                                                DTSBU935
00113  ++INCLUDE DTSIESKL                                               DTSBU935
00114      SKIP3                                                        DTSBU935
00115  01  MSTE-VAR-REC.                                                DTSBU935
00116      05  MSTE-VAR-CHAR OCCURS 32 TO 1024 TIMES                    DTSBU935
00117                        DEPENDING ON VAR-CHAR-CNT                  DTSBU935
00118                                      PIC  X(01).                  DTSBU935
00119                                                                   DTSBU935
00120  FD  MSTF-FILE.                                                   DTSBU935
00121                                                                   DTSBU935
00122  01  MSTF-SKL-REC.                                                DTSBU935
00123  ++INCLUDE DTSIESKL                                               DTSBU935
00124      SKIP3                                                        DTSBU935
00125  01  MSTF-VAR-REC.                                                DTSBU935
00126      05  MSTF-VAR-CHAR OCCURS 32 TO 1024 TIMES                    DTSBU935
00127                        DEPENDING ON VAR-CHAR-CNT                  DTSBU935
00128                                      PIC  X(01).                  DTSBU935
00129                                                                   DTSBU935
00130  FD  MSTG-FILE.                                                   DTSBU935
00131                                                                   DTSBU935
00132  01  MSTG-SKL-REC.                                                DTSBU935
00133  ++INCLUDE DTSIESKL                                               DTSBU935
00134      SKIP3                                                        DTSBU935
00135  01  MSTG-VAR-REC.                                                DTSBU935
00136      05  MSTG-VAR-CHAR OCCURS 32 TO 1024 TIMES                    DTSBU935
00137                        DEPENDING ON VAR-CHAR-CNT                  DTSBU935
00138                                      PIC  X(01).                  DTSBU935
00139                                                                   DTSBU935
00140      EJECT                                                        DTSBU935
00141  WORKING-STORAGE SECTION.                                         DTSBU935
001415 77  PAN-VALET PICTURE X(24) VALUE '002DTSBU935  12/01/05'.       DTSBU935
00142      SKIP3                                                        DTSBU935
00143  01  WRK-AREA.                                                    DTSBU935
00144      05  WRK-ABEND-CD                PIC S9(04)  COMP  VALUE +935.DTSBU935
00145                                                                   DTSBU935
00146      05  WRK-MOD-NAME                PIC  X(08) VALUE 'DTSBU935'. DTSBU935
00147                                                                   DTSBU935
00148      05  VAR-CHAR-CNT                PIC S9(04)  COMP.            DTSBU935
00149                                                                   DTSBU935
00150      05  FILE-STATUS                 PIC  X(02).                  DTSBU935
00151          88  FILE-OK-88                  VALUE '00'.              DTSBU935
00152          88  FILE-NO-REC-88              VALUE '10' '23'.         DTSBU935
00153          88  FILE-DUP-KEY-88             VALUE '22'.              DTSBU935
00154          88  FILE-VERIFY-88              VALUE '97'.              DTSBU935
00155                                                                   DTSBU935
00156      05  WRK-REC-PREFIX              PIC  X(04).                  DTSBU935
00157                                                                   DTSBU935
00158      05  REC-TYPE-SUB                PIC S9(04)  COMP.            DTSBU935
00159                                                                   DTSBU935
00160      05  FILE-SUB                    PIC S9(04)  COMP.            DTSBU935
00161          88  FILE-SUB-MSTE-88     VALUE +1.                       DTSBU935
00162          88  FILE-SUB-MSTF-88     VALUE +2.                       DTSBU935
00163          88  FILE-SUB-MSTG-88     VALUE +3.                       DTSBU935
00164                                                                   DTSBU935
00165      05  FILE-STATE                  PIC  X(03)  VALUE 'CL '.     DTSBU935
00166          88  FILE-OPEN-READ-88          VALUE 'OPR'.              DTSBU935
00167          88  FILE-OPEN-UPDATE-88        VALUE 'OPU'.              DTSBU935
00168          88  FILE-OPEN-UPDATE-HDR-88    VALUE 'OPH'.              DTSBU935
00169          88  FILE-OPEN-UPDATE-NO-AIX-88 VALUE 'OPA'.              DTSBU935
00170          88  FILE-CLOSE-88              VALUE 'CL '.              DTSBU935
00171                                                                   DTSBU935
00172      05  WRK-KEY-FILLER-START        PIC S9(04)  COMP.            DTSBU935
00173                                                                   DTSBU935
00174      05  WRK-KEY-FILLER-LENGTH       PIC S9(04)  COMP.            DTSBU935
00175                                                                   DTSBU935
00176  01  WRK-REC.                                                     DTSBU935
00177  ++INCLUDE DTSIESKL                                               DTSBU935
00178  01  FILLER REDEFINES WRK-REC.                                    DTSBU935
00179      05  WRK-VAR-CHAR OCCURS 1024 TIMES  PIC X(01).               DTSBU935
00180                                                                   DTSBU935
00181  01  EPRF-REC REDEFINES WRK-REC.                                  DTSBU935
00182  ++INCLUDE DTSIEPRF                                               DTSBU935
00183                                                                   DTSBU935
00184  01  ELOG-REC REDEFINES WRK-REC.                                  DTSBU935
00185  ++INCLUDE DTSIELOG                                               DTSBU935
00186                                                                   DTSBU935
00187  01  EEMH-REC REDEFINES WRK-REC.                                  DTSBU935
00188  ++INCLUDE DTSIEEMH                                               DTSBU935
00189                                                                   DTSBU935
00190      EJECT                                                        DTSBU935
00191  01  AIX-WORK-AREA.                                               DTSBU935
00192  ++INCLUDE DTSIXAIX                                               DTSBU935
00193                                                                   DTSBU935
00194  01  L921-LINK-AREA.                                              DTSBU935
00195  ++INCLUDE DTSIL921                                               DTSBU935
00196                                                                   DTSBU935
00197  01  ISKL-REC.                                                    DTSBU935
00198  ++INCLUDE DTSIISKL                                               DTSBU935
00199                                                                   DTSBU935
00200  01  IENM-REC REDEFINES ISKL-REC.                                 DTSBU935
00201  ++INCLUDE DTSIIENM                                               DTSBU935
00202                                                                   DTSBU935
00203  01  IEAL-REC REDEFINES ISKL-REC.                                 DTSBU935
00204  ++INCLUDE DTSIIEAL                                               DTSBU935
00205                                                                   DTSBU935
00206  01  IEAE-REC REDEFINES ISKL-REC.                                 DTSBU935
00207  ++INCLUDE DTSIIEAE                                               DTSBU935
00208                                                                   DTSBU935
00209  01  IEBX-REC REDEFINES ISKL-REC.                                 DTSBU935
00210  ++INCLUDE DTSIIEBX                                               DTSBU935
00211                                                                   DTSBU935
00212  01  IEOP-REC REDEFINES ISKL-REC.                                 DTSBU935
00213  ++INCLUDE DTSIIEOP                                               DTSBU935
00214                                                                   DTSBU935
00215  01  IESR-REC REDEFINES ISKL-REC.                                 DTSBU935
00216  ++INCLUDE DTSIIESR                                               DTSBU935
00217                                                                   DTSBU935
00218  01  IEER-REC REDEFINES ISKL-REC.                                 DTSBU935
00219  ++INCLUDE DTSIIEER                                               DTSBU935
00220                                                                   DTSBU935
00221  01  IEET-REC REDEFINES ISKL-REC.                                 DTSBU935
00222  ++INCLUDE DTSIIEET                                               DTSBU935
00223                                                                   DTSBU935
00224  01  IEPR-REC REDEFINES ISKL-REC.                                 DTSBU935
00225  ++INCLUDE DTSIIEPR                                               DTSBU935
00226                                                                   DTSBU935
00227  01  L991-LINK-AREA.                                              DTSBU935
00228  ++INCLUDE DTSIL991                                               DTSBU935
00229      EJECT                                                        DTSBU935
00230  01  ELEN-LENGTH-LITERALS.                                        DTSBU935
00231  ++INCLUDE DTSIELEN                                               DTSBU935
00232      EJECT                                                        DTSBU935
00233  LINKAGE SECTION.                                                 DTSBU935
00234      SKIP3                                                        DTSBU935
00235  01  L935-LINK-AREA.                                              DTSBU935
00236  ++INCLUDE DTSIL935                                               DTSBU935
00237      EJECT                                                        DTSBU935
00238  01  LINK-REC.                                                    DTSBU935
00239      05  ESKL-REC.                                                DTSBU935
00240  ++INCLUDE DTSIESKL                                               DTSBU935
00241      EJECT                                                        DTSBU935
00242  PROCEDURE DIVISION USING L935-LINK-AREA                          DTSBU935
00243                           LINK-REC.                               DTSBU935
00244                                                                   DTSBU935
00245                                                                   DTSBU935
00246      SET L935-OK-88 TO TRUE.                                      DTSBU935
00247                                                                   DTSBU935
00248      IF L935-TRACE-88                                             DTSBU935
00249          PERFORM S9100-PRE-DISPLAY THRU S9100-EXIT.               DTSBU935
00250                                                                   DTSBU935
00251      IF L935-OPEN-88                                              DTSBU935
00252         PERFORM P1100-OPEN THRU P1100-EXIT                        DTSBU935
00253      ELSE                                                         DTSBU935
00254      IF L935-CLOSE-88                                             DTSBU935
00255          PERFORM P1200-CLOSE THRU P1200-EXIT                      DTSBU935
00256      ELSE                                                         DTSBU935
00257          PERFORM P0100-REC-TYPE THRU P0100-EXIT                   DTSBU935
00258          IF L935-READ-NEXT-88                                     DTSBU935
00259              PERFORM P2300-READ-NEXT THRU P2300-EXIT              DTSBU935
00260          ELSE                                                     DTSBU935
00261          IF L935-READ-88                                          DTSBU935
00262              PERFORM P2100-READ THRU P2100-EXIT                   DTSBU935
00263          ELSE                                                     DTSBU935
00264          IF L935-START-BROWSE-88                                  DTSBU935
00265              PERFORM P2200-START-BROWSE THRU P2200-EXIT           DTSBU935
00266          ELSE                                                     DTSBU935
00267          IF L935-WRITE-88                                         DTSBU935
00268          OR L935-WRITE-CHK-DUP-KEY-88                             DTSBU935
00269              PERFORM P3100-WRITE THRU P3100-EXIT                  DTSBU935
00270          ELSE                                                     DTSBU935
00271          IF L935-REWRITE-88                                       DTSBU935
00272              PERFORM P3200-REWRITE THRU P3200-EXIT                DTSBU935
00273          ELSE                                                     DTSBU935
00274          IF L935-DELETE-88                                        DTSBU935
00275              PERFORM P3300-DELETE THRU P3300-EXIT                 DTSBU935
00276          ELSE                                                     DTSBU935
00277              PERFORM S999-ABEND THRU S999-EXIT.                   DTSBU935
00278                                                                   DTSBU935
00279      IF L935-TRACE-88                                             DTSBU935
00280          PERFORM S9200-POST-DISPLAY THRU S9200-EXIT.              DTSBU935
00281                                                                   DTSBU935
00282                                                                   DTSBU935
00283      GOBACK.                                                      DTSBU935
00284      EJECT                                                        DTSBU935
00285  P0100-REC-TYPE.                                                  DTSBU935
00286      MOVE ESKL-REC-TYPE OF LINK-REC TO REC-TYPE-SUB.              DTSBU935
00287                                                                   DTSBU935
00288      IF (REC-TYPE-SUB < +1)                                       DTSBU935
00289      OR (REC-TYPE-SUB > ELEN-MAX-REC-ID)                          DTSBU935
00290          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBU935
00291                                                                   DTSBU935
00292      MOVE ELEN-FILE-ID (REC-TYPE-SUB) TO FILE-SUB.                DTSBU935
00293      IF FILE-SUB = +0                                             DTSBU935
00294          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBU935
00295                                                                   DTSBU935
00296      MOVE ELEN-REC-LEN (REC-TYPE-SUB) TO VAR-CHAR-CNT.            DTSBU935
00297      IF (VAR-CHAR-CNT < +1)                                       DTSBU935
00298            OR                                                     DTSBU935
00299         (VAR-CHAR-CNT > ELEN-MAX-REC-LEN)                         DTSBU935
00300          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBU935
00301                                                                   DTSBU935
00302  P0100-EXIT.                                                      DTSBU935
00303      EXIT.                                                        DTSBU935
00304                                                                   DTSBU935
00305  P1100-OPEN.                                                      DTSBU935
00306      IF L935-OPEN-READ-88                                         DTSBU935
00307      OR L935-OPEN-UPDATE-88                                       DTSBU935
00308      OR L935-OPEN-UPDATE-HDR-88                                   DTSBU935
00309      OR L935-OPEN-UPDATE-NO-AIX-88                                DTSBU935
00310          NEXT SENTENCE                                            DTSBU935
00311      ELSE                                                         DTSBU935
00312          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBU935
00313                                                                   DTSBU935
00314      MOVE L935-CMND-CD    TO FILE-STATE.                          DTSBU935
00315                                                                   DTSBU935
00316      IF L935-OPEN-READ-88                                         DTSBU935
00317          OPEN INPUT MSTE-FILE                                     DTSBU935
00318      ELSE                                                         DTSBU935
00319          OPEN I-O   MSTE-FILE.                                    DTSBU935
00320                                                                   DTSBU935
00321      IF FILE-OK-88 OR FILE-VERIFY-88                              DTSBU935
00322          NEXT SENTENCE                                            DTSBU935
00323      ELSE                                                         DTSBU935
00324          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBU935
00325                                                                   DTSBU935
00326      IF L935-OPEN-READ-88                                         DTSBU935
00327      OR L935-OPEN-UPDATE-HDR-88                                   DTSBU935
00328          OPEN INPUT MSTF-FILE                                     DTSBU935
00329      ELSE                                                         DTSBU935
00330          OPEN I-O   MSTF-FILE.                                    DTSBU935
00331                                                                   DTSBU935
00332      IF FILE-OK-88 OR FILE-VERIFY-88                              DTSBU935
00333          NEXT SENTENCE                                            DTSBU935
00334      ELSE                                                         DTSBU935
00335          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBU935
00336                                                                   DTSBU935
00337      IF FILE-OK-88 OR FILE-VERIFY-88                              DTSBU935
00338          NEXT SENTENCE                                            DTSBU935
00339      ELSE                                                         DTSBU935
00340          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBU935
00341                                                                   DTSBU935
00342      IF L935-OPEN-READ-88                                         DTSBU935
00343      OR L935-OPEN-UPDATE-HDR-88                                   DTSBU935
00344          OPEN INPUT MSTG-FILE                                     DTSBU935
00345      ELSE                                                         DTSBU935
00346          OPEN I-O   MSTG-FILE.                                    DTSBU935
00347                                                                   DTSBU935
00348      IF FILE-OK-88 OR FILE-VERIFY-88                              DTSBU935
00349          NEXT SENTENCE                                            DTSBU935
00350      ELSE                                                         DTSBU935
00351          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBU935
00352                                                                   DTSBU935
00353      IF FILE-OK-88 OR FILE-VERIFY-88                              DTSBU935
00354          NEXT SENTENCE                                            DTSBU935
00355      ELSE                                                         DTSBU935
00356          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBU935
00357                                                                   DTSBU935
00358  P1100-EXIT.                                                      DTSBU935
00359      EXIT.                                                        DTSBU935
00360      SKIP3                                                        DTSBU935
00361  P1200-CLOSE.                                                     DTSBU935
00362      MOVE L935-CMND-CD    TO FILE-STATE.                          DTSBU935
00363                                                                   DTSBU935
00364      CLOSE MSTE-FILE.                                             DTSBU935
00365                                                                   DTSBU935
00366      IF FILE-OK-88                                                DTSBU935
00367          NEXT SENTENCE                                            DTSBU935
00368      ELSE                                                         DTSBU935
00369          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBU935
00370                                                                   DTSBU935
00371      CLOSE MSTF-FILE.                                             DTSBU935
00372                                                                   DTSBU935
00373      IF FILE-OK-88                                                DTSBU935
00374          NEXT SENTENCE                                            DTSBU935
00375      ELSE                                                         DTSBU935
00376          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBU935
00377                                                                   DTSBU935
00378      CLOSE MSTG-FILE.                                             DTSBU935
00379                                                                   DTSBU935
00380      IF FILE-OK-88                                                DTSBU935
00381          NEXT SENTENCE                                            DTSBU935
00382      ELSE                                                         DTSBU935
00383          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBU935
00384                                                                   DTSBU935
00385  P1200-EXIT.                                                      DTSBU935
00386      EXIT.                                                        DTSBU935
00387      EJECT                                                        DTSBU935
00388  P2100-READ.                                                      DTSBU935
00389      IF FILE-SUB-MSTE-88                                          DTSBU935
00390         MOVE ESKL-KEY-AREA OF LINK-REC                            DTSBU935
00391           TO ESKL-KEY-AREA OF MSTE-SKL-REC                        DTSBU935
00392         READ MSTE-FILE INTO WRK-REC                               DTSBU935
00393      ELSE                                                         DTSBU935
00394      IF FILE-SUB-MSTF-88                                          DTSBU935
00395         MOVE ESKL-KEY-AREA OF LINK-REC                            DTSBU935
00396           TO ESKL-KEY-AREA OF MSTF-SKL-REC                        DTSBU935
00397         READ MSTF-FILE INTO WRK-REC                               DTSBU935
00398      ELSE                                                         DTSBU935
00399      IF FILE-SUB-MSTG-88                                          DTSBU935
00400         MOVE ESKL-KEY-AREA OF LINK-REC                            DTSBU935
00401           TO ESKL-KEY-AREA OF MSTG-SKL-REC                        DTSBU935
00402         READ MSTG-FILE INTO WRK-REC                               DTSBU935
00403      ELSE                                                         DTSBU935
00404          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBU935
00405                                                                   DTSBU935
00406      IF FILE-OK-88                                                DTSBU935
00407          PERFORM S2200-FILE-TO-LINK THRU S2200-EXIT               DTSBU935
00408      ELSE                                                         DTSBU935
00409      IF FILE-NO-REC-88                                            DTSBU935
00410          PERFORM S1100-NO-REC THRU S1100-EXIT                     DTSBU935
00411      ELSE                                                         DTSBU935
00412          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBU935
00413  P2100-EXIT.                                                      DTSBU935
00414      EXIT.                                                        DTSBU935
00415      EJECT                                                        DTSBU935
00416  P2200-START-BROWSE.                                              DTSBU935
00417      IF FILE-SUB-MSTE-88                                          DTSBU935
00418         MOVE ESKL-KEY-AREA OF LINK-REC                            DTSBU935
00419           TO ESKL-KEY-AREA OF MSTE-SKL-REC                        DTSBU935
00420         START MSTE-FILE                                           DTSBU935
00421          KEY IS NOT < ESKL-KEY-AREA OF MSTE-SKL-REC               DTSBU935
00422      ELSE                                                         DTSBU935
00423      IF FILE-SUB-MSTF-88                                          DTSBU935
00424         MOVE ESKL-KEY-AREA OF LINK-REC                            DTSBU935
00425           TO ESKL-KEY-AREA OF MSTF-SKL-REC                        DTSBU935
00426         START MSTF-FILE                                           DTSBU935
00427          KEY IS NOT < ESKL-KEY-AREA OF MSTF-SKL-REC               DTSBU935
00428      ELSE                                                         DTSBU935
00429      IF FILE-SUB-MSTG-88                                          DTSBU935
00430         MOVE ESKL-KEY-AREA OF LINK-REC                            DTSBU935
00431           TO ESKL-KEY-AREA OF MSTG-SKL-REC                        DTSBU935
00432         START MSTG-FILE                                           DTSBU935
00433          KEY IS NOT < ESKL-KEY-AREA OF MSTG-SKL-REC               DTSBU935
00434      ELSE                                                         DTSBU935
00435          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBU935
00436                                                                   DTSBU935
00437      IF FILE-OK-88                                                DTSBU935
00438          PERFORM P2300-READ-NEXT THRU P2300-EXIT                  DTSBU935
00439      ELSE                                                         DTSBU935
00440      IF FILE-NO-REC-88                                            DTSBU935
00441          PERFORM S1100-NO-REC THRU S1100-EXIT                     DTSBU935
00442      ELSE                                                         DTSBU935
00443          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBU935
00444  P2200-EXIT.                                                      DTSBU935
00445      EXIT.                                                        DTSBU935
00446      EJECT                                                        DTSBU935
00447  P2300-READ-NEXT.                                                 DTSBU935
00448      IF FILE-SUB-MSTE-88                                          DTSBU935
00449         READ MSTE-FILE NEXT INTO WRK-REC                          DTSBU935
00450      ELSE                                                         DTSBU935
00451      IF FILE-SUB-MSTF-88                                          DTSBU935
00452         READ MSTF-FILE NEXT INTO WRK-REC                          DTSBU935
00453      ELSE                                                         DTSBU935
00454      IF FILE-SUB-MSTG-88                                          DTSBU935
00455         READ MSTG-FILE NEXT INTO WRK-REC                          DTSBU935
00456      ELSE                                                         DTSBU935
00457          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBU935
00458                                                                   DTSBU935
00459      IF FILE-NO-REC-88                                            DTSBU935
00460          PERFORM S1100-NO-REC THRU S1100-EXIT                     DTSBU935
00461          GO TO P2300-EXIT.                                        DTSBU935
00462                                                                   DTSBU935
00463      IF FILE-OK-88                                                DTSBU935
00464          NEXT SENTENCE                                            DTSBU935
00465      ELSE                                                         DTSBU935
00466          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBU935
00467                                                                   DTSBU935
00468 ****************************************************************  DTSBU935
00469 *    FOR THE PROFILE RECORD (EPRF) SET NO RECORD FOUND            DTSBU935
00470 *    ONLY AT END OF FILE.                                         DTSBU935
00471 ****************************************************************  DTSBU935
00472      IF ESKL-PRF-88 OF LINK-REC                                   DTSBU935
00473          PERFORM S2200-FILE-TO-LINK THRU S2200-EXIT               DTSBU935
00474          GO TO P2300-EXIT.                                        DTSBU935
00475                                                                   DTSBU935
00476 ****************************************************************  DTSBU935
00477 *    FOR ALL OTHER RECORD TYPES SET NO RECORD FOUND               DTSBU935
00478 *    AT A BREAK IN RECORD TYPE.                                   DTSBU935
00479 ****************************************************************  DTSBU935
00480      IF ESKL-REC-TYPE OF WRK-REC                                  DTSBU935
00481             NOT = ESKL-REC-TYPE OF LINK-REC                       DTSBU935
00482          PERFORM S1100-NO-REC THRU S1100-EXIT                     DTSBU935
00483          GO TO P2300-EXIT.                                        DTSBU935
00484                                                                   DTSBU935
00485 ****************************************************************  DTSBU935
00486 *    FOR THE MESSAGE (EMSG) AND TRIGGER (ETRG) FILES SET NO       DTSBU935
00487 *    RECORD FOUND AT A BREAK IN LOG NUMBER.                       DTSBU935
00488 *                                                                 DTSBU935
00489 *    FOR THE EMPLOYER HISTORY FILE (EEMH) SET NO RECORD FOUND     DTSBU935
00490 *    AT A BREAK IN EMP-NO.                                        DTSBU935
00491 ****************************************************************  DTSBU935
00492      IF ESKL-MSG-88 OF WRK-REC                                    DTSBU935
00493      OR ESKL-TRG-88 OF WRK-REC                                    DTSBU935
00494         IF ESKL-ELOG-LOG-NO OF WRK-REC =                             CL**2
00495                                ESKL-ELOG-LOG-NO OF LINK-REC          CL**2
00496            PERFORM S2200-FILE-TO-LINK THRU S2200-EXIT             DTSBU935
00497         ELSE                                                      DTSBU935
00498            PERFORM S1100-NO-REC THRU S1100-EXIT                   DTSBU935
00499         END-IF                                                    DTSBU935
00500      ELSE                                                         DTSBU935
00501         IF ESKL-EMH-88 OF WRK-REC                                 DTSBU935
00502            IF ESKL-EMP-NO OF WRK-REC = ESKL-EMP-NO OF LINK-REC    DTSBU935
00503               PERFORM S2200-FILE-TO-LINK THRU S2200-EXIT          DTSBU935
00504            ELSE                                                   DTSBU935
00505               PERFORM S1100-NO-REC THRU S1100-EXIT                DTSBU935
00506            END-IF                                                 DTSBU935
00507         ELSE                                                      DTSBU935
00508            PERFORM S2200-FILE-TO-LINK THRU S2200-EXIT             DTSBU935
00509         END-IF                                                    DTSBU935
00510      END-IF.                                                      DTSBU935
00511                                                                   DTSBU935
00512  P2300-EXIT.                                                      DTSBU935
00513      EXIT.                                                        DTSBU935
00514      EJECT                                                        DTSBU935
00515  P3100-WRITE.                                                     DTSBU935
00516      IF FILE-OPEN-UPDATE-HDR-88                                   DTSBU935
00517         IF ESKL-HDR-88 OF LINK-REC                                DTSBU935
00518            NEXT SENTENCE                                          DTSBU935
00519         ELSE                                                      DTSBU935
00520            PERFORM S999-ABEND THRU S999-EXIT.                     DTSBU935
00521                                                                   DTSBU935
00522      PERFORM S2100-LINK-TO-FILE THRU S2100-EXIT.                  DTSBU935
00523                                                                   DTSBU935
00524      PERFORM P3110-INIT-KEY-FILLER THRU P3110-EXIT.               DTSBU935
00525                                                                   DTSBU935
00526      IF FILE-SUB-MSTE-88                                          DTSBU935
00527         WRITE MSTE-VAR-REC FROM WRK-REC                           DTSBU935
00528      ELSE                                                         DTSBU935
00529      IF FILE-SUB-MSTF-88                                          DTSBU935
00530         WRITE MSTF-VAR-REC FROM WRK-REC                           DTSBU935
00531      ELSE                                                         DTSBU935
00532      IF FILE-SUB-MSTG-88                                          DTSBU935
00533         WRITE MSTG-VAR-REC FROM WRK-REC                           DTSBU935
00534      ELSE                                                         DTSBU935
00535          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBU935
00536                                                                   DTSBU935
00537      IF FILE-OK-88                                                DTSBU935
00538          NEXT SENTENCE                                            DTSBU935
00539      ELSE                                                         DTSBU935
00540          IF L935-WRITE-CHK-DUP-KEY-88                             DTSBU935
00541              IF FILE-DUP-KEY-88                                   DTSBU935
00542                  SET L935-DUP-KEY-88 TO TRUE                      DTSBU935
00543                  GO TO P3100-EXIT                                 DTSBU935
00544              ELSE                                                 DTSBU935
00545                  PERFORM S999-ABEND THRU S999-EXIT                DTSBU935
00546              END-IF                                               DTSBU935
00547          ELSE                                                     DTSBU935
00548              PERFORM S999-ABEND THRU S999-EXIT                    DTSBU935
00549          END-IF                                                   DTSBU935
00550      END-IF.                                                      DTSBU935
00551                                                                   DTSBU935
00552      IF FILE-OPEN-UPDATE-NO-AIX-88                                DTSBU935
00553         GO TO P3100-EXIT.                                         DTSBU935
00554                                                                   DTSBU935
00555      MOVE LOW-VALUES TO PRE-UPDATE-AIX-RECS.                      DTSBU935
00556                                                                   DTSBU935
00557      PERFORM S3200-CONSTRUCT-IPOST THRU S3200-EXIT.               DTSBU935
00558                                                                   DTSBU935
00559      PERFORM S3300-UPDATE-AIX THRU S3300-EXIT.                    DTSBU935
00560                                                                   DTSBU935
00561  P3100-EXIT.                                                      DTSBU935
00562      EXIT.                                                        DTSBU935
00563                                                                   DTSBU935
00564  P3110-INIT-KEY-FILLER.                                           DTSBU935
00565      COMPUTE WRK-KEY-FILLER-START                                 DTSBU935
00566         = ELEN-KEY-LEN (REC-TYPE-SUB) + 1.                        DTSBU935
00567                                                                   DTSBU935
00568      COMPUTE WRK-KEY-FILLER-LENGTH                                DTSBU935
00569         = ELEN-MAX-KEY-LEN - ELEN-KEY-LEN (REC-TYPE-SUB).         DTSBU935
00570                                                                   DTSBU935
00571      IF WRK-KEY-FILLER-LENGTH > +0                                DTSBU935
00572         MOVE LOW-VALUES TO ESKL-KEY-AREA OF WRK-REC               DTSBU935
00573            (WRK-KEY-FILLER-START:WRK-KEY-FILLER-LENGTH).          DTSBU935
00574                                                                   DTSBU935
00575  P3110-EXIT.                                                      DTSBU935
00576      EXIT.                                                        DTSBU935
00577                                                                   DTSBU935
00578      EJECT                                                        DTSBU935
00579  P3200-REWRITE.                                                   DTSBU935
00580      IF FILE-OPEN-UPDATE-HDR-88                                   DTSBU935
00581         IF ESKL-HDR-88 OF LINK-REC                                DTSBU935
00582            NEXT SENTENCE                                          DTSBU935
00583         ELSE                                                      DTSBU935
00584            PERFORM S999-ABEND THRU S999-EXIT.                     DTSBU935
00585                                                                   DTSBU935
00586      PERFORM P3900-PREPARE-FOR-UPDATE THRU P3900-EXIT.            DTSBU935
00587                                                                   DTSBU935
00588      IF FILE-NO-REC-88                                            DTSBU935
00589          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBU935
00590                                                                   DTSBU935
00591      PERFORM S2100-LINK-TO-FILE THRU S2100-EXIT.                  DTSBU935
00592                                                                   DTSBU935
00593      IF FILE-SUB-MSTE-88                                          DTSBU935
00594         REWRITE MSTE-VAR-REC FROM WRK-REC                         DTSBU935
00595      ELSE                                                         DTSBU935
00596      IF FILE-SUB-MSTF-88                                          DTSBU935
00597         REWRITE MSTF-VAR-REC FROM WRK-REC                         DTSBU935
00598      ELSE                                                         DTSBU935
00599      IF FILE-SUB-MSTG-88                                          DTSBU935
00600         REWRITE MSTG-VAR-REC FROM WRK-REC                         DTSBU935
00601      ELSE                                                         DTSBU935
00602          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBU935
00603                                                                   DTSBU935
00604      IF FILE-OK-88                                                DTSBU935
00605          NEXT SENTENCE                                            DTSBU935
00606      ELSE                                                         DTSBU935
00607          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBU935
00608                                                                   DTSBU935
00609      IF FILE-OPEN-UPDATE-NO-AIX-88                                DTSBU935
00610         GO TO P3200-EXIT.                                         DTSBU935
00611                                                                   DTSBU935
00612      PERFORM S3200-CONSTRUCT-IPOST THRU S3200-EXIT.               DTSBU935
00613                                                                   DTSBU935
00614      PERFORM S3300-UPDATE-AIX THRU S3300-EXIT.                    DTSBU935
00615                                                                   DTSBU935
00616  P3200-EXIT.                                                      DTSBU935
00617      EXIT.                                                        DTSBU935
00618                                                                   DTSBU935
00619      EJECT                                                        DTSBU935
00620  P3300-DELETE.                                                    DTSBU935
00621      IF FILE-OPEN-UPDATE-HDR-88                                   DTSBU935
00622         IF ESKL-HDR-88 OF LINK-REC                                DTSBU935
00623            NEXT SENTENCE                                          DTSBU935
00624         ELSE                                                      DTSBU935
00625            PERFORM S999-ABEND THRU S999-EXIT.                     DTSBU935
00626                                                                   DTSBU935
00627      PERFORM P3900-PREPARE-FOR-UPDATE THRU P3900-EXIT.            DTSBU935
00628                                                                   DTSBU935
00629      IF FILE-NO-REC-88                                            DTSBU935
00630          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBU935
00631                                                                   DTSBU935
00632      IF FILE-SUB-MSTE-88                                          DTSBU935
00633         DELETE MSTE-FILE RECORD                                   DTSBU935
00634      ELSE                                                         DTSBU935
00635      IF FILE-SUB-MSTF-88                                          DTSBU935
00636         DELETE MSTF-FILE RECORD                                   DTSBU935
00637      ELSE                                                         DTSBU935
00638      IF FILE-SUB-MSTG-88                                          DTSBU935
00639         DELETE MSTG-FILE RECORD                                   DTSBU935
00640      ELSE                                                         DTSBU935
00641          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBU935
00642                                                                   DTSBU935
00643      IF FILE-OK-88                                                DTSBU935
00644          NEXT SENTENCE                                            DTSBU935
00645      ELSE                                                         DTSBU935
00646          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBU935
00647                                                                   DTSBU935
00648      IF FILE-OPEN-UPDATE-NO-AIX-88                                DTSBU935
00649         GO TO P3300-EXIT.                                         DTSBU935
00650                                                                   DTSBU935
00651      MOVE LOW-VALUES TO POST-UPDATE-AIX-RECS.                     DTSBU935
00652                                                                   DTSBU935
00653      PERFORM S3300-UPDATE-AIX THRU S3300-EXIT.                    DTSBU935
00654                                                                   DTSBU935
00655  P3300-EXIT.                                                      DTSBU935
00656      EXIT.                                                        DTSBU935
00657      EJECT                                                        DTSBU935
00658  P3900-PREPARE-FOR-UPDATE.                                        DTSBU935
00659      IF FILE-SUB-MSTE-88                                          DTSBU935
00660         MOVE ESKL-KEY-AREA OF LINK-REC                            DTSBU935
00661           TO ESKL-KEY-AREA OF MSTE-SKL-REC                        DTSBU935
00662         READ MSTE-FILE INTO WRK-REC                               DTSBU935
00663      ELSE                                                         DTSBU935
00664      IF FILE-SUB-MSTF-88                                          DTSBU935
00665         MOVE ESKL-KEY-AREA OF LINK-REC                            DTSBU935
00666           TO ESKL-KEY-AREA OF MSTF-SKL-REC                        DTSBU935
00667         READ MSTF-FILE INTO WRK-REC                               DTSBU935
00668      ELSE                                                         DTSBU935
00669      IF FILE-SUB-MSTG-88                                          DTSBU935
00670         MOVE ESKL-KEY-AREA OF LINK-REC                            DTSBU935
00671           TO ESKL-KEY-AREA OF MSTG-SKL-REC                        DTSBU935
00672         READ MSTG-FILE INTO WRK-REC                               DTSBU935
00673      ELSE                                                         DTSBU935
00674          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBU935
00675                                                                   DTSBU935
00676      IF FILE-OK-88                                                DTSBU935
00677          NEXT SENTENCE                                            DTSBU935
00678      ELSE                                                         DTSBU935
00679      IF FILE-NO-REC-88                                            DTSBU935
00680          PERFORM S1100-NO-REC THRU S1100-EXIT                     DTSBU935
00681      ELSE                                                         DTSBU935
00682          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBU935
00683                                                                   DTSBU935
00684      IF FILE-OPEN-UPDATE-NO-AIX-88                                DTSBU935
00685         MOVE LOW-VALUES TO PRE-UPDATE-AIX-RECS                    DTSBU935
00686      ELSE                                                         DTSBU935
00687         IF ELEN-AIX-YES-88 (REC-TYPE-SUB)                         DTSBU935
00688            PERFORM S3100-CONSTRUCT-IPRE THRU S3100-EXIT           DTSBU935
00689         ELSE                                                      DTSBU935
00690            MOVE LOW-VALUES TO PRE-UPDATE-AIX-RECS.                DTSBU935
00691                                                                   DTSBU935
00692  P3900-EXIT.                                                      DTSBU935
00693      EXIT.                                                        DTSBU935
00694                                                                   DTSBU935
00695  S1100-NO-REC.                                                    DTSBU935
00696      SET L935-NO-REC-88 TO TRUE.                                  DTSBU935
00697  S1100-EXIT.                                                      DTSBU935
00698      EXIT.                                                        DTSBU935
00699      SKIP3                                                        DTSBU935
00700  S2100-LINK-TO-FILE.                                              DTSBU935
00701      MOVE LINK-REC (1:VAR-CHAR-CNT)                               DTSBU935
00702        TO WRK-REC (1:VAR-CHAR-CNT).                               DTSBU935
00703                                                                   DTSBU935
00704  S2100-EXIT.                                                      DTSBU935
00705      EXIT.                                                        DTSBU935
00706      EJECT                                                        DTSBU935
00707  S2200-FILE-TO-LINK.                                              DTSBU935
00708      MOVE WRK-REC (1:VAR-CHAR-CNT)                                DTSBU935
00709        TO LINK-REC (1:VAR-CHAR-CNT).                              DTSBU935
00710  S2200-EXIT.                                                      DTSBU935
00711      EXIT.                                                        DTSBU935
00712      EJECT                                                        DTSBU935
00713 *********************************************************         DTSBU935
00714 *    DTSIP011  ALTERNATE INDEX RECORD CONSTRUCTION                DTSBU935
00715 *              PROCEDURE DIVISION CODE.  S3100 PARAGRAPH.         DTSBU935
00716 *********************************************************         DTSBU935
00717  ++INCLUDE DTSIP011                                               DTSBU935
00718                                                                   DTSBU935
00719 *********************************************************         DTSBU935
00720 *    DTSIP012  ALTERNATE INDEX RECORD CONSTRUCTION                DTSBU935
00721 *              PROCEDURE DIVISION CODE.  S3200 PARAGRAPH.         DTSBU935
00722 *********************************************************         DTSBU935
00723  ++INCLUDE DTSIP012                                               DTSBU935
00724                                                                   DTSBU935
00725  S3300-UPDATE-AIX.                                                DTSBU935
00726      MOVE WRK-MOD-NAME TO L921-MOD-NAME.                          DTSBU935
00727                                                                   DTSBU935
00728      MOVE L935-TRACE-IND TO L921-TRACE-IND.                       DTSBU935
00729                                                                   DTSBU935
00730      PERFORM S3310-AIX-LOOP THRU S3310-EXIT                       DTSBU935
00731         VARYING AIX-REC-SUB FROM 1 BY 1                           DTSBU935
00732         UNTIL (AIX-REC-SUB > AIX-REC-MAX).                        DTSBU935
00733  S3300-EXIT.                                                      DTSBU935
00734      EXIT.                                                        DTSBU935
00735  S3310-AIX-LOOP.                                                  DTSBU935
00736      IF PRE-UPDATE-AIX-REC (AIX-REC-SUB)                          DTSBU935
00737            = POST-UPDATE-AIX-REC (AIX-REC-SUB)                    DTSBU935
00738         GO TO S3310-EXIT.                                         DTSBU935
00739                                                                   DTSBU935
00740      IF PRE-UPDATE-AIX-REC (AIX-REC-SUB) NOT = LOW-VALUES         DTSBU935
00741         MOVE PRE-UPDATE-AIX-REC (AIX-REC-SUB) TO ISKL-REC         DTSBU935
00742         PERFORM S3311-AIX-DELETE THRU S3311-EXIT.                 DTSBU935
00743                                                                   DTSBU935
00744      IF POST-UPDATE-AIX-REC (AIX-REC-SUB) NOT = LOW-VALUES        DTSBU935
00745         MOVE POST-UPDATE-AIX-REC (AIX-REC-SUB) TO ISKL-REC        DTSBU935
00746         PERFORM S3312-AIX-WRITE THRU S3312-EXIT.                  DTSBU935
00747                                                                   DTSBU935
00748  S3310-EXIT.                                                      DTSBU935
00749      EXIT.                                                        DTSBU935
00750                                                                   DTSBU935
00751  S3311-AIX-DELETE.                                                DTSBU935
00752      PERFORM S921-AIX-READ THRU S921-EXIT.                        DTSBU935
00753                                                                   DTSBU935
00754      IF L921-NO-REC-88                                            DTSBU935
00755         GO TO S3311-EXIT.                                         DTSBU935
00756                                                                   DTSBU935
00757      PERFORM S921-AIX-DELETE THRU S921-EXIT.                      DTSBU935
00758                                                                   DTSBU935
00759  S3311-EXIT.                                                      DTSBU935
00760      EXIT.                                                        DTSBU935
00761                                                                   DTSBU935
00762  S3312-AIX-WRITE.                                                 DTSBU935
00763      PERFORM S921-AIX-READ THRU S921-EXIT.                        DTSBU935
00764                                                                   DTSBU935
00765      IF NOT L921-NO-REC-88                                        DTSBU935
00766         GO TO S3312-EXIT.                                         DTSBU935
00767                                                                   DTSBU935
00768      PERFORM S921-AIX-WRITE  THRU S921-EXIT.                      DTSBU935
00769                                                                   DTSBU935
00770  S3312-EXIT.                                                      DTSBU935
00771      EXIT.                                                        DTSBU935
00772                                                                   DTSBU935
00773 *********************************************************         DTSBU935
00774 *    DTSIP13   ALTERNATE INDEX RECORD CONSTRUCTION                DTSBU935
00775 *              PROCEDURE DIVISION CODE.  S39** PARAGRAPHS.        DTSBU935
00776 *********************************************************         DTSBU935
00777  ++INCLUDE DTSIP013                                               DTSBU935
00778                                                                   DTSBU935
00779  S9100-PRE-DISPLAY.                                               DTSBU935
00780      DISPLAY ' '.                                                 DTSBU935
00781                                                                   DTSBU935
00782      DISPLAY ' '.                                                 DTSBU935
00783                                                                   DTSBU935
00784      DISPLAY '*** DTSBU935 PRE  TRACE DISPLAY ***'.               DTSBU935
00785                                                                   DTSBU935
00786      DISPLAY L935-MOD-NAME                                        DTSBU935
00787              ' = L935-MOD-NAME'.                                  DTSBU935
00788                                                                   DTSBU935
00789      DISPLAY L935-CMND-CD                                         DTSBU935
00790              ' = L935-CMND-CD'.                                   DTSBU935
00791                                                                   DTSBU935
00792      PERFORM S9300-REC-DISPLAY THRU S9300-EXIT.                   DTSBU935
00793  S9100-EXIT.                                                      DTSBU935
00794      EXIT.                                                        DTSBU935
00795      SKIP3                                                        DTSBU935
00796  S9200-POST-DISPLAY.                                              DTSBU935
00797      DISPLAY ' '.                                                 DTSBU935
00798                                                                   DTSBU935
00799      DISPLAY ' '.                                                 DTSBU935
00800                                                                   DTSBU935
00801      DISPLAY '*** DTSBU935 POST TRACE DISPLAY ***'.               DTSBU935
00802                                                                   DTSBU935
00803      DISPLAY L935-RESULT-IND                                      DTSBU935
00804              ' = L935-RESULT-IND'.                                DTSBU935
00805                                                                   DTSBU935
00806      PERFORM S9300-REC-DISPLAY THRU S9300-EXIT.                   DTSBU935
00807  S9200-EXIT.                                                      DTSBU935
00808      EXIT.                                                        DTSBU935
00809      SKIP3                                                        DTSBU935
00810  S9300-REC-DISPLAY.                                               DTSBU935
00811      DISPLAY ' '.                                                 DTSBU935
00812                                                                   DTSBU935
00813      IF (ESKL-REC-TYPE OF LINK-REC < +1)                          DTSBU935
00814              OR                                                   DTSBU935
00815         (ESKL-REC-TYPE OF LINK-REC > ELEN-MAX-REC-ID)             DTSBU935
00816          MOVE SPACES TO WRK-REC-PREFIX                            DTSBU935
00817      ELSE                                                         DTSBU935
00818          MOVE ELEN-REC-PREFIX (ESKL-REC-TYPE OF LINK-REC)         DTSBU935
00819            TO WRK-REC-PREFIX.                                     DTSBU935
00820                                                                   DTSBU935
00821      IF WRK-REC-PREFIX = SPACES                                   DTSBU935
00822          MOVE '????' TO WRK-REC-PREFIX.                           DTSBU935
00823                                                                   DTSBU935
00824      MOVE ELEN-MAX-KEY-LEN TO L991-REQ-CHAR-CNT.                  DTSBU935
00825                                                                   DTSBU935
00826      MOVE ESKL-KEY-AREA OF LINK-REC TO L991-REQ-AREA.             DTSBU935
00827                                                                   DTSBU935
00828      PERFORM S991-HEX-FORMAT THRU S991-EXIT.                      DTSBU935
00829                                                                   DTSBU935
00830      DISPLAY 'REC TYPE = '                                        DTSBU935
00831              WRK-REC-PREFIX.                                      DTSBU935
00832                                                                   DTSBU935
00833      DISPLAY 'KEY AREA = '                                        DTSBU935
00834              L991-REPLY-HEX-1-AREA.                               DTSBU935
00835                                                                   DTSBU935
00836      DISPLAY '           '                                        DTSBU935
00837              L991-REPLY-HEX-2-AREA.                               DTSBU935
00838                                                                   DTSBU935
00839      DISPLAY '           '                                        DTSBU935
00840              L991-REPLY-AN-AREA.                                  DTSBU935
00841  S9300-EXIT.                                                      DTSBU935
00842      EXIT.                                                        DTSBU935
00843      EJECT                                                        DTSBU935
00844  S921-AIX-READ.                                                   DTSBU935
00845      SET L921-READ-88 TO TRUE.                                    DTSBU935
00846      GO TO S921-AIX-IO.                                           DTSBU935
00847                                                                   DTSBU935
00848  S921-AIX-DELETE.                                                 DTSBU935
00849      SET L921-DELETE-88 TO TRUE.                                  DTSBU935
00850      GO TO S921-AIX-IO.                                           DTSBU935
00851                                                                   DTSBU935
00852  S921-AIX-WRITE.                                                  DTSBU935
00853      SET L921-WRITE-88  TO TRUE.                                  DTSBU935
00854      GO TO S921-AIX-IO.                                           DTSBU935
00855                                                                   DTSBU935
00856  S921-AIX-IO.                                                     DTSBU935
00857      CALL 'DTSBU921' USING L921-LINK-AREA                         DTSBU935
00858                            ISKL-REC.                              DTSBU935
00859  S921-EXIT.                                                       DTSBU935
00860      EXIT.                                                        DTSBU935
00861      SKIP3                                                        DTSBU935
00862  S991-HEX-FORMAT.                                                 DTSBU935
00863      CALL 'DTSBU991' USING L991-LINK-AREA.                        DTSBU935
00864  S991-EXIT.                                                       DTSBU935
00865      EXIT.                                                        DTSBU935
00866      SKIP3                                                        DTSBU935
00867  S999-ABEND.                                                      DTSBU935
00868      DISPLAY '*** I/O MODULE ABENDING'.                           DTSBU935
00869                                                                   DTSBU935
00870      DISPLAY '*** CMND-CD = ' L935-CMND-CD.                       DTSBU935
00871                                                                   DTSBU935
00872      DISPLAY '*** FILE-STATUS = ' FILE-STATUS.                    DTSBU935
00873                                                                   DTSBU935
00874      DISPLAY '*** CALLING MODULE = ' L935-MOD-NAME.               DTSBU935
00875                                                                   DTSBU935
00876      PERFORM S9300-REC-DISPLAY THRU S9300-EXIT.                   DTSBU935
00877                                                                   DTSBU935
00878      CALL 'DTSBU999' USING WRK-ABEND-CD.                          DTSBU935
00879  S999-EXIT.                                                       DTSBU935
00880      EXIT.                                                        DTSBU935
