00001  IDENTIFICATION DIVISION.                                         11/18/04
00002  PROGRAM-ID.             DTSBU911.                                DTSBU911
00003  AUTHOR.                 TRICOASTAL CONSULTING LTD.                  LV008
00004  DATE-WRITTEN.           SEPT 2004.                                  CL**8
00005  DATE-COMPILED.                                                   DTSBU911
00006      SKIP3                                                        DTSBU911
00007 *****                                                             DTSBU911
00008 *                                                                 DTSBU911
00009 *    FUNCTION:  MASTER FILE INPUT/OUTPUT.(OLD VERSION NO H OR I)     CL**8
00010 *                                                                 DTSBU911
00011 ********      THIS IS A COPY OF PROGRAM DTSBU910  **************     CL**8
00012 ********    DOES NOT CONTAIN NEW FILES MSTH MSTI  **************     CL**8
00013 *                                                                 DTSBU911
00014 *    NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE  DTSBU911
00015 *    NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE  DTSBU911
00016 *    NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE  DTSBU911
00017 *                                                                 DTSBU911
00018 *        SPECIFY TRUNC(OPT) DURING COMPILE OF DTSBU910.  TRUNC    DTSBU911
00019 *        (OPT) REDUCES CPU RESOUCE USAGE DURING COMPRESSION/      DTSBU911
00020 *        EXPANSION BY 50% (VS TRUNC(STD)).                        DTSBU911
00021 *                                                                 DTSBU911
00022 *    NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE  DTSBU911
00023 *    NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE  DTSBU911
00024 *    NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE  DTSBU911
00025 *                                                                 DTSBU911
00026 *                                                                 DTSBU911
00027 *    MODIFICATION LOG:                                            DTSBU911
00028 *                                                                 DTSBU911
00029 *    07/09/94  INITIAL DEVELOPMENT.                               DTSBU911
00030 *              WORK ORDER:                      PROGRAMMER: EHH   DTSBU911
00031 *                                                                 DTSBU911
00032 *    09/18/95  ADD IWHO RECORD CONSTRUCTION.                      DTSBU911
00033 *              WORK ORDER: JR                   PROGRAMMER: EHH   DTSBU911
00034 *                                                                 DTSBU911
00035 *    06-18-96  RE-COMPILED TO INCORPORATE CHANGES TO DTSIMLEN     DTSBU911
00036 *              AND DTSIMSKL.                                      DTSBU911
00037 *              REFERENCE RFP: WARP II           PROGRAMMER: MJA   DTSBU911
00038 *                                                                 DTSBU911
00039 *    09/29/1998  REVIEWED AND MODIFIED FOR DC.                    DTSBU911
00040 *                REFERENCE: DC DEVELOPMENT      PROGRAMMER: EHH   DTSBU911
00041 *                                                                 DTSBU911
00042 *    04/18/2003  MODIFIED FOR NEW ELECTRONIC PAYMENT AIX RECORDS  DTSBU911
00043 *                DTSIITRT AND DTSIITRE.                           DTSBU911
00044 *                REFERENCE: EFT                 PROGRAMMER: GD    DTSBU911
00045 *                                                                 DTSBU911
00046 *    MM/DD/YYYY  XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX   DTSBU911
00047 *                XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX   DTSBU911
00048 *                REFERENCE: XXXXXXXXXXXXXXX     PROGRAMMER: XXX   DTSBU911
00049 *                                                                 DTSBU911
00050 *                                                                 DTSBU911
00051 *    DESCRIPTION:                                                 DTSBU911
00052 *                                                                 DTSBU911
00053 *        PERFORMS ALL MSTER FILE I/O.                             DTSBU911
00054 *                                                                 DTSBU911
00055 *****                                                             DTSBU911
00056      SKIP3                                                        DTSBU911
00057  ENVIRONMENT DIVISION.                                            DTSBU911
00058      SKIP2                                                        DTSBU911
00059  INPUT-OUTPUT SECTION.                                            DTSBU911
00060                                                                   DTSBU911
00061  FILE-CONTROL.                                                    DTSBU911
00062      SELECT MSTA-FILE ASSIGN TO DTSFMSTA                          DTSBU911
00063          ORGANIZATION IS INDEXED                                  DTSBU911
00064          RECORD KEY IS MSKL-KEY-AREA OF MSTA-SKL-REC              DTSBU911
00065          FILE STATUS IS FILE-STATUS                               DTSBU911
00066          ACCESS IS DYNAMIC.                                       DTSBU911
00067      SELECT MSTB-FILE ASSIGN TO DTSFMSTB                          DTSBU911
00068          ORGANIZATION IS INDEXED                                  DTSBU911
00069          RECORD KEY IS MSKL-KEY-AREA OF MSTB-SKL-REC              DTSBU911
00070          FILE STATUS IS FILE-STATUS                               DTSBU911
00071          ACCESS IS DYNAMIC.                                       DTSBU911
00072      SELECT MSTC-FILE ASSIGN TO DTSFMSTC                          DTSBU911
00073          ORGANIZATION IS INDEXED                                  DTSBU911
00074          RECORD KEY IS MSKL-KEY-AREA OF MSTC-SKL-REC              DTSBU911
00075          FILE STATUS IS FILE-STATUS                               DTSBU911
00076          ACCESS IS DYNAMIC.                                       DTSBU911
00077      SELECT MSTD-FILE ASSIGN TO DTSFMSTD                          DTSBU911
00078          ORGANIZATION IS INDEXED                                  DTSBU911
00079          RECORD KEY IS MSKL-KEY-AREA OF MSTD-SKL-REC              DTSBU911
00080          FILE STATUS IS FILE-STATUS                               DTSBU911
00081          ACCESS IS DYNAMIC.                                       DTSBU911
00082      SKIP3                                                        DTSBU911
00083  DATA DIVISION.                                                   DTSBU911
00084      SKIP3                                                        DTSBU911
00085  FILE SECTION.                                                    DTSBU911
00086      SKIP3                                                        DTSBU911
00087  FD  MSTA-FILE.                                                   DTSBU911
00088                                                                   DTSBU911
00089  01  MSTA-SKL-REC.                                                DTSBU911
00090  ++INCLUDE DTSIMSKL                                               DTSBU911
00091      SKIP3                                                        DTSBU911
00092  01  MSTA-VAR-REC.                                                DTSBU911
00093      05  MSTA-VAR-CHAR OCCURS 16 TO 1536 TIMES                    DTSBU911
00094                        DEPENDING ON MIO-REC-LENGTH                DTSBU911
00095                                      PIC  X(01).                  DTSBU911
00096      SKIP3                                                        DTSBU911
00097  FD  MSTB-FILE.                                                   DTSBU911
00098                                                                   DTSBU911
00099  01  MSTB-SKL-REC.                                                DTSBU911
00100  ++INCLUDE DTSIMSKL                                               DTSBU911
00101      SKIP3                                                        DTSBU911
00102  01  MSTB-VAR-REC.                                                DTSBU911
00103      05  MSTB-VAR-CHAR OCCURS 16 TO 1536 TIMES                    DTSBU911
00104                        DEPENDING ON MIO-REC-LENGTH                DTSBU911
00105                                      PIC  X(01).                  DTSBU911
00106      SKIP3                                                        DTSBU911
00107  FD  MSTC-FILE.                                                   DTSBU911
00108                                                                   DTSBU911
00109  01  MSTC-SKL-REC.                                                DTSBU911
00110  ++INCLUDE DTSIMSKL                                               DTSBU911
00111      SKIP3                                                        DTSBU911
00112  01  MSTC-VAR-REC.                                                DTSBU911
00113      05  MSTC-VAR-CHAR OCCURS 16 TO 1536 TIMES                    DTSBU911
00114                        DEPENDING ON MIO-REC-LENGTH                DTSBU911
00115                                      PIC  X(01).                  DTSBU911
00116      SKIP3                                                        DTSBU911
00117  FD  MSTD-FILE.                                                   DTSBU911
00118                                                                   DTSBU911
00119  01  MSTD-SKL-REC.                                                DTSBU911
00120  ++INCLUDE DTSIMSKL                                               DTSBU911
00121      SKIP3                                                        DTSBU911
00122  01  MSTD-VAR-REC.                                                DTSBU911
00123      05  MSTD-VAR-CHAR OCCURS 16 TO 1536 TIMES                    DTSBU911
00124                        DEPENDING ON MIO-REC-LENGTH                DTSBU911
00125                                      PIC  X(01).                  DTSBU911
00126      EJECT                                                        DTSBU911
00127  WORKING-STORAGE SECTION.                                         DTSBU911
001275 77  PAN-VALET PICTURE X(24) VALUE '008DTSBU911  11/18/04'.       DTSBU911
00128                                                                   DTSBU911
00129  01  WRK-AREA.                                                    DTSBU911
00130      05  WRK-ABEND-CD                PIC S9(04)  COMP  VALUE +910.DTSBU911
00131                                                                   DTSBU911
00132      05  WRK-MOD-NAME                PIC  X(08)  VALUE 'DTSBU910'.DTSBU911
00133                                                                   DTSBU911
00134                                                                   DTSBU911
00135      05  FILE-STATE                  PIC  X(03)  VALUE 'CL '.     DTSBU911
00136          88  FILE-OPEN-READ-88              VALUE 'OPR'.          DTSBU911
00137          88  FILE-OPEN-UPDATE-88            VALUE 'OPU'.          DTSBU911
00138          88  FILE-OPEN-UPDATE-HDR-88        VALUE 'OPH'.          DTSBU911
00139          88  FILE-OPEN-UPDATE-NO-AIX-88     VALUE 'OPA'.          DTSBU911
00140          88  FILE-CLOSE-88                  VALUE 'CL '.          DTSBU911
00141                                                                   DTSBU911
00142                                                                   DTSBU911
00143      05  FILE-STATUS                 PIC  X(02).                  DTSBU911
00144          88  FILE-OK-88                     VALUE '00'.           DTSBU911
00145          88  FILE-NO-REC-88                 VALUE '10' '23'.      DTSBU911
00146          88  FILE-VERIFY-88                 VALUE '97'.           DTSBU911
00147                                                                   DTSBU911
00148                                                                   DTSBU911
00149      05  WRK-FILE-SUFFIXES.                                       DTSBU911
00150          10  FILLER                  PIC  X(04)  VALUE 'MSTA'.    DTSBU911
00151          10  FILLER                  PIC  X(04)  VALUE 'MSTB'.    DTSBU911
00152          10  FILLER                  PIC  X(04)  VALUE 'MSTC'.    DTSBU911
00153          10  FILLER                  PIC  X(04)  VALUE 'MSTD'.    DTSBU911
00154      05  FILLER REDEFINES WRK-FILE-SUFFIXES.                      DTSBU911
00155          10  WRK-FILE-SUFFIX OCCURS 4 TIMES                       DTSBU911
00156                                      PIC  X(04).                  DTSBU911
00157                                                                   DTSBU911
00158                                                                   DTSBU911
00159      05  WRK-FILE-NAME-SUFFIX        PIC  X(04).                  DTSBU911
00160                                                                   DTSBU911
00161                                                                   DTSBU911
00162      05  WRK-REC-PREFIX              PIC  X(04).                  DTSBU911
00163                                                                   DTSBU911
00164                                                                   DTSBU911
00165      05  REC-TYPE-SUB                PIC S9(04)  COMP.            DTSBU911
00166                                                                   DTSBU911
00167      05  FILE-SUB                    PIC S9(04)  COMP.            DTSBU911
00168                                                                   DTSBU911
00169                                                                   DTSBU911
00170      05  MIO-REC-LENGTH              PIC S9(04)  COMP.            DTSBU911
00171                                                                   DTSBU911
00172      05  MIO-KEY-LENGTH              PIC S9(04)  COMP.            DTSBU911
00173                                                                   DTSBU911
00174      05  MIO-KEY-FILLER-LENGTH       PIC S9(04)  COMP.            DTSBU911
00175                                                                   DTSBU911
00176      05  MIO-KEY-FILLER-START        PIC S9(04)  COMP.            DTSBU911
00177                                                                   DTSBU911
00178      05  WRK-REC-LENGTH              PIC S9(04)  COMP.            DTSBU911
00179                                                                   DTSBU911
00180      05  WRK-DATA-LENGTH             PIC S9(04)  COMP.            DTSBU911
00181                                                                   DTSBU911
00182      05  OCC-COUNT-START             PIC S9(04)  COMP.            DTSBU911
00183                                                                   DTSBU911
00184      05  OCC-COUNT-X                 PIC  X(02).                  DTSBU911
00185      05  OCC-COUNT REDEFINES OCC-COUNT-X                          DTSBU911
00186                                      PIC S9(04)  COMP.            DTSBU911
00187                                                                   DTSBU911
00188                                                                   DTSBU911
00189      05  COUNT-COMPLETE-IND          PIC  X(01).                  DTSBU911
00190      EJECT                                                        DTSBU911
00191  01  MCMP-WORK-AREA.                                              DTSBU911
00192  ++INCLUDE DTSICCMP                                               DTSBU911
00193      EJECT                                                        DTSBU911
00194  01  MLEN-LENGTH-LITERALS.                                        DTSBU911
00195  ++INCLUDE DTSIMLEN                                               DTSBU911
00196      EJECT                                                        DTSBU911
00197  01  MIO-REC.                                                     DTSBU911
00198  ++INCLUDE DTSIMIO                                                DTSBU911
00199      EJECT                                                        DTSBU911
00200  01  WRK-REC.                                                     DTSBU911
00201  ++INCLUDE DTSIMSKL                                               DTSBU911
00202      SKIP3                                                        DTSBU911
00203          10  WRK-DATA-AREA REDEFINES MSKL-DATA-AREA.              DTSBU911
00204              15  WRK-DATA-CHAR OCCURS 1515 TIMES                  DTSBU911
00205                                INDEXED BY WRK-DATA-IDX            DTSBU911
00206                                          PIC  X(01).              DTSBU911
00207      SKIP3                                                        DTSBU911
00208  01  MPRF-REC REDEFINES WRK-REC.                                  DTSBU911
00209  ++INCLUDE DTSIMPRF                                               DTSBU911
00210      SKIP3                                                        DTSBU911
00211  01  MBAA-REC REDEFINES WRK-REC.                                  DTSBU911
00212  ++INCLUDE DTSIMBAA                                               DTSBU911
00213      SKIP3                                                        DTSBU911
00214  01  MFAS-REC REDEFINES WRK-REC.                                  DTSBU911
00215  ++INCLUDE DTSIMFAS                                               DTSBU911
00216      SKIP3                                                        DTSBU911
00217  01  MOPO-REC REDEFINES WRK-REC.                                  DTSBU911
00218  ++INCLUDE DTSIMOPO                                               DTSBU911
00219      SKIP3                                                        DTSBU911
00220  01  MPAY-REC REDEFINES WRK-REC.                                  DTSBU911
00221  ++INCLUDE DTSIMPAY                                               DTSBU911
00222      SKIP3                                                        DTSBU911
00223  01  MREL-REC REDEFINES WRK-REC.                                  DTSBU911
00224  ++INCLUDE DTSIMREL                                               DTSBU911
00225      SKIP3                                                        DTSBU911
00226  01  MRPT-REC REDEFINES WRK-REC.                                  DTSBU911
00227  ++INCLUDE DTSIMRPT                                               DTSBU911
00228      SKIP3                                                        DTSBU911
00229  01  MTCK-REC REDEFINES WRK-REC.                                  DTSBU911
00230  ++INCLUDE DTSIMTCK                                               DTSBU911
00231      SKIP3                                                        DTSBU911
00232  01  MTAA-REC REDEFINES WRK-REC.                                  DTSBU911
00233  ++INCLUDE DTSIMTAA                                               DTSBU911
00234      EJECT                                                        DTSBU911
00235  01  AIX-WORK-AREA.                                               DTSBU911
00236  ++INCLUDE DTSIXAIX                                               DTSBU911
00237      EJECT                                                        DTSBU911
00238  01  L921-LINK-AREA.                                              DTSBU911
00239  ++INCLUDE DTSIL921                                               DTSBU911
00240      SKIP3                                                        DTSBU911
00241  01  ISKL-REC.                                                    DTSBU911
00242  ++INCLUDE DTSIISKL                                               DTSBU911
00243      SKIP3                                                        DTSBU911
00244  01  IBTB-REC REDEFINES ISKL-REC.                                 DTSBU911
00245  ++INCLUDE DTSIIBTB                                               DTSBU911
00246      SKIP3                                                        DTSBU911
00247  01  IEIN-REC REDEFINES ISKL-REC.                                 DTSBU911
00248  ++INCLUDE DTSIIEIN                                               DTSBU911
00249      SKIP3                                                        DTSBU911
00250  01  IFAN-REC REDEFINES ISKL-REC.                                 DTSBU911
00251  ++INCLUDE DTSIIFAN                                               DTSBU911
00252      SKIP3                                                        DTSBU911
00253  01  IFID-REC REDEFINES ISKL-REC.                                 DTSBU911
00254  ++INCLUDE DTSIIFID                                               DTSBU911
00255      SKIP3                                                        DTSBU911
00256  01  IOPN-REC REDEFINES ISKL-REC.                                 DTSBU911
00257  ++INCLUDE DTSIIOPN                                               DTSBU911
00258      SKIP3                                                        DTSBU911
00259  01  IOPS-REC REDEFINES ISKL-REC.                                 DTSBU911
00260  ++INCLUDE DTSIIOPS                                               DTSBU911
00261      SKIP3                                                        DTSBU911
00262  01  IPES-REC REDEFINES ISKL-REC.                                 DTSBU911
00263  ++INCLUDE DTSIIPES                                               DTSBU911
00264      SKIP3                                                        DTSBU911
00265  01  ITDS-REC REDEFINES ISKL-REC.                                 DTSBU911
00266  ++INCLUDE DTSIITDS                                               DTSBU911
00267      SKIP3                                                        DTSBU911
00268  01  IZIP-REC REDEFINES ISKL-REC.                                 DTSBU911
00269  ++INCLUDE DTSIIZIP                                               DTSBU911
00270      SKIP3                                                        DTSBU911
00271  01  IBTN-REC REDEFINES ISKL-REC.                                 DTSBU911
00272  ++INCLUDE DTSIIBTN                                               DTSBU911
00273                                                                   DTSBU911
00274  01  ITRT-REC REDEFINES ISKL-REC.                                 DTSBU911
00275  ++INCLUDE DTSIITRT                                               DTSBU911
00276                                                                   DTSBU911
00277  01  ITRE-REC REDEFINES ISKL-REC.                                 DTSBU911
00278  ++INCLUDE DTSIITRE                                               DTSBU911
00279      EJECT                                                        DTSBU911
00280  01  L991-LINK-AREA.                                              DTSBU911
00281  ++INCLUDE DTSIL991                                               DTSBU911
00282      EJECT                                                        DTSBU911
00283  LINKAGE SECTION.                                                 DTSBU911
00284      SKIP3                                                        DTSBU911
00285  01  L910-LINK-AREA.                                              DTSBU911
00286  ++INCLUDE DTSIL910                                               DTSBU911
00287      SKIP3                                                        DTSBU911
00288  01  LINK-REC.                                                    DTSBU911
00289  ++INCLUDE DTSIMSKL                                               DTSBU911
00290      EJECT                                                        DTSBU911
00291  PROCEDURE DIVISION USING L910-LINK-AREA                          DTSBU911
00292                           LINK-REC.                               DTSBU911
00293                                                                   DTSBU911
00294                                                                   DTSBU911
00295      MOVE +0 TO L910-RECORD-CNT.                                  DTSBU911
00296                                                                   DTSBU911
00297      SET L910-OK-88 TO TRUE.                                      DTSBU911
00298                                                                   DTSBU911
00299      MOVE +0 TO FILE-SUB                                          DTSBU911
00300                 REC-TYPE-SUB.                                     DTSBU911
00301                                                                   DTSBU911
00302      IF L910-TRACE-88                                             DTSBU911
00303         PERFORM S9100-PRE-DISPLAY THRU S9100-EXIT.                DTSBU911
00304                                                                   DTSBU911
00305      IF L910-OPEN-88                                              DTSBU911
00306          PERFORM P4100-OPEN THRU P4100-EXIT                       DTSBU911
00307      ELSE                                                         DTSBU911
00308      IF L910-CLOSE-88                                             DTSBU911
00309          PERFORM P4200-CLOSE THRU P4200-EXIT                      DTSBU911
00310      ELSE                                                         DTSBU911
00311          PERFORM P0100-REC-TYPE THRU P0100-EXIT                   DTSBU911
00312          IF L910-READ-88                                          DTSBU911
00313              PERFORM P1100-READ THRU P1100-EXIT                   DTSBU911
00314          ELSE                                                     DTSBU911
00315          IF L910-START-BROWSE-88                                  DTSBU911
00316              PERFORM P1200-START-BROWSE THRU P1200-EXIT           DTSBU911
00317          ELSE                                                     DTSBU911
00318          IF L910-READ-NEXT-88                                     DTSBU911
00319              PERFORM P1300-READ-NEXT THRU P1300-EXIT              DTSBU911
00320          ELSE                                                     DTSBU911
00321          IF L910-COUNT-88                                         DTSBU911
00322              PERFORM P1500-COUNT THRU P1500-EXIT                  DTSBU911
00323          ELSE                                                     DTSBU911
00324          IF L910-WRITE-88                                         DTSBU911
00325              PERFORM P2100-WRITE THRU P2100-EXIT                  DTSBU911
00326          ELSE                                                     DTSBU911
00327          IF L910-REWRITE-88                                       DTSBU911
00328              PERFORM P2200-REWRITE THRU P2200-EXIT                DTSBU911
00329          ELSE                                                     DTSBU911
00330          IF L910-DELETE-88                                        DTSBU911
00331              PERFORM P2300-DELETE THRU P2300-EXIT                 DTSBU911
00332          ELSE                                                     DTSBU911
00333              PERFORM S999-ABEND THRU S999-EXIT.                   DTSBU911
00334                                                                   DTSBU911
00335      IF L910-TRACE-88                                             DTSBU911
00336         PERFORM S9200-POST-DISPLAY THRU S9200-EXIT.               DTSBU911
00337                                                                   DTSBU911
00338                                                                   DTSBU911
00339      GOBACK.                                                      DTSBU911
00340      EJECT                                                        DTSBU911
00341  P0100-REC-TYPE.                                                  DTSBU911
00342      MOVE MSKL-REC-TYPE OF LINK-REC TO REC-TYPE-SUB.              DTSBU911
00343                                                                   DTSBU911
00344      IF (REC-TYPE-SUB < +1)                                       DTSBU911
00345             OR                                                    DTSBU911
00346         (REC-TYPE-SUB > MLEN-MAX-REC-TYPE)                        DTSBU911
00347          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBU911
00348                                                                   DTSBU911
00349      MOVE MLEN-FILE-ID (REC-TYPE-SUB) TO FILE-SUB.                DTSBU911
00350                                                                   DTSBU911
00351      IF FILE-SUB = +0                                             DTSBU911
00352          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBU911
00353  P0100-EXIT.                                                      DTSBU911
00354      EXIT.                                                        DTSBU911
00355      EJECT                                                        DTSBU911
00356  P1100-READ.                                                      DTSBU911
00357      IF FILE-SUB = +1                                             DTSBU911
00358          MOVE MSKL-KEY-AREA OF LINK-REC                           DTSBU911
00359            TO MSKL-KEY-AREA OF MSTA-SKL-REC                       DTSBU911
00360          READ MSTA-FILE INTO MIO-REC                              DTSBU911
00361      ELSE                                                         DTSBU911
00362      IF FILE-SUB = +2                                             DTSBU911
00363          MOVE MSKL-KEY-AREA OF LINK-REC                           DTSBU911
00364            TO MSKL-KEY-AREA OF MSTB-SKL-REC                       DTSBU911
00365          READ MSTB-FILE INTO MIO-REC                              DTSBU911
00366      ELSE                                                         DTSBU911
00367      IF FILE-SUB = +3                                             DTSBU911
00368          MOVE MSKL-KEY-AREA OF LINK-REC                           DTSBU911
00369            TO MSKL-KEY-AREA OF MSTC-SKL-REC                       DTSBU911
00370          READ MSTC-FILE INTO MIO-REC                              DTSBU911
00371      ELSE                                                         DTSBU911
00372      IF FILE-SUB = +4                                             DTSBU911
00373          MOVE MSKL-KEY-AREA OF LINK-REC                           DTSBU911
00374            TO MSKL-KEY-AREA OF MSTD-SKL-REC                       DTSBU911
00375          READ MSTD-FILE INTO MIO-REC                              DTSBU911
00376      ELSE                                                         DTSBU911
00377          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBU911
00378                                                                   DTSBU911
00379      IF FILE-NO-REC-88                                            DTSBU911
00380          PERFORM S1100-NO-REC THRU S1100-EXIT                     DTSBU911
00381          GO TO P1100-EXIT.                                        DTSBU911
00382                                                                   DTSBU911
00383      IF FILE-OK-88                                                DTSBU911
00384          PERFORM S2100-IO-TO-LINK THRU S2100-EXIT                 DTSBU911
00385      ELSE                                                         DTSBU911
00386          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBU911
00387  P1100-EXIT.                                                      DTSBU911
00388      EXIT.                                                        DTSBU911
00389      EJECT                                                        DTSBU911
00390  P1200-START-BROWSE.                                              DTSBU911
00391      IF FILE-SUB = +1                                             DTSBU911
00392          MOVE MSKL-KEY-AREA OF LINK-REC                           DTSBU911
00393            TO MSKL-KEY-AREA OF MSTA-SKL-REC                       DTSBU911
00394          START MSTA-FILE                                          DTSBU911
00395              KEY IS NOT < MSKL-KEY-AREA OF MSTA-SKL-REC           DTSBU911
00396      ELSE                                                         DTSBU911
00397      IF FILE-SUB = +2                                             DTSBU911
00398          MOVE MSKL-KEY-AREA OF LINK-REC                           DTSBU911
00399            TO MSKL-KEY-AREA OF MSTB-SKL-REC                       DTSBU911
00400          START MSTB-FILE                                          DTSBU911
00401              KEY IS NOT < MSKL-KEY-AREA OF MSTB-SKL-REC           DTSBU911
00402      ELSE                                                         DTSBU911
00403      IF FILE-SUB = +3                                             DTSBU911
00404          MOVE MSKL-KEY-AREA OF LINK-REC                           DTSBU911
00405            TO MSKL-KEY-AREA OF MSTC-SKL-REC                       DTSBU911
00406          START MSTC-FILE                                          DTSBU911
00407              KEY IS NOT < MSKL-KEY-AREA OF MSTC-SKL-REC           DTSBU911
00408      ELSE                                                         DTSBU911
00409      IF FILE-SUB = +4                                             DTSBU911
00410          MOVE MSKL-KEY-AREA OF LINK-REC                           DTSBU911
00411            TO MSKL-KEY-AREA OF MSTD-SKL-REC                       DTSBU911
00412          START MSTD-FILE                                          DTSBU911
00413              KEY IS NOT < MSKL-KEY-AREA OF MSTD-SKL-REC           DTSBU911
00414      ELSE                                                         DTSBU911
00415          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBU911
00416                                                                   DTSBU911
00417      IF FILE-NO-REC-88                                            DTSBU911
00418          PERFORM S1100-NO-REC THRU S1100-EXIT                     DTSBU911
00419          GO TO P1200-EXIT.                                        DTSBU911
00420                                                                   DTSBU911
00421      IF FILE-OK-88                                                DTSBU911
00422          PERFORM P1300-READ-NEXT THRU P1300-EXIT                  DTSBU911
00423      ELSE                                                         DTSBU911
00424          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBU911
00425  P1200-EXIT.                                                      DTSBU911
00426      EXIT.                                                        DTSBU911
00427      EJECT                                                        DTSBU911
00428  P1300-READ-NEXT.                                                 DTSBU911
00429      IF FILE-SUB = +1                                             DTSBU911
00430          READ MSTA-FILE NEXT INTO MIO-REC                         DTSBU911
00431      ELSE                                                         DTSBU911
00432      IF FILE-SUB = +2                                             DTSBU911
00433          READ MSTB-FILE NEXT INTO MIO-REC                         DTSBU911
00434      ELSE                                                         DTSBU911
00435      IF FILE-SUB = +3                                             DTSBU911
00436          READ MSTC-FILE NEXT INTO MIO-REC                         DTSBU911
00437      ELSE                                                         DTSBU911
00438      IF FILE-SUB = +4                                             DTSBU911
00439          READ MSTD-FILE NEXT INTO MIO-REC                         DTSBU911
00440      ELSE                                                         DTSBU911
00441          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBU911
00442                                                                   DTSBU911
00443      IF FILE-NO-REC-88                                            DTSBU911
00444          PERFORM S1100-NO-REC THRU S1100-EXIT                     DTSBU911
00445          GO TO P1300-EXIT.                                        DTSBU911
00446                                                                   DTSBU911
00447      IF FILE-OK-88                                                DTSBU911
00448          NEXT SENTENCE                                            DTSBU911
00449      ELSE                                                         DTSBU911
00450          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBU911
00451                                                                   DTSBU911
00452      IF MSKL-PRF-88 OF LINK-REC                                   DTSBU911
00453          PERFORM S2100-IO-TO-LINK THRU S2100-EXIT                 DTSBU911
00454          GO TO P1300-EXIT.                                        DTSBU911
00455                                                                   DTSBU911
00456      IF (MIO-EMP-NO = MSKL-EMP-NO OF LINK-REC)                    DTSBU911
00457              AND                                                  DTSBU911
00458         (MIO-REC-TYPE = MSKL-REC-TYPE OF LINK-REC)                DTSBU911
00459          PERFORM S2100-IO-TO-LINK THRU S2100-EXIT                 DTSBU911
00460      ELSE                                                         DTSBU911
00461          PERFORM S1100-NO-REC THRU S1100-EXIT.                    DTSBU911
00462  P1300-EXIT.                                                      DTSBU911
00463      EXIT.                                                        DTSBU911
00464      EJECT                                                        DTSBU911
00465  P1500-COUNT.                                                     DTSBU911
00466      MOVE MSKL-KEY-AREA OF LINK-REC TO MIO-KEY-AREA.              DTSBU911
00467                                                                   DTSBU911
00468      IF MSKL-AUY-88 OF LINK-REC OR MSKL-FAR-88 OF LINK-REC        DTSBU911
00469          MOVE LOW-VALUES TO MIO-KEY-AREA (12:5)                   DTSBU911
00470      ELSE                                                         DTSBU911
00471          MOVE LOW-VALUES TO MIO-KEY-FILLER.                       DTSBU911
00472                                                                   DTSBU911
00473      IF FILE-SUB = +1                                             DTSBU911
00474          MOVE MIO-KEY-AREA                                        DTSBU911
00475            TO MSKL-KEY-AREA OF MSTA-SKL-REC                       DTSBU911
00476          START MSTA-FILE                                          DTSBU911
00477              KEY IS NOT < MSKL-KEY-AREA OF MSTA-SKL-REC           DTSBU911
00478      ELSE                                                         DTSBU911
00479      IF FILE-SUB = +2                                             DTSBU911
00480          MOVE MIO-KEY-AREA                                        DTSBU911
00481            TO MSKL-KEY-AREA OF MSTB-SKL-REC                       DTSBU911
00482          START MSTB-FILE                                          DTSBU911
00483              KEY IS NOT < MSKL-KEY-AREA OF MSTB-SKL-REC           DTSBU911
00484      ELSE                                                         DTSBU911
00485      IF FILE-SUB = +3                                             DTSBU911
00486          MOVE MIO-KEY-AREA                                        DTSBU911
00487            TO MSKL-KEY-AREA OF MSTC-SKL-REC                       DTSBU911
00488          START MSTC-FILE                                          DTSBU911
00489              KEY IS NOT < MSKL-KEY-AREA OF MSTC-SKL-REC           DTSBU911
00490      ELSE                                                         DTSBU911
00491      IF FILE-SUB = +4                                             DTSBU911
00492          MOVE MIO-KEY-AREA                                        DTSBU911
00493            TO MSKL-KEY-AREA OF MSTD-SKL-REC                       DTSBU911
00494          START MSTD-FILE                                          DTSBU911
00495              KEY IS NOT < MSKL-KEY-AREA OF MSTD-SKL-REC           DTSBU911
00496      ELSE                                                         DTSBU911
00497          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBU911
00498                                                                   DTSBU911
00499      SET L910-NO-REC-88 TO TRUE.                                  DTSBU911
00500                                                                   DTSBU911
00501      IF FILE-NO-REC-88                                            DTSBU911
00502          MOVE +0 TO L910-RECORD-CNT                               DTSBU911
00503          GO TO P1500-EXIT.                                        DTSBU911
00504                                                                   DTSBU911
00505      IF FILE-OK-88                                                DTSBU911
00506          NEXT SENTENCE                                            DTSBU911
00507      ELSE                                                         DTSBU911
00508          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBU911
00509                                                                   DTSBU911
00510      MOVE +0 TO L910-RECORD-CNT.                                  DTSBU911
00511                                                                   DTSBU911
00512      MOVE 'N' TO COUNT-COMPLETE-IND.                              DTSBU911
00513                                                                   DTSBU911
00514      PERFORM P1510-COUNT-LOOP THRU P1510-EXIT                     DTSBU911
00515          UNTIL COUNT-COMPLETE-IND = 'Y'.                          DTSBU911
00516  P1500-EXIT.                                                      DTSBU911
00517      EXIT.                                                        DTSBU911
00518      SKIP3                                                        DTSBU911
00519  P1510-COUNT-LOOP.                                                DTSBU911
00520      IF FILE-SUB = +1                                             DTSBU911
00521          READ MSTA-FILE NEXT INTO MIO-REC                         DTSBU911
00522      ELSE                                                         DTSBU911
00523      IF FILE-SUB = +2                                             DTSBU911
00524          READ MSTB-FILE NEXT INTO MIO-REC                         DTSBU911
00525      ELSE                                                         DTSBU911
00526      IF FILE-SUB = +3                                             DTSBU911
00527          READ MSTC-FILE NEXT INTO MIO-REC                         DTSBU911
00528      ELSE                                                         DTSBU911
00529      IF FILE-SUB = +4                                             DTSBU911
00530          READ MSTD-FILE NEXT INTO MIO-REC                         DTSBU911
00531      ELSE                                                         DTSBU911
00532          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBU911
00533                                                                   DTSBU911
00534      IF FILE-NO-REC-88                                            DTSBU911
00535          MOVE 'Y' TO COUNT-COMPLETE-IND                           DTSBU911
00536          GO TO P1510-EXIT.                                        DTSBU911
00537                                                                   DTSBU911
00538      IF FILE-OK-88                                                DTSBU911
00539          NEXT SENTENCE                                            DTSBU911
00540      ELSE                                                         DTSBU911
00541          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBU911
00542                                                                   DTSBU911
00543      IF MSKL-AUY-88 OF LINK-REC OR MSKL-FAR-88 OF LINK-REC        DTSBU911
00544          IF MIO-KEY-AREA (1:11)                                   DTSBU911
00545                 = MSKL-KEY-AREA OF LINK-REC (1:11)                DTSBU911
00546              ADD +1 TO L910-RECORD-CNT                            DTSBU911
00547              SET L910-OK-88 TO TRUE                               DTSBU911
00548              MOVE MIO-KEY-AREA TO MSKL-KEY-AREA OF LINK-REC       DTSBU911
00549          ELSE                                                     DTSBU911
00550              MOVE 'Y' TO COUNT-COMPLETE-IND                       DTSBU911
00551      ELSE                                                         DTSBU911
00552          IF (MIO-EMP-NO = MSKL-EMP-NO OF LINK-REC)                DTSBU911
00553                  AND                                              DTSBU911
00554             (MIO-REC-TYPE = MSKL-REC-TYPE OF LINK-REC)            DTSBU911
00555              ADD +1 TO L910-RECORD-CNT                            DTSBU911
00556              SET L910-OK-88 TO TRUE                               DTSBU911
00557              MOVE MIO-KEY-AREA TO MSKL-KEY-AREA OF LINK-REC       DTSBU911
00558          ELSE                                                     DTSBU911
00559              MOVE 'Y' TO COUNT-COMPLETE-IND.                      DTSBU911
00560  P1510-EXIT.                                                      DTSBU911
00561      EXIT.                                                        DTSBU911
00562      EJECT                                                        DTSBU911
00563  P2100-WRITE.                                                     DTSBU911
00564      IF FILE-OPEN-UPDATE-HDR-88                                   DTSBU911
00565          IF MSKL-HDR-88 OF LINK-REC                               DTSBU911
00566              NEXT SENTENCE                                        DTSBU911
00567          ELSE                                                     DTSBU911
00568              PERFORM S999-ABEND THRU S999-EXIT.                   DTSBU911
00569                                                                   DTSBU911
00570      PERFORM S2200-LINK-TO-IO THRU S2200-EXIT.                    DTSBU911
00571                                                                   DTSBU911
00572      PERFORM P2110-INITIALIZE-KEY-FILLER THRU P2110-EXIT.         DTSBU911
00573                                                                   DTSBU911
00574      IF FILE-SUB = +1                                             DTSBU911
00575          WRITE MSTA-VAR-REC FROM MIO-REC                          DTSBU911
00576      ELSE                                                         DTSBU911
00577      IF FILE-SUB = +2                                             DTSBU911
00578          WRITE MSTB-VAR-REC FROM MIO-REC                          DTSBU911
00579      ELSE                                                         DTSBU911
00580      IF FILE-SUB = +3                                             DTSBU911
00581          WRITE MSTC-VAR-REC FROM MIO-REC                          DTSBU911
00582      ELSE                                                         DTSBU911
00583      IF FILE-SUB = +4                                             DTSBU911
00584          WRITE MSTD-VAR-REC FROM MIO-REC                          DTSBU911
00585      ELSE                                                         DTSBU911
00586          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBU911
00587                                                                   DTSBU911
00588      IF FILE-OK-88                                                DTSBU911
00589          NEXT SENTENCE                                            DTSBU911
00590      ELSE                                                         DTSBU911
00591          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBU911
00592                                                                   DTSBU911
00593      IF FILE-OPEN-UPDATE-NO-AIX-88                                DTSBU911
00594          GO TO P2100-EXIT.                                        DTSBU911
00595                                                                   DTSBU911
00596      MOVE LOW-VALUES TO PRE-UPDATE-AIX-RECS.                      DTSBU911
00597                                                                   DTSBU911
00598      PERFORM S3200-CONSTRUCT-IPOST THRU S3200-EXIT.               DTSBU911
00599                                                                   DTSBU911
00600      PERFORM S3300-UPDATE-AIX THRU S3300-EXIT.                    DTSBU911
00601  P2100-EXIT.                                                      DTSBU911
00602      EXIT.                                                        DTSBU911
00603      SKIP3                                                        DTSBU911
00604  P2110-INITIALIZE-KEY-FILLER.                                     DTSBU911
00605      COMPUTE MIO-KEY-FILLER-START                                 DTSBU911
00606        = MLEN-KEY-LEN (REC-TYPE-SUB) + 1.                         DTSBU911
00607                                                                   DTSBU911
00608      COMPUTE MIO-KEY-FILLER-LENGTH                                DTSBU911
00609        = MLEN-MAX-KEY-LEN - MLEN-KEY-LEN (REC-TYPE-SUB).          DTSBU911
00610                                                                   DTSBU911
00611      IF MIO-KEY-FILLER-LENGTH > +0                                DTSBU911
00612          MOVE LOW-VALUES                                          DTSBU911
00613            TO MIO-KEY-AREA                                        DTSBU911
00614                 (MIO-KEY-FILLER-START:MIO-KEY-FILLER-LENGTH).     DTSBU911
00615  P2110-EXIT.                                                      DTSBU911
00616      EXIT.                                                        DTSBU911
00617      EJECT                                                        DTSBU911
00618  P2200-REWRITE.                                                   DTSBU911
00619      IF FILE-OPEN-UPDATE-HDR-88                                   DTSBU911
00620          IF MSKL-HDR-88 OF LINK-REC                               DTSBU911
00621              NEXT SENTENCE                                        DTSBU911
00622          ELSE                                                     DTSBU911
00623              PERFORM S999-ABEND THRU S999-EXIT.                   DTSBU911
00624                                                                   DTSBU911
00625      PERFORM P2900-PREPARE-FOR-UPDATE THRU P2900-EXIT.            DTSBU911
00626                                                                   DTSBU911
00627      IF L910-NO-REC-88                                            DTSBU911
00628          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBU911
00629                                                                   DTSBU911
00630      PERFORM S2200-LINK-TO-IO THRU S2200-EXIT.                    DTSBU911
00631                                                                   DTSBU911
00632      IF FILE-SUB = +1                                             DTSBU911
00633          REWRITE MSTA-VAR-REC FROM MIO-REC                        DTSBU911
00634      ELSE                                                         DTSBU911
00635      IF FILE-SUB = +2                                             DTSBU911
00636          REWRITE MSTB-VAR-REC FROM MIO-REC                        DTSBU911
00637      ELSE                                                         DTSBU911
00638      IF FILE-SUB = +3                                             DTSBU911
00639          REWRITE MSTC-VAR-REC FROM MIO-REC                        DTSBU911
00640      ELSE                                                         DTSBU911
00641      IF FILE-SUB = +4                                             DTSBU911
00642          REWRITE MSTD-VAR-REC FROM MIO-REC                        DTSBU911
00643      ELSE                                                         DTSBU911
00644          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBU911
00645                                                                   DTSBU911
00646      IF FILE-OK-88                                                DTSBU911
00647          NEXT SENTENCE                                            DTSBU911
00648      ELSE                                                         DTSBU911
00649          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBU911
00650                                                                   DTSBU911
00651      IF FILE-OPEN-UPDATE-NO-AIX-88                                DTSBU911
00652          GO TO P2200-EXIT.                                        DTSBU911
00653                                                                   DTSBU911
00654      PERFORM S3200-CONSTRUCT-IPOST THRU S3200-EXIT.               DTSBU911
00655                                                                   DTSBU911
00656      PERFORM S3300-UPDATE-AIX THRU S3300-EXIT.                    DTSBU911
00657  P2200-EXIT.                                                      DTSBU911
00658      EXIT.                                                        DTSBU911
00659      EJECT                                                        DTSBU911
00660  P2300-DELETE.                                                    DTSBU911
00661      IF FILE-OPEN-UPDATE-HDR-88                                   DTSBU911
00662          IF MSKL-HDR-88 OF LINK-REC                               DTSBU911
00663              NEXT SENTENCE                                        DTSBU911
00664          ELSE                                                     DTSBU911
00665              PERFORM S999-ABEND THRU S999-EXIT.                   DTSBU911
00666                                                                   DTSBU911
00667      PERFORM P2900-PREPARE-FOR-UPDATE THRU P2900-EXIT.            DTSBU911
00668                                                                   DTSBU911
00669      IF L910-NO-REC-88                                            DTSBU911
00670          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBU911
00671                                                                   DTSBU911
00672      IF FILE-SUB = +1                                             DTSBU911
00673          DELETE MSTA-FILE RECORD                                  DTSBU911
00674      ELSE                                                         DTSBU911
00675      IF FILE-SUB = +2                                             DTSBU911
00676          DELETE MSTB-FILE RECORD                                  DTSBU911
00677      ELSE                                                         DTSBU911
00678      IF FILE-SUB = +3                                             DTSBU911
00679          DELETE MSTC-FILE RECORD                                  DTSBU911
00680      ELSE                                                         DTSBU911
00681      IF FILE-SUB = +4                                             DTSBU911
00682          DELETE MSTD-FILE RECORD                                  DTSBU911
00683      ELSE                                                         DTSBU911
00684          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBU911
00685                                                                   DTSBU911
00686      IF FILE-OK-88                                                DTSBU911
00687          NEXT SENTENCE                                            DTSBU911
00688      ELSE                                                         DTSBU911
00689          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBU911
00690                                                                   DTSBU911
00691      IF FILE-OPEN-UPDATE-NO-AIX-88                                DTSBU911
00692         GO TO P2300-EXIT.                                         DTSBU911
00693                                                                   DTSBU911
00694      MOVE LOW-VALUES TO POST-UPDATE-AIX-RECS.                     DTSBU911
00695                                                                   DTSBU911
00696      PERFORM S3300-UPDATE-AIX THRU S3300-EXIT.                    DTSBU911
00697  P2300-EXIT.                                                      DTSBU911
00698      EXIT.                                                        DTSBU911
00699      EJECT                                                        DTSBU911
00700  P2900-PREPARE-FOR-UPDATE.                                        DTSBU911
00701      IF FILE-SUB = +1                                             DTSBU911
00702          MOVE MSKL-KEY-AREA OF LINK-REC                           DTSBU911
00703            TO MSKL-KEY-AREA OF MSTA-SKL-REC                       DTSBU911
00704          READ MSTA-FILE INTO MIO-REC                              DTSBU911
00705      ELSE                                                         DTSBU911
00706      IF FILE-SUB = +2                                             DTSBU911
00707          MOVE MSKL-KEY-AREA OF LINK-REC                           DTSBU911
00708            TO MSKL-KEY-AREA OF MSTB-SKL-REC                       DTSBU911
00709          READ MSTB-FILE INTO MIO-REC                              DTSBU911
00710      ELSE                                                         DTSBU911
00711      IF FILE-SUB = +3                                             DTSBU911
00712          MOVE MSKL-KEY-AREA OF LINK-REC                           DTSBU911
00713            TO MSKL-KEY-AREA OF MSTC-SKL-REC                       DTSBU911
00714          READ MSTC-FILE INTO MIO-REC                              DTSBU911
00715      ELSE                                                         DTSBU911
00716      IF FILE-SUB = +4                                             DTSBU911
00717          MOVE MSKL-KEY-AREA OF LINK-REC                           DTSBU911
00718            TO MSKL-KEY-AREA OF MSTD-SKL-REC                       DTSBU911
00719          READ MSTD-FILE INTO MIO-REC                              DTSBU911
00720      ELSE                                                         DTSBU911
00721          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBU911
00722                                                                   DTSBU911
00723      IF FILE-NO-REC-88                                            DTSBU911
00724          PERFORM S1100-NO-REC THRU S1100-EXIT                     DTSBU911
00725          GO TO P2900-EXIT.                                        DTSBU911
00726                                                                   DTSBU911
00727      IF FILE-OK-88                                                DTSBU911
00728          NEXT SENTENCE                                            DTSBU911
00729      ELSE                                                         DTSBU911
00730          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBU911
00731                                                                   DTSBU911
00732      IF FILE-OPEN-UPDATE-NO-AIX-88                                DTSBU911
00733          MOVE LOW-VALUES TO PRE-UPDATE-AIX-RECS                   DTSBU911
00734      ELSE                                                         DTSBU911
00735          IF MLEN-AIX-YES-88 (REC-TYPE-SUB)                        DTSBU911
00736              PERFORM S2110-IO-TO-WRK THRU S2110-EXIT              DTSBU911
00737              PERFORM S3100-CONSTRUCT-IPRE THRU S3100-EXIT         DTSBU911
00738          ELSE                                                     DTSBU911
00739              MOVE LOW-VALUES TO PRE-UPDATE-AIX-RECS.              DTSBU911
00740  P2900-EXIT.                                                      DTSBU911
00741      EXIT.                                                        DTSBU911
00742      EJECT                                                        DTSBU911
00743  P4100-OPEN.                                                      DTSBU911
00744      IF L910-OPEN-READ-88                                         DTSBU911
00745            OR                                                     DTSBU911
00746         L910-OPEN-UPDATE-88                                       DTSBU911
00747            OR                                                     DTSBU911
00748         L910-OPEN-UPDATE-HDR-88                                   DTSBU911
00749            OR                                                     DTSBU911
00750         L910-OPEN-UPDATE-NO-AIX-88                                DTSBU911
00751          NEXT SENTENCE                                            DTSBU911
00752      ELSE                                                         DTSBU911
00753          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBU911
00754                                                                   DTSBU911
00755      MOVE L910-CMND-CD TO FILE-STATE.                             DTSBU911
00756                                                                   DTSBU911
00757                                                                   DTSBU911
00758      MOVE +1 TO FILE-SUB.                                         DTSBU911
00759                                                                   DTSBU911
00760      IF FILE-OPEN-READ-88                                         DTSBU911
00761          OPEN INPUT MSTA-FILE                                     DTSBU911
00762      ELSE                                                         DTSBU911
00763          OPEN I-O MSTA-FILE.                                      DTSBU911
00764                                                                   DTSBU911
00765      IF FILE-OK-88 OR FILE-VERIFY-88                              DTSBU911
00766          NEXT SENTENCE                                            DTSBU911
00767      ELSE                                                         DTSBU911
00768          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBU911
00769                                                                   DTSBU911
00770                                                                   DTSBU911
00771      MOVE +2 TO FILE-SUB.                                         DTSBU911
00772                                                                   DTSBU911
00773      IF FILE-OPEN-READ-88 OR FILE-OPEN-UPDATE-HDR-88              DTSBU911
00774          OPEN INPUT MSTB-FILE                                     DTSBU911
00775      ELSE                                                         DTSBU911
00776          OPEN I-O MSTB-FILE.                                      DTSBU911
00777                                                                   DTSBU911
00778      IF FILE-OK-88 OR FILE-VERIFY-88                              DTSBU911
00779          NEXT SENTENCE                                            DTSBU911
00780      ELSE                                                         DTSBU911
00781          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBU911
00782                                                                   DTSBU911
00783                                                                   DTSBU911
00784      MOVE +3 TO FILE-SUB.                                         DTSBU911
00785                                                                   DTSBU911
00786      IF FILE-OPEN-READ-88 OR FILE-OPEN-UPDATE-HDR-88              DTSBU911
00787          OPEN INPUT MSTC-FILE                                     DTSBU911
00788      ELSE                                                         DTSBU911
00789          OPEN I-O MSTC-FILE.                                      DTSBU911
00790                                                                   DTSBU911
00791      IF FILE-OK-88 OR FILE-VERIFY-88                              DTSBU911
00792          NEXT SENTENCE                                            DTSBU911
00793      ELSE                                                         DTSBU911
00794          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBU911
00795                                                                   DTSBU911
00796                                                                   DTSBU911
00797      MOVE +4 TO FILE-SUB.                                         DTSBU911
00798                                                                   DTSBU911
00799      IF FILE-OPEN-READ-88 OR FILE-OPEN-UPDATE-HDR-88              DTSBU911
00800          OPEN INPUT MSTD-FILE                                     DTSBU911
00801      ELSE                                                         DTSBU911
00802          OPEN I-O MSTD-FILE.                                      DTSBU911
00803                                                                   DTSBU911
00804      IF FILE-OK-88 OR FILE-VERIFY-88                              DTSBU911
00805          NEXT SENTENCE                                            DTSBU911
00806      ELSE                                                         DTSBU911
00807          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBU911
00808  P4100-EXIT.                                                      DTSBU911
00809      EXIT.                                                        DTSBU911
00810      EJECT                                                        DTSBU911
00811  P4200-CLOSE.                                                     DTSBU911
00812      MOVE L910-CMND-CD TO FILE-STATE.                             DTSBU911
00813                                                                   DTSBU911
00814                                                                   DTSBU911
00815      MOVE +1 TO FILE-SUB.                                         DTSBU911
00816                                                                   DTSBU911
00817      CLOSE MSTA-FILE.                                             DTSBU911
00818                                                                   DTSBU911
00819      IF FILE-OK-88                                                DTSBU911
00820          NEXT SENTENCE                                            DTSBU911
00821      ELSE                                                         DTSBU911
00822          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBU911
00823                                                                   DTSBU911
00824                                                                   DTSBU911
00825      MOVE +2 TO FILE-SUB.                                         DTSBU911
00826                                                                   DTSBU911
00827      CLOSE MSTB-FILE.                                             DTSBU911
00828                                                                   DTSBU911
00829      IF FILE-OK-88                                                DTSBU911
00830          NEXT SENTENCE                                            DTSBU911
00831      ELSE                                                         DTSBU911
00832          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBU911
00833                                                                   DTSBU911
00834                                                                   DTSBU911
00835      MOVE +3 TO FILE-SUB.                                         DTSBU911
00836                                                                   DTSBU911
00837      CLOSE MSTC-FILE.                                             DTSBU911
00838                                                                   DTSBU911
00839      IF FILE-OK-88                                                DTSBU911
00840          NEXT SENTENCE                                            DTSBU911
00841      ELSE                                                         DTSBU911
00842          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBU911
00843                                                                   DTSBU911
00844                                                                   DTSBU911
00845      MOVE +4 TO FILE-SUB.                                         DTSBU911
00846                                                                   DTSBU911
00847      CLOSE MSTD-FILE.                                             DTSBU911
00848                                                                   DTSBU911
00849      IF FILE-OK-88                                                DTSBU911
00850          NEXT SENTENCE                                            DTSBU911
00851      ELSE                                                         DTSBU911
00852          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBU911
00853  P4200-EXIT.                                                      DTSBU911
00854      EXIT.                                                        DTSBU911
00855      EJECT                                                        DTSBU911
00856  S1100-NO-REC.                                                    DTSBU911
00857      SET L910-NO-REC-88 TO TRUE.                                  DTSBU911
00858  S1100-EXIT.                                                      DTSBU911
00859      EXIT.                                                        DTSBU911
00860      EJECT                                                        DTSBU911
00861  S2100-IO-TO-LINK.                                                DTSBU911
00862      PERFORM S2110-IO-TO-WRK THRU S2110-EXIT.                     DTSBU911
00863                                                                   DTSBU911
00864      MOVE WRK-REC (1:WRK-REC-LENGTH)                              DTSBU911
00865        TO LINK-REC (1:WRK-REC-LENGTH).                            DTSBU911
00866  S2100-EXIT.                                                      DTSBU911
00867      EXIT.                                                        DTSBU911
00868      SKIP3                                                        DTSBU911
00869  S2110-IO-TO-WRK.                                                 DTSBU911
00870      MOVE MIO-KEY-AREA TO MSKL-KEY-AREA OF WRK-REC.               DTSBU911
00871                                                                   DTSBU911
00872      MOVE +0 TO MSKL-PURGE-DATE OF WRK-REC.                       DTSBU911
00873                                                                   DTSBU911
00874      PERFORM S7000-IO-DATA-TO-WRK-DATA THRU S7000-EXIT.           DTSBU911
00875                                                                   DTSBU911
00876      COMPUTE WRK-REC-LENGTH                                       DTSBU911
00877        = MLEN-MSKL-NONDATA-LEN + WRK-DATA-LENGTH.                 DTSBU911
00878  S2110-EXIT.                                                      DTSBU911
00879      EXIT.                                                        DTSBU911
00880      EJECT                                                        DTSBU911
00881  S2200-LINK-TO-IO.                                                DTSBU911
00882      PERFORM S2210-LINK-TO-WRK THRU S2210-EXIT.                   DTSBU911
00883                                                                   DTSBU911
00884      MOVE MSKL-KEY-AREA OF WRK-REC TO MIO-KEY-AREA.               DTSBU911
00885                                                                   DTSBU911
00886      PERFORM S6000-WRK-DATA-TO-IO-DATA THRU S6000-EXIT.           DTSBU911
00887                                                                   DTSBU911
00888      COMPUTE MIO-REC-LENGTH                                       DTSBU911
00889        = MLEN-MIO-NONDATA-LEN + MIO-DATA-LENGTH.                  DTSBU911
00890  S2200-EXIT.                                                      DTSBU911
00891      EXIT.                                                        DTSBU911
00892      SKIP3                                                        DTSBU911
00893  S2210-LINK-TO-WRK.                                               DTSBU911
00894      MOVE MLEN-MSKL-NONDATA-LEN TO WRK-REC-LENGTH.                DTSBU911
00895                                                                   DTSBU911
00896      SET MLEN-IDX TO REC-TYPE-SUB.                                DTSBU911
00897                                                                   DTSBU911
00898      MOVE MLEN-FIX-LEN (MLEN-IDX) TO WRK-DATA-LENGTH.             DTSBU911
00899                                                                   DTSBU911
00900      IF MLEN-OCC-MAX (MLEN-IDX) = +0                              DTSBU911
00901          ADD WRK-DATA-LENGTH TO WRK-REC-LENGTH                    DTSBU911
00902          MOVE LINK-REC (1:WRK-REC-LENGTH)                         DTSBU911
00903            TO WRK-REC (1:WRK-REC-LENGTH)                          DTSBU911
00904          GO TO S2210-EXIT.                                        DTSBU911
00905                                                                   DTSBU911
00906      COMPUTE OCC-COUNT-START = WRK-DATA-LENGTH - 1.               DTSBU911
00907                                                                   DTSBU911
00908      MOVE MSKL-DATA-AREA OF LINK-REC (OCC-COUNT-START:2)          DTSBU911
00909        TO OCC-COUNT-X.                                            DTSBU911
00910                                                                   DTSBU911
00911      IF (OCC-COUNT < +0)                                          DTSBU911
00912            OR                                                     DTSBU911
00913         (OCC-COUNT > MLEN-OCC-MAX (MLEN-IDX))                     DTSBU911
00914          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBU911
00915                                                                   DTSBU911
00916      COMPUTE WRK-DATA-LENGTH = WRK-DATA-LENGTH                    DTSBU911
00917        + (OCC-COUNT * MLEN-VAR-LEN (MLEN-IDX)).                   DTSBU911
00918                                                                   DTSBU911
00919      IF WRK-DATA-LENGTH > MLEN-MAX-MSKL-DATA-LEN                  DTSBU911
00920          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBU911
00921                                                                   DTSBU911
00922      ADD WRK-DATA-LENGTH TO WRK-REC-LENGTH.                       DTSBU911
00923                                                                   DTSBU911
00924      MOVE LINK-REC (1:WRK-REC-LENGTH)                             DTSBU911
00925        TO WRK-REC (1:WRK-REC-LENGTH).                             DTSBU911
00926  S2210-EXIT.                                                      DTSBU911
00927      EXIT.                                                        DTSBU911
00928      EJECT                                                        DTSBU911
00929  ++INCLUDE DTSIP001                                               DTSBU911
00930      EJECT                                                        DTSBU911
00931  ++INCLUDE DTSIP002                                               DTSBU911
00932      EJECT                                                        DTSBU911
00933  S3300-UPDATE-AIX.                                                DTSBU911
00934      MOVE WRK-MOD-NAME TO L921-MOD-NAME.                          DTSBU911
00935                                                                   DTSBU911
00936      MOVE L910-TRACE-IND TO L921-TRACE-IND.                       DTSBU911
00937                                                                   DTSBU911
00938      PERFORM S3310-AIX-LOOP THRU S3310-EXIT                       DTSBU911
00939          VARYING AIX-REC-SUB FROM 1 BY 1                          DTSBU911
00940          UNTIL (AIX-REC-SUB > AIX-REC-MAX).                       DTSBU911
00941  S3300-EXIT.                                                      DTSBU911
00942      EXIT.                                                        DTSBU911
00943      SKIP3                                                        DTSBU911
00944  S3310-AIX-LOOP.                                                  DTSBU911
00945      IF PRE-UPDATE-AIX-REC (AIX-REC-SUB)                          DTSBU911
00946        = POST-UPDATE-AIX-REC (AIX-REC-SUB)                        DTSBU911
00947          GO TO S3310-EXIT.                                        DTSBU911
00948                                                                   DTSBU911
00949      IF PRE-UPDATE-AIX-REC (AIX-REC-SUB) NOT = LOW-VALUES         DTSBU911
00950          MOVE PRE-UPDATE-AIX-REC (AIX-REC-SUB) TO ISKL-REC        DTSBU911
00951          PERFORM S3311-AIX-DELETE THRU S3311-EXIT.                DTSBU911
00952                                                                   DTSBU911
00953      IF POST-UPDATE-AIX-REC (AIX-REC-SUB) NOT = LOW-VALUES        DTSBU911
00954          MOVE POST-UPDATE-AIX-REC (AIX-REC-SUB) TO ISKL-REC       DTSBU911
00955          PERFORM S3312-AIX-WRITE THRU S3312-EXIT.                 DTSBU911
00956  S3310-EXIT.                                                      DTSBU911
00957      EXIT.                                                        DTSBU911
00958      SKIP3                                                        DTSBU911
00959  S3311-AIX-DELETE.                                                DTSBU911
00960      PERFORM S921-AIX-READ THRU S921-EXIT.                        DTSBU911
00961                                                                   DTSBU911
00962      IF L921-NO-REC-88                                            DTSBU911
00963          GO TO S3311-EXIT.                                        DTSBU911
00964                                                                   DTSBU911
00965      PERFORM S921-AIX-DELETE THRU S921-EXIT.                      DTSBU911
00966  S3311-EXIT.                                                      DTSBU911
00967      EXIT.                                                        DTSBU911
00968      SKIP3                                                        DTSBU911
00969  S3312-AIX-WRITE.                                                 DTSBU911
00970      PERFORM S921-AIX-READ THRU S921-EXIT.                        DTSBU911
00971                                                                   DTSBU911
00972      IF NOT L921-NO-REC-88                                        DTSBU911
00973          GO TO S3312-EXIT.                                        DTSBU911
00974                                                                   DTSBU911
00975      PERFORM S921-AIX-WRITE THRU S921-EXIT.                       DTSBU911
00976  S3312-EXIT.                                                      DTSBU911
00977      EXIT.                                                        DTSBU911
00978      EJECT                                                        DTSBU911
00979  ++INCLUDE DTSIP003                                               DTSBU911
00980      EJECT                                                        DTSBU911
00981  ++INCLUDE DTSIP006                                               DTSBU911
00982      EJECT                                                        DTSBU911
00983  ++INCLUDE DTSIP007                                               DTSBU911
00984      EJECT                                                        DTSBU911
00985  S9100-PRE-DISPLAY.                                               DTSBU911
00986      DISPLAY ' '.                                                 DTSBU911
00987                                                                   DTSBU911
00988      DISPLAY ' '.                                                 DTSBU911
00989                                                                   DTSBU911
00990      DISPLAY '*** DTSBU910 PRE  TRACE DISPLAY ***'.               DTSBU911
00991                                                                   DTSBU911
00992      DISPLAY L910-MOD-NAME                                        DTSBU911
00993              ' = L910-MOD-NAME'.                                  DTSBU911
00994                                                                   DTSBU911
00995      DISPLAY L910-CMND-CD                                         DTSBU911
00996              ' = L910-CMND-CD'.                                   DTSBU911
00997                                                                   DTSBU911
00998      PERFORM S9300-REC-DISPLAY THRU S9300-EXIT.                   DTSBU911
00999  S9100-EXIT.                                                      DTSBU911
01000      EXIT.                                                        DTSBU911
01001      SKIP3                                                        DTSBU911
01002  S9200-POST-DISPLAY.                                              DTSBU911
01003      DISPLAY ' '.                                                 DTSBU911
01004                                                                   DTSBU911
01005      DISPLAY ' '.                                                 DTSBU911
01006                                                                   DTSBU911
01007      DISPLAY '*** DTSBU910 POST TRACE DISPLAY ***'.               DTSBU911
01008                                                                   DTSBU911
01009      DISPLAY L910-RESULT-IND                                      DTSBU911
01010              ' = L910-RESULT-IND'.                                DTSBU911
01011                                                                   DTSBU911
01012      PERFORM S9300-REC-DISPLAY THRU S9300-EXIT.                   DTSBU911
01013  S9200-EXIT.                                                      DTSBU911
01014      EXIT.                                                        DTSBU911
01015      SKIP3                                                        DTSBU911
01016  S9300-REC-DISPLAY.                                               DTSBU911
01017      DISPLAY ' '.                                                 DTSBU911
01018                                                                   DTSBU911
01019      IF (MSKL-REC-TYPE OF LINK-REC < +1)                          DTSBU911
01020              OR                                                   DTSBU911
01021         (MSKL-REC-TYPE OF LINK-REC > MLEN-MAX-REC-TYPE)           DTSBU911
01022          MOVE SPACES TO WRK-REC-PREFIX                            DTSBU911
01023      ELSE                                                         DTSBU911
01024          MOVE MLEN-PREFIX (MSKL-REC-TYPE OF LINK-REC)             DTSBU911
01025            TO WRK-REC-PREFIX.                                     DTSBU911
01026                                                                   DTSBU911
01027      IF WRK-REC-PREFIX = SPACES                                   DTSBU911
01028          MOVE '????' TO WRK-REC-PREFIX.                           DTSBU911
01029                                                                   DTSBU911
01030      MOVE MLEN-MAX-KEY-LEN TO L991-REQ-CHAR-CNT.                  DTSBU911
01031                                                                   DTSBU911
01032      MOVE MSKL-KEY-AREA OF LINK-REC TO L991-REQ-AREA.             DTSBU911
01033                                                                   DTSBU911
01034      PERFORM S991-HEX-FORMAT THRU S991-EXIT.                      DTSBU911
01035                                                                   DTSBU911
01036      DISPLAY 'REC TYPE = '                                        DTSBU911
01037              WRK-REC-PREFIX.                                      DTSBU911
01038      DISPLAY 'KEY AREA = '                                        DTSBU911
01039              L991-REPLY-HEX-1-AREA.                               DTSBU911
01040      DISPLAY '           '                                        DTSBU911
01041              L991-REPLY-HEX-2-AREA.                               DTSBU911
01042      DISPLAY '           '                                        DTSBU911
01043              L991-REPLY-AN-AREA.                                  DTSBU911
01044  S9300-EXIT.                                                      DTSBU911
01045      EXIT.                                                        DTSBU911
01046      EJECT                                                        DTSBU911
01047  S899-ABEND.                                                      DTSBU911
01048      PERFORM S999-ABEND THRU S999-EXIT.                           DTSBU911
01049  S899-EXIT.                                                       DTSBU911
01050      EXIT.                                                        DTSBU911
01051      SKIP3                                                        DTSBU911
01052  S921-AIX-READ.                                                   DTSBU911
01053      SET L921-READ-88 TO TRUE.                                    DTSBU911
01054      GO TO S921-AIX-IO.                                           DTSBU911
01055                                                                   DTSBU911
01056  S921-AIX-DELETE.                                                 DTSBU911
01057      SET L921-DELETE-88 TO TRUE.                                  DTSBU911
01058      GO TO S921-AIX-IO.                                           DTSBU911
01059                                                                   DTSBU911
01060  S921-AIX-WRITE.                                                  DTSBU911
01061      SET L921-WRITE-88 TO TRUE.                                   DTSBU911
01062      GO TO S921-AIX-IO.                                           DTSBU911
01063                                                                   DTSBU911
01064  S921-AIX-IO.                                                     DTSBU911
01065                                                                   DTSBU911
01066      CALL 'DTSBU921' USING L921-LINK-AREA                         DTSBU911
01067                            ISKL-REC.                              DTSBU911
01068                                                                   DTSBU911
01069  S921-EXIT.                                                       DTSBU911
01070      EXIT.                                                        DTSBU911
01071      SKIP3                                                        DTSBU911
01072  S991-HEX-FORMAT.                                                 DTSBU911
01073      CALL 'DTSBU991' USING L991-LINK-AREA.                        DTSBU911
01074  S991-EXIT.                                                       DTSBU911
01075      EXIT.                                                        DTSBU911
01076      SKIP3                                                        DTSBU911
01077  S999-ABEND.                                                      DTSBU911
01078      DISPLAY '*** MASTER FILE I/O MODULE ABENDING'.               DTSBU911
01079                                                                   DTSBU911
01080      DISPLAY '*** CMND-CD = ' L910-CMND-CD.                       DTSBU911
01081                                                                   DTSBU911
01082      IF (FILE-SUB < +1)                                           DTSBU911
01083            OR                                                     DTSBU911
01084         (FILE-SUB > +4)                                           DTSBU911
01085          MOVE '????' TO WRK-FILE-NAME-SUFFIX                      DTSBU911
01086      ELSE                                                         DTSBU911
01087          MOVE WRK-FILE-SUFFIX (FILE-SUB)                          DTSBU911
01088            TO WRK-FILE-NAME-SUFFIX.                               DTSBU911
01089                                                                   DTSBU911
01090      DISPLAY '*** FILE NAME = ' WRK-FILE-NAME-SUFFIX.             DTSBU911
01091                                                                   DTSBU911
01092      DISPLAY '*** FILE STATUS = ' FILE-STATUS.                    DTSBU911
01093                                                                   DTSBU911
01094      DISPLAY '*** CALLING MODULE = ' L910-MOD-NAME.               DTSBU911
01095                                                                   DTSBU911
01096      PERFORM S9300-REC-DISPLAY THRU S9300-EXIT.                   DTSBU911
01097                                                                   DTSBU911
01098      CALL 'DTSBU999' USING WRK-ABEND-CD.                          DTSBU911
01099  S999-EXIT.                                                       DTSBU911
01100      EXIT.                                                        DTSBU911
