00001  IDENTIFICATION DIVISION.                                         05/22/01
00002  PROGRAM-ID.             DESBD120.                                DESBD120
00003  AUTHOR.                 TRW.                                        LV001
00004  DATE-WRITTEN.           MARCH 2001.                              DESBD120
00005  DATE-COMPILED.                                                   DESBD120
00006      SKIP3                                                        DESBD120
00007 *****                                                             DESBD120
00008 *                                                                 DESBD120
00009 *    FUNCTION:  PRIOR TO RERUNNING THE PROCESS THAT BUILDS        DESBD120
00010 *               W4 TRANSACTIONS FOR WAGE TAPES, IT IS NECESSARY   DESBD120
00011 *               TO DELETE ANY W4 AND ELECTRONIC MEDIA RECORDS     DESBD120
00012 *               CREATED DURING PRIOR RUNS.                        DESBD120
00013 *                                                                 DESBD120
00014 *               THIS JOBS DELETES ELECTRONIC MEDIA RECORDS        DESBD120
00015 *               FOR THE LOG NUMBER ENTERED AS A PARM.             DESBD120
00016 *                                                                 DESBD120
00017 *               ELECTRONIC MEDIA TRACKING SYSTEM                  DESBD120
00018 *                                                                 DESBD120
00019 *****                                                             DESBD120
00020                                                                   DESBD120
00021 ******************************************************************DESBD120
00022 * MODIFICATION HISTORY:                                          *DESBD120
00023 *                                                                *DESBD120
00024 * 04-26-2001 INITIAL DEVELOPMENT                                 *DESBD120
00025 *            REFERENCE RFP #              AUTHOR OF CHANGE - RW1 *DESBD120
00026 *                                                                *DESBD120
00027 * MM-DD-YYYY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX *DESBD120
00028 *            XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX *DESBD120
00029 *            REFERENCE RFP #****          AUTHOR OF CHANGE - *** *DESBD120
00030 ******************************************************************DESBD120
00031                                                                   DESBD120
00032  ENVIRONMENT DIVISION.                                            DESBD120
00033                                                                   DESBD120
00034  CONFIGURATION SECTION.                                           DESBD120
00035  SPECIAL-NAMES. C01 IS TOP-OF-PAGE.                               DESBD120
00036                                                                   DESBD120
00037  INPUT-OUTPUT SECTION.                                            DESBD120
00038                                                                   DESBD120
00039  FILE-CONTROL.                                                    DESBD120
00040      SELECT EMH-MSG-FILE ASSIGN TO BD120EMI                       DESBD120
00041             FILE STATUS IS EMH-MSG-FILE-STATUS.                   DESBD120
00042                                                                   DESBD120
00043      SELECT TEMP-MSG-FILE ASSIGN TO BD120EMO                      DESBD120
00044             FILE STATUS IS TEMP-MSG-FILE-STATUS.                  DESBD120
00045                                                                   DESBD120
00046  DATA DIVISION.                                                   DESBD120
00047                                                                   DESBD120
00048  FILE SECTION.                                                    DESBD120
00049                                                                   DESBD120
00050 ************************************************************      DESBD120
00051 *    REPORT FILE RECORD PASSED FROM BENEFITS UPDATE.              DESBD120
00052 ************************************************************      DESBD120
00053  FD  EMH-MSG-FILE                                                 DESBD120
00054      RECORDING MODE IS V                                          DESBD120
00055      BLOCK CONTAINS 0 CHARACTERS                                  DESBD120
00056      RECORD CONTAINS 1 TO 4089 CHARACTERS                         DESBD120
00057      LABEL RECORDS ARE STANDARD.                                  DESBD120
00058                                                                   DESBD120
00059  01  EMH-MSG-REC.                                                 DESBD120
00060      05 EMH-MSG-DATA                                              DESBD120
00061            OCCURS 1 TO 4089 TIMES                                 DESBD120
00062               DEPENDING ON WS-REC-LEN  PIC X(01).                 DESBD120
00063                                                                   DESBD120
00064  FD  TEMP-MSG-FILE                                                DESBD120
00065      RECORDING MODE IS V                                          DESBD120
00066      BLOCK CONTAINS 0 CHARACTERS                                  DESBD120
00067      RECORD CONTAINS 1 TO 4089 CHARACTERS                         DESBD120
00068      LABEL RECORDS ARE STANDARD.                                  DESBD120
00069                                                                   DESBD120
00070  01  TEMP-MSG-REC.                                                DESBD120
00071      05 TEMP-MSG-DATA                                             DESBD120
00072            OCCURS 1 TO 4089 TIMES                                 DESBD120
00073               DEPENDING ON WS-REC-LEN  PIC X(01).                 DESBD120
00074                                                                   DESBD120
00075  WORKING-STORAGE SECTION.                                         DESBD120
000755 77  PAN-VALET PICTURE X(24) VALUE '001DESBD120  05/22/01'.       DESBD120
00076                                                                   DESBD120
00077  01  WRK-AREA.                                                    DESBD120
00078      05  ABEND-CODE                  PIC S9(04) COMP VALUE +120.  DESBD120
00079      05  ABEND-MOD                   PIC  X(08)                   DESBD120
00080                                  VALUE 'DTSBU999'.                DESBD120
00081                                                                   DESBD120
00082      05  EMH-MSG-FILE-STATUS         PIC X(02) VALUE SPACES.      DESBD120
00083          88  EMH-MSG-FILE-OK-88  VALUE ZERO.                      DESBD120
00084          88  EMH-MSG-FILE-EOF-88 VALUE '10'.                      DESBD120
00085                                                                   DESBD120
00086      05  TEMP-MSG-FILE-STATUS        PIC X(02) VALUE SPACES.      DESBD120
00087          88  TEMP-MSG-FILE-OK-88 VALUE ZERO.                      DESBD120
00088          88  TEMP-MSG-FILE-EOF-88 VALUE '10'.                     DESBD120
00089                                                                   DESBD120
00090      05  WRK-EMH-MSG-READ-CNT        PIC  9(07) COMP-3.           DESBD120
00091      05  WRK-EMH-MSG-DELETE-CNT      PIC  9(07) COMP-3.           DESBD120
00092      05  WRK-EMH-MSG-WRITE-CNT       PIC  9(07) COMP-3.           DESBD120
00093                                                                   DESBD120
00094  01  WRK-VARIABLES.                                               DESBD120
00095                                                                   DESBD120
00096      05  WRK-TRACE-IND           PIC  X(01)     VALUE SPACE.      DESBD120
00097                                                                   DESBD120
00098      05  WRK-LOG-NO              PIC  9(10)     VALUE  0.         DESBD120
00099      05  FILLER REDEFINES WRK-LOG-NO.                             DESBD120
00100          10  WRK-LOG-NO-PFX      PIC  9(04).                      DESBD120
00101          10  WRK-LOG-NO-SFX      PIC  9(06).                      DESBD120
00102                                                                   DESBD120
00103      05  WRK-INPUT-FILE-EMPTY-IND    PIC  X(01) VALUE ' '.        DESBD120
00104          88 WRK-INPUT-FILE-EMPTY-YES      VALUE 'Y'.              DESBD120
00105          88 WRK-INPUT-FILE-EMPTY-NO       VALUE 'N'.              DESBD120
00106                                                                   DESBD120
00107      05  WRK-FATAL-ERROR-IND         PIC  X(01) VALUE ' '.        DESBD120
00108          88 WRK-FATAL-ERROR-YES           VALUE 'Y'.              DESBD120
00109          88 WRK-FATAL-ERROR-NO            VALUE 'N'.              DESBD120
00110                                                                   DESBD120
00111      05  WRK-MOD-NAME            PIC  X(08) VALUE 'DESBD120'.     DESBD120
00112                                                                   DESBD120
00113  01  WS-EMH-MSG-REC.                                              DESBD120
00114      05  WS-REC-LEN                  PIC S9(04) COMP VALUE +0.    DESBD120
00115      05  WS-LOG-NO                   PIC  9(10).                  DESBD120
00116      05  WS-REC-TYPE                 PIC  X(03).                  DESBD120
00117          88 WS-LOG-88                     VALUE 'LOG'.            DESBD120
00118          88 WS-MSG-88                     VALUE 'MSG'.            DESBD120
00119          88 WS-EMH-88                     VALUE 'EMH'.            DESBD120
00120      05  WS-DATA                     PIC  X(4092).                DESBD120
00121                                                                   DESBD120
00122  01  L921-LINK-AREA.                                              DESBD120
00123  ++INCLUDE DTSIL921                                               DESBD120
00124      EJECT                                                        DESBD120
00125  01  ISKL-REC.                                                    DESBD120
00126  ++INCLUDE DTSIISKL                                               DESBD120
00127      EJECT                                                        DESBD120
00128                                                                   DESBD120
00129  01  IEAL-REC.                                                    DESBD120
00130  ++INCLUDE DTSIIEAL                                               DESBD120
00131      EJECT                                                        DESBD120
00132                                                                   DESBD120
00133  01  L935-LINK-AREA.                                              DESBD120
00134  ++INCLUDE DTSIL935                                               DESBD120
00135      EJECT                                                        DESBD120
00136                                                                   DESBD120
00137  01  ESKL-REC.                                                    DESBD120
00138  ++INCLUDE DTSIESKL                                               DESBD120
00139      EJECT                                                        DESBD120
00140                                                                   DESBD120
00141  01  EPRF-REC.                                                    DESBD120
00142  ++INCLUDE DTSIEPRF                                               DESBD120
00143      EJECT                                                        DESBD120
00144                                                                   DESBD120
00145  01  ELOG-REC.                                                    DESBD120
00146  ++INCLUDE DTSIELOG                                               DESBD120
00147      EJECT                                                        DESBD120
00148                                                                   DESBD120
00149  01  EMSG-REC.                                                    DESBD120
00150  ++INCLUDE DTSIEMSG                                               DESBD120
00151      EJECT                                                        DESBD120
00152                                                                   DESBD120
00153  01  EEMH-REC.                                                    DESBD120
00154  ++INCLUDE DTSIEEMH                                               DESBD120
00155      EJECT                                                        DESBD120
00156                                                                   DESBD120
00157  LINKAGE SECTION.                                                 DESBD120
00158  01  PARM-AREA.                                                   DESBD120
00159      05  PARM-LENGTH                PIC S9(04) COMP.              DESBD120
00160      05  PARM-LOG-NO                PIC  9(06).                   DESBD120
00161                                                                   DESBD120
00162  PROCEDURE DIVISION USING PARM-AREA.                              DESBD120
00163                                                                   DESBD120
00164  PROC0000-MAIN.                                                   DESBD120
00165                                                                   DESBD120
00166      PERFORM INIT0000-INITIATE THRU INIT0000-EXIT.                DESBD120
00167                                                                   DESBD120
00168      IF WRK-INPUT-FILE-EMPTY-NO                                   DESBD120
00169         PERFORM PROC1000-WRITE-SCAN-FILE THRU PROC1000-EXIT       DESBD120
00170            UNTIL EMH-MSG-FILE-EOF-88.                             DESBD120
00171                                                                   DESBD120
00172      PERFORM TERM0000-TERMINATE THRU TERM0000-EXIT.               DESBD120
00173                                                                   DESBD120
00174  PROC0000-EXIT.                                                   DESBD120
00175                                                                   DESBD120
00176      GOBACK.                                                      DESBD120
00177                                                                   DESBD120
00178  INIT0000-INITIATE.                                               DESBD120
00179                                                                   DESBD120
00180      PERFORM INIT1000-GET-PARM      THRU INIT1000-EXIT.           DESBD120
00181                                                                   DESBD120
00182      PERFORM INIT2000-INIT-WRK-DATA THRU INIT2000-EXIT.           DESBD120
00183      PERFORM INIT3000-OPEN-FILES    THRU INIT3000-EXIT.           DESBD120
00184      PERFORM INIT4000-READ-FIRST    THRU INIT4000-EXIT.           DESBD120
00185                                                                   DESBD120
00186  INIT0000-EXIT.                                                   DESBD120
00187      EXIT.                                                        DESBD120
00188                                                                   DESBD120
00189 ******************************************************************DESBD120
00190 *        EDIT PARM-LOG AND CONVERTED TO 10 BYTES LOG NUMBER.     *DESBD120
00191 ******************************************************************DESBD120
00192  INIT1000-GET-PARM.                                               DESBD120
00193      IF PARM-LENGTH NOT = +6                                      DESBD120
00194         DISPLAY 'INVALID PARM LENGTH ' PARM-LENGTH                DESBD120
00195         PERFORM SERV9999-ABEND THRU SERV9999-EXIT.                DESBD120
00196                                                                   DESBD120
00197      IF PARM-LOG-NO NOT NUMERIC                                   DESBD120
00198         DISPLAY 'INVALID LOG NUMBER  '                            DESBD120
00199         PERFORM SERV9999-ABEND THRU SERV9999-EXIT.                DESBD120
00200                                                                   DESBD120
00201      MOVE ZEROS          TO WRK-LOG-NO.                           DESBD120
00202      MOVE PARM-LOG-NO    TO WRK-LOG-NO-SFX.                       DESBD120
00203                                                                   DESBD120
00204      MOVE ' ' TO WRK-TRACE-IND.                                   DESBD120
00205      MOVE WRK-TRACE-IND  TO L921-TRACE-IND                        DESBD120
00206                             L935-TRACE-IND.                       DESBD120
00207      MOVE WRK-MOD-NAME   TO L921-MOD-NAME                         DESBD120
00208                             L935-MOD-NAME.                        DESBD120
00209      PERFORM S921-OPEN-READ THRU S921-EXIT.                       DESBD120
00210      PERFORM S935-OPEN-READ THRU S935-EXIT.                       DESBD120
00211                                                                   DESBD120
00212      PERFORM SERV1000-READ-ELOG        THRU SERV1000-EXIT.        DESBD120
00213      IF WRK-FATAL-ERROR-YES                                       DESBD120
00214         DISPLAY '>>>  DESBD200 ABENDING   <<<'                    DESBD120
00215         DISPLAY '>>>  INVALID LOG NUMBER     '  PARM-LOG-NO       DESBD120
00216         PERFORM SERV9999-ABEND THRU SERV9999-EXIT.                DESBD120
00217                                                                   DESBD120
00218  INIT1000-EXIT.                                                   DESBD120
00219      EXIT.                                                        DESBD120
00220                                                                   DESBD120
00221  INIT2000-INIT-WRK-DATA.                                          DESBD120
00222                                                                   DESBD120
00223      MOVE ZERO TO  WRK-EMH-MSG-READ-CNT                           DESBD120
00224                    WRK-EMH-MSG-DELETE-CNT                         DESBD120
00225                    WRK-EMH-MSG-WRITE-CNT.                         DESBD120
00226                                                                   DESBD120
00227  INIT2000-EXIT.                                                   DESBD120
00228      EXIT.                                                        DESBD120
00229                                                                   DESBD120
00230  INIT3000-OPEN-FILES.                                             DESBD120
00231                                                                   DESBD120
00232      OPEN INPUT EMH-MSG-FILE.                                     DESBD120
00233                                                                   DESBD120
00234      IF NOT EMH-MSG-FILE-OK-88                                    DESBD120
00235         DISPLAY 'EMH-LOG FILE OPEN ERROR: ' EMH-MSG-FILE-STATUS   DESBD120
00236         PERFORM SERV9999-ABEND THRU SERV9999-EXIT.                DESBD120
00237                                                                   DESBD120
00238      OPEN OUTPUT TEMP-MSG-FILE.                                   DESBD120
00239                                                                   DESBD120
00240      IF NOT TEMP-MSG-FILE-OK-88                                   DESBD120
00241         DISPLAY 'TEMP-LOG FILE OPEN ERROR: ' TEMP-MSG-FILE-STATUS DESBD120
00242         PERFORM SERV9999-ABEND THRU SERV9999-EXIT.                DESBD120
00243                                                                   DESBD120
00244  INIT3000-EXIT.                                                   DESBD120
00245      EXIT.                                                        DESBD120
00246                                                                   DESBD120
00247  INIT4000-READ-FIRST.                                             DESBD120
00248                                                                   DESBD120
00249      READ EMH-MSG-FILE INTO WS-EMH-MSG-REC.                       DESBD120
00250                                                                   DESBD120
00251      IF EMH-MSG-FILE-OK-88                                        DESBD120
00252           SET WRK-INPUT-FILE-EMPTY-NO  TO TRUE                    DESBD120
00253           ADD 1 TO WRK-EMH-MSG-READ-CNT                           DESBD120
00254      ELSE                                                         DESBD120
00255        IF EMH-MSG-FILE-EOF-88                                     DESBD120
00256           DISPLAY 'INPUT FILE IS EMPTY: '                         DESBD120
00257              EMH-MSG-FILE-STATUS                                  DESBD120
00258           SET WRK-INPUT-FILE-EMPTY-YES TO TRUE                    DESBD120
00259        END-IF                                                     DESBD120
00260      END-IF.                                                      DESBD120
00261                                                                   DESBD120
00262  INIT4000-EXIT.                                                   DESBD120
00263      EXIT.                                                        DESBD120
00264                                                                   DESBD120
00265  PROC1000-WRITE-SCAN-FILE.                                        DESBD120
00266                                                                   DESBD120
00267      IF WS-LOG-NO = WRK-LOG-NO                                    DESBD120
00268         ADD 1 TO WRK-EMH-MSG-DELETE-CNT                           DESBD120
00269         GO TO PROC1000-READ-NEXT                                  DESBD120
00270      ELSE                                                         DESBD120
00271         PERFORM SERV1300-WRITE-TEMP THRU SERV1300-EXIT            DESBD120
00272      END-IF.                                                      DESBD120
00273                                                                   DESBD120
00274  PROC1000-READ-NEXT.                                              DESBD120
00275      PERFORM SERV1200-READ-NEXT THRU SERV1200-EXIT.               DESBD120
00276                                                                   DESBD120
00277  PROC1000-EXIT.                                                   DESBD120
00278      EXIT.                                                        DESBD120
00279                                                                   DESBD120
00280  TERM0000-TERMINATE.                                              DESBD120
00281                                                                   DESBD120
00282      PERFORM TERM1000-DISPLAY-SUMMARY THRU TERM1000-EXIT.         DESBD120
00283      PERFORM TERM2000-CLOSE-FILES     THRU TERM2000-EXIT.         DESBD120
00284                                                                   DESBD120
00285  TERM0000-EXIT.                                                   DESBD120
00286      EXIT.                                                        DESBD120
00287                                                                   DESBD120
00288  TERM1000-DISPLAY-SUMMARY.                                        DESBD120
00289                                                                   DESBD120
00290      DISPLAY ' '.                                                 DESBD120
00291                                                                   DESBD120
00292      DISPLAY '*** DESBD120 TERMINATION STATISTICS ***'.           DESBD120
00293                                                                   DESBD120
00294      DISPLAY ' '.                                                 DESBD120
00295                                                                   DESBD120
00296      DISPLAY ' DESBD120 TOTAL INPUT RECORDS READ     : '          DESBD120
00297         WRK-EMH-MSG-READ-CNT.                                     DESBD120
00298                                                                   DESBD120
00299      DISPLAY ' '.                                                 DESBD120
00300                                                                   DESBD120
00301      DISPLAY ' DESBD120 TOTAL LOG  RECORDS WRITTEN   : '          DESBD120
00302         WRK-EMH-MSG-WRITE-CNT.                                    DESBD120
00303                                                                   DESBD120
00304      DISPLAY ' '.                                                 DESBD120
00305                                                                   DESBD120
00306      DISPLAY ' DESBD120 TOTAL LOG  RECORDS DELETE    : '          DESBD120
00307         WRK-EMH-MSG-DELETE-CNT.                                   DESBD120
00308                                                                   DESBD120
00309  TERM1000-EXIT.                                                   DESBD120
00310      EXIT.                                                        DESBD120
00311                                                                   DESBD120
00312  TERM2000-CLOSE-FILES.                                            DESBD120
00313                                                                   DESBD120
00314      CLOSE EMH-MSG-FILE                                           DESBD120
00315            TEMP-MSG-FILE.                                         DESBD120
00316                                                                   DESBD120
00317  TERM2000-EXIT.                                                   DESBD120
00318      EXIT.                                                        DESBD120
00319                                                                   DESBD120
00320  SERV1000-READ-ELOG.                                              DESBD120
00321                                                                   DESBD120
00322      MOVE LOW-VALUES                   TO IEAL-KEY-AREA.          DESBD120
00323      SET IEAL-EAL-88                   TO TRUE.                   DESBD120
00324      MOVE WRK-LOG-NO-SFX               TO IEAL-LOG-NO-SFX.        DESBD120
00325      MOVE ZEROS                        TO IEAL-LOG-NO.            DESBD120
00326      MOVE IEAL-REC                     TO ISKL-REC.               DESBD120
00327                                                                   DESBD120
00328      PERFORM S921-START-BROWSE         THRU S921-EXIT.            DESBD120
00329                                                                   DESBD120
00330      IF L921-OK-88                                                DESBD120
00331         MOVE ISKL-REC                  TO IEAL-REC                DESBD120
00332         IF IEAL-LOG-NO-SFX = WRK-LOG-NO-SFX                       DESBD120
00333            MOVE IEAL-LOG-NO TO WRK-LOG-NO                         DESBD120
00334         ELSE                                                      DESBD120
00335            DISPLAY 'INVALID READ PARM-LOG-NBR: ' PARM-LOG-NO      DESBD120
00336            SET WRK-FATAL-ERROR-YES        TO TRUE                 DESBD120
00337      ELSE                                                         DESBD120
00338         DISPLAY 'INVALID READ PARM-LOG-NO: ' PARM-LOG-NO          DESBD120
00339         SET WRK-FATAL-ERROR-YES        TO TRUE                    DESBD120
00340      END-IF.                                                      DESBD120
00341                                                                   DESBD120
00342  SERV1000-EXIT.                                                   DESBD120
00343      EXIT.                                                        DESBD120
00344                                                                   DESBD120
00345                                                                   DESBD120
00346  SERV1200-READ-NEXT.                                              DESBD120
00347                                                                   DESBD120
00348      READ EMH-MSG-FILE INTO WS-EMH-MSG-REC.                       DESBD120
00349                                                                   DESBD120
00350      IF EMH-MSG-FILE-OK-88                                        DESBD120
00351           ADD 1 TO WRK-EMH-MSG-READ-CNT                           DESBD120
00352      ELSE                                                         DESBD120
00353        IF EMH-MSG-FILE-EOF-88                                     DESBD120
00354           NEXT SENTENCE                                           DESBD120
00355        ELSE                                                       DESBD120
00356           DISPLAY 'INPUT FILE READ ERROR: '                       DESBD120
00357              EMH-MSG-FILE-STATUS                                  DESBD120
00358              '  RECS READ ' WRK-EMH-MSG-READ-CNT                  DESBD120
00359           PERFORM SERV9999-ABEND THRU SERV9999-EXIT               DESBD120
00360        END-IF                                                     DESBD120
00361      END-IF.                                                      DESBD120
00362                                                                   DESBD120
00363  SERV1200-EXIT.                                                   DESBD120
00364      EXIT.                                                        DESBD120
00365                                                                   DESBD120
00366  SERV1300-WRITE-TEMP.                                             DESBD120
00367                                                                   DESBD120
00368      WRITE TEMP-MSG-REC FROM WS-EMH-MSG-REC.                      DESBD120
00369                                                                   DESBD120
00370      IF TEMP-MSG-FILE-OK-88                                       DESBD120
00371           ADD 1 TO WRK-EMH-MSG-WRITE-CNT                          DESBD120
00372      ELSE                                                         DESBD120
00373           DISPLAY 'TEMP FILE WRITE ERROR: '                       DESBD120
00374              TEMP-MSG-FILE-STATUS                                 DESBD120
00375              '  RECS WRITE ' WRK-EMH-MSG-WRITE-CNT                DESBD120
00376           PERFORM SERV9999-ABEND THRU SERV9999-EXIT               DESBD120
00377      END-IF.                                                      DESBD120
00378                                                                   DESBD120
00379  SERV1300-EXIT.                                                   DESBD120
00380      EXIT.                                                        DESBD120
00381                                                                   DESBD120
00382  SERV9999-ABEND.                                                  DESBD120
00383      DISPLAY '****  DESBD120 ABENDING '.                          DESBD120
00384      CALL ABEND-MOD USING ABEND-CODE.                             DESBD120
00385  SERV9999-EXIT.                                                   DESBD120
00386      EXIT.                                                        DESBD120
00387                                                                   DESBD120
00388  S921-OPEN-UPDATE.                                                DESBD120
00389      SET L921-OPEN-UPDATE-88  TO TRUE.                            DESBD120
00390      GO TO S921-AIX-IO.                                           DESBD120
00391                                                                   DESBD120
00392  S921-OPEN-READ.                                                  DESBD120
00393      SET L921-OPEN-READ-88    TO TRUE.                            DESBD120
00394      GO TO S921-AIX-IO.                                           DESBD120
00395                                                                   DESBD120
00396  S921-READ.                                                       DESBD120
00397      SET L921-READ-88         TO TRUE.                            DESBD120
00398      GO TO S921-AIX-IO.                                           DESBD120
00399                                                                   DESBD120
00400  S921-START-BROWSE.                                               DESBD120
00401      SET L921-START-BROWSE-88 TO TRUE.                            DESBD120
00402      GO TO S921-AIX-IO.                                           DESBD120
00403                                                                   DESBD120
00404  S921-READ-NEXT.                                                  DESBD120
00405      SET L921-READ-NEXT-88    TO TRUE.                            DESBD120
00406      GO TO S921-AIX-IO.                                           DESBD120
00407                                                                   DESBD120
00408  S921-DELETE.                                                     DESBD120
00409      SET L921-DELETE-88       TO TRUE.                            DESBD120
00410      GO TO S921-AIX-IO.                                           DESBD120
00411                                                                   DESBD120
00412  S921-CLOSE.                                                      DESBD120
00413      SET L921-CLOSE-88        TO TRUE.                            DESBD120
00414      GO TO S921-AIX-IO.                                           DESBD120
00415                                                                   DESBD120
00416  S921-AIX-IO.                                                     DESBD120
00417      CALL 'DTSBU921' USING L921-LINK-AREA                         DESBD120
00418                            ISKL-REC.                              DESBD120
00419  S921-EXIT.                                                       DESBD120
00420      EXIT.                                                        DESBD120
00421                                                                   DESBD120
00422                                                                   DESBD120
00423  S935-OPEN-READ.                                                  DESBD120
00424      SET L935-OPEN-READ-88    TO TRUE.                            DESBD120
00425      GO TO S935-ELF-IO.                                           DESBD120
00426                                                                   DESBD120
00427  S935-READ.                                                       DESBD120
00428      SET L935-READ-88         TO TRUE.                            DESBD120
00429      GO TO S935-ELF-IO.                                           DESBD120
00430                                                                   DESBD120
00431  S935-START-BROWSE.                                               DESBD120
00432      SET L935-START-BROWSE-88 TO TRUE.                            DESBD120
00433      GO TO S935-ELF-IO.                                           DESBD120
00434                                                                   DESBD120
00435  S935-READ-NEXT.                                                  DESBD120
00436      SET L935-READ-NEXT-88    TO TRUE.                            DESBD120
00437      GO TO S935-ELF-IO.                                           DESBD120
00438                                                                   DESBD120
00439  S935-CLOSE.                                                      DESBD120
00440      SET L935-CLOSE-88        TO TRUE.                            DESBD120
00441      GO TO S935-ELF-IO.                                           DESBD120
00442                                                                   DESBD120
00443  S935-ELF-IO.                                                     DESBD120
00444      CALL 'DTSBU935' USING L935-LINK-AREA                         DESBD120
00445                            ESKL-REC.                              DESBD120
00446  S935-EXIT.                                                       DESBD120
00447      EXIT.                                                        DESBD120
00448                                                                   DESBD120
