IDENTIFICATION DIVISION.
       PROGRAM-ID. ENUXSITE.
       ENVIRONMENT DIVISION.
       INPUT-OUTPUT SECTION.
       FILE-CONTROL.
           SELECT SYSTEM-DATA ASSIGN TO SYSDATA
                  FILE STATUS IS WS-FILE-STATUS.
      *
       DATA DIVISION.
       FILE SECTION.
      *
       FD  SYSTEM-DATA
           RECORDING MODE IS F
                 BLOCK CONTAINS 0 RECORDS
           RECORD CONTAINS  80 CHARACTERS
           LABEL RECORDS ARE STANDARD
           DATA RECORD IS SYST-REC.
       01  SYST-REC .
           03 FILLER                   PIC X(02).
           03 SYST-NAME                PIC X(08).
           03 FILLER                   PIC X(70).
      *
       WORKING-STORAGE SECTION.
       77 WS-FILE-STATUS        PIC X(2) VALUE SPACES   .
      *
       01 WS-SYSTEM-TABLE.
          03 FILLER                    PIC X(08) VALUE 'M290    '.
          03 FILLER                    PIC X(08) VALUE 'C1DEFTUC' .
          03 FILLER                    PIC X(08) VALUE 'TUCSON  '.
          03 FILLER                    PIC X(08) VALUE 'C1DEFTUC' .
          03 FILLER                    PIC X(08) VALUE 'S690    '.
          03 FILLER                    PIC X(08) VALUE 'C1DEFLTS' .
       01 WS-SYSTEM-TABLE-RE REDEFINES WS-SYSTEM-TABLE.
          03 WS-SYSTEM-ENTRY    OCCURS 3 TIMES INDEXED BY WS-INX .
             05  WS-SYSTEM-NAME        PIC X(08).
             05  WS-ENDEVOR-TABLE      PIC X(08).
      *
       LINKAGE SECTION.
       01  LS-PARM-FROM-ENDEVOR.
           05  LS-TABLE-NAME         PIC X(8).
           05  LS-USER-ID            PIC X(8).
      *
       PROCEDURE DIVISION USING LS-PARM-FROM-ENDEVOR.
           OPEN INPUT SYSTEM-DATA .
      *    DISPLAY 'FILE STATUS AFTER OPEN IS '
      *            WS-FILE-STATUS .
           IF WS-FILE-STATUS > '00' THEN GOBACK.
           READ SYSTEM-DATA AT END GOBACK.
      *    DISPLAY 'FILE STATUS AFTER READ IS '
      *            WS-FILE-STATUS .
           IF WS-FILE-STATUS > '00' THEN GOBACK.
      *    DISPLAY 'MY SYSTEM IS ' SYST-NAME .
           SET WS-INX TO 1.
           SEARCH WS-SYSTEM-ENTRY VARYING WS-INX
               WHEN WS-SYSTEM-NAME(WS-INX) = SYST-NAME
      *            DISPLAY WS-ENDEVOR-TABLE(WS-INX)
                   MOVE    WS-ENDEVOR-TABLE(WS-INX)
                                TO LS-TABLE-NAME
           END-SEARCH

           GOBACK.