00001  IDENTIFICATION DIVISION.                                         05/22/01
00002  PROGRAM-ID.             DESBD992.                                DESBD992
00003  AUTHOR.                 TRW.                                        LV001
00004  DATE-WRITTEN.           MARCH 2001.                              DESBD992
00005  DATE-COMPILED.                                                   DESBD992
00006      SKIP3                                                        DESBD992
00007 *****                                                             DESBD992
00008 *                                                                 DESBD992
00009 *    FUNCTION:  BUILD ELECTRONIC MEDIA ALTERNATE INDEX RECORDS    DESBD992
00010 *                                                                 DESBD992
00011 *                                                                 DESBD992
00012 *                                                                 DESBD992
00013 *****                                                             DESBD992
00014      SKIP3                                                        DESBD992
00015  ENVIRONMENT DIVISION.                                            DESBD992
00016  INPUT-OUTPUT SECTION.                                            DESBD992
00017  FILE-CONTROL.                                                    DESBD992
00018      SELECT AIXO-FILE ASSIGN TO DTSFAIXO                          DESBD992
00019         FILE STATUS IS FILE-STATUS.                               DESBD992
00020                                                                   DESBD992
00021      SKIP2                                                        DESBD992
00022  DATA DIVISION.                                                   DESBD992
00023  FILE SECTION.                                                    DESBD992
00024                                                                   DESBD992
00025  FD  AIXO-FILE                                                    DESBD992
00026      RECORDING MODE IS F                                          DESBD992
00027      BLOCK CONTAINS 0 RECORDS.                                    DESBD992
00028                                                                   DESBD992
00029  01  AIXO-REC                            PIC  X(64).              DESBD992
00030                                                                   DESBD992
00031  WORKING-STORAGE SECTION.                                         DESBD992
000315 77  PAN-VALET PICTURE X(24) VALUE '001DESBD992  05/22/01'.       DESBD992
00032      SKIP3                                                        DESBD992
00033  01  WRK-AREA.                                                    DESBD992
00034      05  WRK-ABEND-CD            PIC S9(04)  COMP  VALUE +992.    DESBD992
00035                                                                   DESBD992
00036      05  WRK-MOD-NAME            PIC  X(08)  VALUE 'DESBD992'.    DESBD992
00037                                                                   DESBD992
00038      05  FILE-STATUS                 PIC  X(02).                  DESBD992
00039          88  FILE-OK-88                     VALUE '00'.           DESBD992
00040                                                                   DESBD992
00041      05  WRK-ERROR-IND               PIC  X(01).                  DESBD992
00042          88 WRK-ERROR-YES-88      VALUE 'Y'.                      DESBD992
00043          88 WRK-ERROR-NO-88       VALUE 'N'.                      DESBD992
00044                                                                   DESBD992
00045      05  REC-TYPE-SUB            PIC S9(04)  COMP.                DESBD992
00046                                                                   DESBD992
00047      05  WRK-EPRF-CNT         PIC  9(06)  COMP-3 VALUE 0.         DESBD992
00048      05  WRK-ELOG-CNT         PIC  9(06)  COMP-3 VALUE 0.         DESBD992
00049      05  WRK-EEMH-CNT         PIC  9(06)  COMP-3 VALUE 0.         DESBD992
00050                                                                   DESBD992
00051      05  WRK-TRACE-IND        PIC  X(01)   VALUE 'T'.             DESBD992
00052                                                                   DESBD992
00053  01  AIX-WORK-AREA.                                               DESBD992
00054  ++INCLUDE DTSIXAIX                                               DESBD992
00055      EJECT                                                        DESBD992
00056  01  ISKL-REC.                                                    DESBD992
00057  ++INCLUDE DTSIISKL                                               DESBD992
00058      EJECT                                                        DESBD992
00059  01  IENM-REC.                                                    DESBD992
00060  ++INCLUDE DTSIIENM                                               DESBD992
00061      EJECT                                                        DESBD992
00062  01  IEAL-REC.                                                    DESBD992
00063  ++INCLUDE DTSIIEAL                                               DESBD992
00064      EJECT                                                        DESBD992
00065  01  IEAE-REC.                                                    DESBD992
00066  ++INCLUDE DTSIIEAE                                               DESBD992
00067      EJECT                                                        DESBD992
00068  01  IEBX-REC.                                                    DESBD992
00069  ++INCLUDE DTSIIEBX                                               DESBD992
00070      EJECT                                                        DESBD992
00071  01  IEOP-REC.                                                    DESBD992
00072  ++INCLUDE DTSIIEOP                                               DESBD992
00073      EJECT                                                        DESBD992
00074  01  IESR-REC.                                                    DESBD992
00075  ++INCLUDE DTSIIESR                                               DESBD992
00076      EJECT                                                        DESBD992
00077  01  IEER-REC.                                                    DESBD992
00078  ++INCLUDE DTSIIEER                                               DESBD992
00079      EJECT                                                        DESBD992
00080  01  IEET-REC.                                                    DESBD992
00081  ++INCLUDE DTSIIEET                                               DESBD992
00082      EJECT                                                        DESBD992
00083  01  IEPR-REC.                                                    DESBD992
00084  ++INCLUDE DTSIIEPR                                               DESBD992
00085      EJECT                                                        DESBD992
00086  01  L910-LINK-AREA.                                              DESBD992
00087  ++INCLUDE DTSIL910                                               DESBD992
00088      EJECT                                                        DESBD992
00089  01  MSKL-REC.                                                    DESBD992
00090  ++INCLUDE DTSIMSKL                                               DESBD992
00091      EJECT                                                        DESBD992
00092  01  MPRF-REC.                                                    DESBD992
00093  ++INCLUDE DTSIMPRF                                               DESBD992
00094      EJECT                                                        DESBD992
00095  01  L935-LINK-AREA.                                              DESBD992
00096  ++INCLUDE DTSIL935                                               DESBD992
00097      EJECT                                                        DESBD992
00098  01  ELEN-REC.                                                    DESBD992
00099  ++INCLUDE DTSIELEN                                               DESBD992
00100      EJECT                                                        DESBD992
00101  01  WRK-REC.                                                     DESBD992
00102      05  ESKL-REC.                                                DESBD992
00103  ++INCLUDE DTSIESKL                                               DESBD992
00104      EJECT                                                        DESBD992
00105      05  EPRF-REC REDEFINES ESKL-REC.                             DESBD992
00106  ++INCLUDE DTSIEPRF                                               DESBD992
00107      EJECT                                                        DESBD992
00108      05  ELOG-REC REDEFINES ESKL-REC.                             DESBD992
00109  ++INCLUDE DTSIELOG                                               DESBD992
00110      EJECT                                                        DESBD992
00111      05  EEMH-REC REDEFINES ESKL-REC.                             DESBD992
00112  ++INCLUDE DTSIEEMH                                               DESBD992
00113      EJECT                                                        DESBD992
00114  PROCEDURE DIVISION.                                              DESBD992
00115                                                                   DESBD992
00116  DESBD992-MAIN.                                                   DESBD992
00117      PERFORM I0000-INITIATE THRU I0000-EXIT.                      DESBD992
00118      IF WRK-ERROR-YES-88                                          DESBD992
00119         GO TO DESBD992-MAIN-EXIT.                                 DESBD992
00120                                                                   DESBD992
00121      PERFORM P0000-PROCESS THRU P0000-EXIT.                       DESBD992
00122                                                                   DESBD992
00123      PERFORM T0000-TERMINATE THRU T0000-EXIT.                     DESBD992
00124                                                                   DESBD992
00125  DESBD992-MAIN-EXIT.                                              DESBD992
00126      GOBACK.                                                      DESBD992
00127      EJECT                                                        DESBD992
00128  I0000-INITIATE.                                                  DESBD992
00129      SET WRK-ERROR-NO-88 TO TRUE.                                 DESBD992
00130                                                                   DESBD992
00131      MOVE ' ' TO WRK-TRACE-IND.                                   DESBD992
00132                                                                   DESBD992
00133      PERFORM I1000-OPEN-FILES          THRU I1000-EXIT.           DESBD992
00134      IF WRK-ERROR-YES-88                                          DESBD992
00135         GO TO I0000-EXIT.                                         DESBD992
00136                                                                   DESBD992
00137  I0000-EXIT.                                                      DESBD992
00138      EXIT.                                                        DESBD992
00139  I1000-OPEN-FILES.                                                DESBD992
00140      OPEN OUTPUT AIXO-FILE.                                       DESBD992
00141      IF FILE-OK-88                                                DESBD992
00142         NEXT SENTENCE                                             DESBD992
00143      ELSE                                                         DESBD992
00144         DISPLAY 'CANNOT OPEN AIXO '                               DESBD992
00145         SET WRK-ERROR-YES-88 TO TRUE                              DESBD992
00146         GO TO I1000-EXIT.                                         DESBD992
00147                                                                   DESBD992
00148      MOVE WRK-TRACE-IND TO L935-TRACE-IND                         DESBD992
00149                            L910-TRACE-IND.                        DESBD992
00150                                                                   DESBD992
00151      MOVE WRK-MOD-NAME TO L935-MOD-NAME                           DESBD992
00152                           L910-MOD-NAME.                          DESBD992
00153                                                                   DESBD992
00154      PERFORM S935-OPEN-READ THRU S935-EXIT.                       DESBD992
00155      PERFORM S910-OPEN-READ THRU S910-EXIT.                       DESBD992
00156                                                                   DESBD992
00157  I1000-EXIT.                                                      DESBD992
00158      EXIT.                                                        DESBD992
00159                                                                   DESBD992
00160      EJECT                                                        DESBD992
00161  P0000-PROCESS.                                                   DESBD992
00162      PERFORM P1000-SCAN-PRF     THRU P1000-EXIT.                  DESBD992
00163      PERFORM P2000-SCAN-LOG     THRU P2000-EXIT.                  DESBD992
00164      PERFORM P3000-SCAN-EMH     THRU P3000-EXIT.                  DESBD992
00165                                                                   DESBD992
00166  P0000-EXIT.                                                      DESBD992
00167      EXIT.                                                        DESBD992
00168      EJECT                                                        DESBD992
00169  P1000-SCAN-PRF.                                                  DESBD992
00170      MOVE LOW-VALUES TO EPRF-REC.                                 DESBD992
00171                                                                   DESBD992
00172      SET EPRF-PRF-88         TO TRUE.                             DESBD992
00173      MOVE EPRF-REC-TYPE      TO REC-TYPE-SUB.                     DESBD992
00174      MOVE ZERO               TO EPRF-ELF-ID                       DESBD992
00175                                 EPRF-DATA-TYPE-CD.                DESBD992
00176                                                                   DESBD992
00177      PERFORM S935-START-BROWSE THRU S935-EXIT.                    DESBD992
00178      IF L935-OK-88                                                DESBD992
00179         PERFORM P1100-BUILD-AIX THRU P1100-EXIT                   DESBD992
00180            UNTIL L935-NO-REC-88                                   DESBD992
00181      ELSE                                                         DESBD992
00182         DISPLAY 'CANNOT READ PRF'                                 DESBD992
00183         GO TO P1000-EXIT                                          DESBD992
00184      END-IF.                                                      DESBD992
00185                                                                   DESBD992
00186                                                                   DESBD992
00187  P1000-EXIT.                                                      DESBD992
00188      EXIT.                                                        DESBD992
00189                                                                   DESBD992
00190  P1100-BUILD-AIX.                                                 DESBD992
00191      ADD 1                   TO WRK-EPRF-CNT.                     DESBD992
00192                                                                   DESBD992
00193      PERFORM S3100-CONSTRUCT-IPRE THRU S3100-EXIT.                DESBD992
00194                                                                   DESBD992
00195      PERFORM S4000-WRITE-AIX-RECS THRU S4000-EXIT.                DESBD992
00196                                                                   DESBD992
00197      PERFORM S935-READ-NEXT    THRU S935-EXIT.                    DESBD992
00198                                                                   DESBD992
00199  P1100-EXIT.                                                      DESBD992
00200      EXIT.                                                        DESBD992
00201                                                                   DESBD992
00202  P2000-SCAN-LOG.                                                  DESBD992
00203      MOVE LOW-VALUES TO ELOG-REC.                                 DESBD992
00204                                                                   DESBD992
00205      SET ELOG-LOG-88         TO TRUE.                             DESBD992
00206      MOVE EPRF-REC-TYPE      TO REC-TYPE-SUB.                     DESBD992
00207      MOVE ZERO               TO ELOG-LOG-NO.                      DESBD992
00208                                                                   DESBD992
00209      PERFORM S935-START-BROWSE  THRU S935-EXIT.                   DESBD992
00210      IF L935-OK-88                                                DESBD992
00211         PERFORM P2100-BUILD-AIX THRU P2100-EXIT                   DESBD992
00212            UNTIL L935-NO-REC-88                                   DESBD992
00213      ELSE                                                         DESBD992
00214         DISPLAY 'CANNOT READ LOG'                                 DESBD992
00215         GO TO P2000-EXIT                                          DESBD992
00216      END-IF.                                                      DESBD992
00217                                                                   DESBD992
00218  P2000-EXIT.                                                      DESBD992
00219      EXIT.                                                        DESBD992
00220                                                                   DESBD992
00221                                                                   DESBD992
00222  P2100-BUILD-AIX.                                                 DESBD992
00223      ADD 1                   TO WRK-ELOG-CNT.                     DESBD992
00224                                                                   DESBD992
00225      PERFORM S3100-CONSTRUCT-IPRE THRU S3100-EXIT.                DESBD992
00226                                                                   DESBD992
00227      PERFORM S4000-WRITE-AIX-RECS THRU S4000-EXIT.                DESBD992
00228                                                                   DESBD992
00229      PERFORM S935-READ-NEXT    THRU S935-EXIT.                    DESBD992
00230                                                                   DESBD992
00231  P2100-EXIT.                                                      DESBD992
00232      EXIT.                                                        DESBD992
00233                                                                   DESBD992
00234  P3000-SCAN-EMH.                                                  DESBD992
00235      MOVE LOW-VALUES TO MPRF-REC.                                 DESBD992
00236                                                                   DESBD992
00237      SET MPRF-PRF-88         TO TRUE.                             DESBD992
00238      MOVE ZERO               TO MPRF-EMP-NO                       DESBD992
00239      MOVE MPRF-KEY-AREA      TO MSKL-KEY-AREA.                    DESBD992
00240                                                                   DESBD992
00241      PERFORM S910-START-BROWSE THRU S910-EXIT.                    DESBD992
00242      IF L910-OK-88                                                DESBD992
00243         PERFORM P3100-SCAN-MPRF THRU P3100-EXIT                   DESBD992
00244            UNTIL L910-NO-REC-88                                   DESBD992
00245      ELSE                                                         DESBD992
00246         DISPLAY 'CANNOT READ MPRF'                                DESBD992
00247         GO TO P3000-EXIT                                          DESBD992
00248      END-IF.                                                      DESBD992
00249                                                                   DESBD992
00250  P3000-EXIT.                                                      DESBD992
00251      EXIT.                                                        DESBD992
00252                                                                   DESBD992
00253  P3100-SCAN-MPRF.                                                 DESBD992
00254      MOVE MSKL-REC   TO MPRF-REC.                                 DESBD992
00255      MOVE LOW-VALUES TO EEMH-REC.                                 DESBD992
00256                                                                   DESBD992
00257      SET EEMH-EMH-88         TO TRUE.                             DESBD992
00258      MOVE MPRF-EMP-NO        TO EEMH-EMP-NO                       DESBD992
00259      MOVE ZERO               TO EEMH-REPORTING-DATE               DESBD992
00260                                 EEMH-LOG-NO.                      DESBD992
00261      MOVE SPACES             TO EEMH-DATA-TYPE-CD.                DESBD992
00262                                                                   DESBD992
00263                                                                   DESBD992
00264      PERFORM S935-START-BROWSE THRU S935-EXIT.                    DESBD992
00265      IF L935-OK-88                                                DESBD992
00266         PERFORM P3110-BUILD-AIX  THRU P3110-EXIT                  DESBD992
00267            UNTIL L935-NO-REC-88.                                  DESBD992
00268                                                                   DESBD992
00269      PERFORM S910-READ-NEXT    THRU S910-EXIT.                    DESBD992
00270                                                                   DESBD992
00271  P3100-EXIT.                                                      DESBD992
00272      EXIT.                                                        DESBD992
00273                                                                   DESBD992
00274  P3110-BUILD-AIX.                                                 DESBD992
00275      DISPLAY 'EEMH ' EEMH-EMP-NO.                                 DESBD992
00276                                                                   DESBD992
00277      IF EEMH-LOG-NO = ZERO                                        DESBD992
00278         DISPLAY 'EEMH LOG NO = ZERO '                             DESBD992
00279            EEMH-EMP-NO '  ' EEMH-LOG-NO                           DESBD992
00280         PERFORM S935-READ-NEXT    THRU S935-EXIT                  DESBD992
00281         GO TO P3110-EXIT.                                         DESBD992
00282                                                                   DESBD992
00283      ADD 1                   TO WRK-EEMH-CNT.                     DESBD992
00284                                                                   DESBD992
00285      PERFORM S3100-CONSTRUCT-IPRE THRU S3100-EXIT.                DESBD992
00286                                                                   DESBD992
00287      PERFORM S4000-WRITE-AIX-RECS THRU S4000-EXIT.                DESBD992
00288                                                                   DESBD992
00289      PERFORM S935-READ-NEXT    THRU S935-EXIT.                    DESBD992
00290                                                                   DESBD992
00291  P3110-EXIT.                                                      DESBD992
00292      EXIT.                                                        DESBD992
00293                                                                   DESBD992
00294  T0000-TERMINATE.                                                 DESBD992
00295                                                                   DESBD992
00296      DISPLAY ' '.                                                 DESBD992
00297                                                                   DESBD992
00298      DISPLAY '*** DESBD992 TERMINATION STATISTICS ***'.           DESBD992
00299                                                                   DESBD992
00300      DISPLAY ' '.                                                 DESBD992
00301                                                                   DESBD992
00302      DISPLAY 'EPRF RECORDS READ:          '                       DESBD992
00303         WRK-EPRF-CNT.                                             DESBD992
00304                                                                   DESBD992
00305      DISPLAY 'ELOG RECORDS READ:          '                       DESBD992
00306         WRK-ELOG-CNT.                                             DESBD992
00307                                                                   DESBD992
00308      DISPLAY 'EEMH RECORDS READ:          '                       DESBD992
00309         WRK-EEMH-CNT.                                             DESBD992
00310                                                                   DESBD992
00311      DISPLAY SPACE.                                               DESBD992
00312                                                                   DESBD992
00313      PERFORM S935-CLOSE THRU S935-EXIT.                           DESBD992
00314      PERFORM S910-CLOSE THRU S910-EXIT.                           DESBD992
00315                                                                   DESBD992
00316  T0000-EXIT.                                                      DESBD992
00317      EXIT.                                                        DESBD992
00318      EJECT                                                        DESBD992
00319  ++INCLUDE DTSIP011                                               DESBD992
00320                                                                   DESBD992
00321  ++INCLUDE DTSIP013                                               DESBD992
00322                                                                   DESBD992
00323  S4000-WRITE-AIX-RECS.                                            DESBD992
00324      PERFORM                                                      DESBD992
00325        VARYING AIX-REC-SUB FROM 1 BY 1                            DESBD992
00326        UNTIL AIX-REC-SUB > AIX-REC-MAX                            DESBD992
00327           IF PRE-UPDATE-AIX-REC (AIX-REC-SUB) NOT = LOW-VALUES    DESBD992
00328              MOVE PRE-UPDATE-AIX-REC (AIX-REC-SUB)                DESBD992
00329                 TO AIXO-REC                                       DESBD992
00330              PERFORM S4100-DISPLAY THRU S4100-EXIT                DESBD992
00331              PERFORM S992-WRITE-AIX THRU S992-EXIT                DESBD992
00332           END-IF                                                  DESBD992
00333      END-PERFORM.                                                 DESBD992
00334                                                                   DESBD992
00335  S4000-EXIT.                                                      DESBD992
00336      EXIT.                                                        DESBD992
00337                                                                   DESBD992
00338  S4100-DISPLAY.                                                   DESBD992
00339      MOVE AIXO-REC TO ISKL-REC.                                   DESBD992
00340                                                                   DESBD992
00341      EVALUATE ISKL-REC-TYPE                                       DESBD992
00342         WHEN +11                                                  DESBD992
00343            MOVE ISKL-REC      TO IENM-REC                         DESBD992
00344            DISPLAY 'IENM ' IENM-NAME '  ' IENM-ELF-ID             DESBD992
00345         WHEN +12                                                  DESBD992
00346            MOVE ISKL-REC      TO IEAL-REC                         DESBD992
00347            DISPLAY 'IEAL ' IEAL-LOG-NO-SFX '  ' IEAL-LOG-NO       DESBD992
00348         WHEN +13                                                  DESBD992
00349            MOVE ISKL-REC      TO IEAE-REC                         DESBD992
00350            DISPLAY 'IEAE ' IEAE-ELF-ID '  ' IEAE-LOG-NO           DESBD992
00351         WHEN +14                                                  DESBD992
00352            MOVE ISKL-REC      TO IEBX-REC                         DESBD992
00353            DISPLAY 'IEBX ' IEBX-BOX-NO '  ' IEBX-LOG-NO           DESBD992
00354         WHEN +15                                                  DESBD992
00355            MOVE ISKL-REC      TO IEOP-REC                         DESBD992
00356            DISPLAY 'IEOP ' IEOP-OPID '  ' IEOP-LOG-NO             DESBD992
00357         WHEN +16                                                  DESBD992
00358            MOVE ISKL-REC      TO IESR-REC                         DESBD992
00359            DISPLAY 'IESR ' IESR-ELF-ID '  ' IESR-LOG-NO           DESBD992
00360         WHEN +17                                                  DESBD992
00361            MOVE ISKL-REC      TO IEER-REC                         DESBD992
00362            DISPLAY 'IEER ' IEER-EMP-NO '  ' IEER-LOG-NO           DESBD992
00363         WHEN +18                                                  DESBD992
00364            MOVE ISKL-REC      TO IEET-REC                         DESBD992
00365            DISPLAY 'IEET ' IEET-EMP-NO '  ' IEET-LOG-NO           DESBD992
00366         WHEN +19                                                  DESBD992
00367            MOVE ISKL-REC      TO IEPR-REC                         DESBD992
00368            DISPLAY 'IEPR ' IEPR-ELF-ID                            DESBD992
00369         WHEN OTHER                                                DESBD992
00370            DISPLAY 'UNKNOWN AIX TYPE ' ISKL-REC-TYPE              DESBD992
00371      END-EVALUATE.                                                DESBD992
00372                                                                   DESBD992
00373  S4100-EXIT.                                                      DESBD992
00374      EXIT.                                                        DESBD992
00375                                                                   DESBD992
00376  S910-OPEN-READ.                                                  DESBD992
00377      SET L910-OPEN-READ-88 TO TRUE.                               DESBD992
00378      GO TO S910-MSTR-IO.                                          DESBD992
00379                                                                   DESBD992
00380  S910-START-BROWSE.                                               DESBD992
00381      SET L910-START-BROWSE-88 TO TRUE.                            DESBD992
00382      GO TO S910-MSTR-IO.                                          DESBD992
00383                                                                   DESBD992
00384  S910-READ-NEXT.                                                  DESBD992
00385      SET L910-READ-NEXT-88 TO TRUE.                               DESBD992
00386      GO TO S910-MSTR-IO.                                          DESBD992
00387                                                                   DESBD992
00388  S910-CLOSE.                                                      DESBD992
00389      SET L910-CLOSE-88     TO TRUE.                               DESBD992
00390      GO TO S910-MSTR-IO.                                          DESBD992
00391                                                                   DESBD992
00392  S910-MSTR-IO.                                                    DESBD992
00393      CALL 'DTSBU910' USING L910-LINK-AREA                         DESBD992
00394                            MSKL-REC.                              DESBD992
00395  S910-EXIT.                                                       DESBD992
00396      EXIT.                                                        DESBD992
00397                                                                   DESBD992
00398  S935-OPEN-READ.                                                  DESBD992
00399      SET L935-OPEN-READ-88 TO TRUE.                               DESBD992
00400      GO TO S935-MSTR-IO.                                          DESBD992
00401                                                                   DESBD992
00402  S935-OPEN-UPDATE.                                                DESBD992
00403      SET L935-OPEN-UPDATE-88        TO TRUE.                      DESBD992
00404      GO TO S935-MSTR-IO.                                          DESBD992
00405                                                                   DESBD992
00406  S935-OPEN-UPDATE-NO-AIX.                                         DESBD992
00407      SET L935-OPEN-UPDATE-NO-AIX-88 TO TRUE.                      DESBD992
00408      GO TO S935-MSTR-IO.                                          DESBD992
00409                                                                   DESBD992
00410  S935-READ.                                                       DESBD992
00411      SET L935-READ-88 TO TRUE.                                    DESBD992
00412      GO TO S935-MSTR-IO.                                          DESBD992
00413                                                                   DESBD992
00414  S935-START-BROWSE.                                               DESBD992
00415      SET L935-START-BROWSE-88 TO TRUE.                            DESBD992
00416      GO TO S935-MSTR-IO.                                          DESBD992
00417                                                                   DESBD992
00418  S935-READ-NEXT.                                                  DESBD992
00419      SET L935-READ-NEXT-88 TO TRUE.                               DESBD992
00420      GO TO S935-MSTR-IO.                                          DESBD992
00421                                                                   DESBD992
00422  S935-DELETE.                                                     DESBD992
00423      SET L935-DELETE-88 TO TRUE.                                  DESBD992
00424      GO TO S935-MSTR-IO.                                          DESBD992
00425                                                                   DESBD992
00426  S935-WRITE.                                                      DESBD992
00427      SET L935-WRITE-88 TO TRUE.                                   DESBD992
00428      GO TO S935-MSTR-IO.                                          DESBD992
00429                                                                   DESBD992
00430  S935-REWRITE.                                                    DESBD992
00431      SET L935-REWRITE-88 TO TRUE.                                 DESBD992
00432      GO TO S935-MSTR-IO.                                          DESBD992
00433                                                                   DESBD992
00434  S935-CLOSE.                                                      DESBD992
00435      SET L935-CLOSE-88     TO TRUE.                               DESBD992
00436      GO TO S935-MSTR-IO.                                          DESBD992
00437                                                                   DESBD992
00438  S935-MSTR-IO.                                                    DESBD992
00439      CALL 'DTSBU935' USING L935-LINK-AREA                         DESBD992
00440                            ESKL-REC.                              DESBD992
00441  S935-EXIT.                                                       DESBD992
00442      EXIT.                                                        DESBD992
00443                                                                   DESBD992
00444  S992-WRITE-AIX.                                                  DESBD992
00445      WRITE AIXO-REC.                                              DESBD992
00446                                                                   DESBD992
00447      IF FILE-OK-88                                                DESBD992
00448         NEXT SENTENCE                                             DESBD992
00449      ELSE                                                         DESBD992
00450         PERFORM S999-ABEND  THRU S999-EXIT.                       DESBD992
00451                                                                   DESBD992
00452  S992-EXIT.                                                       DESBD992
00453      EXIT.                                                        DESBD992
00454                                                                   DESBD992
00455      SKIP3                                                        DESBD992
00456  S999-ABEND.                                                      DESBD992
00457      CALL 'DTSBU999' USING WRK-ABEND-CD.                          DESBD992
00458  S999-EXIT.                                                       DESBD992
00459      EXIT.                                                        DESBD992
