IDENTIFICATION DIVISION.
       PROGRAM-ID. ENUXSITE.
       ENVIRONMENT DIVISION.
       INPUT-OUTPUT SECTION.
       FILE-CONTROL.
           SELECT SELECTN ASSIGN TO SELECTN.
      *
       DATA DIVISION.
      *
       FILE SECTION.
      *
       FD  SELECTN
           RECORDING MODE IS F
                 BLOCK CONTAINS 0 RECORDS
           RECORD CONTAINS  80 CHARACTERS
           LABEL RECORDS ARE STANDARD
           DATA RECORD IS SLCT-REC.
       01  SLCT-REC.
           03  FILLER                  PIC X(02).
           03  SLCT-DEFAULTS-TABLE     PIC X(08).
           03  FILLER                  PIC X(70).

       LINKAGE SECTION.
       01 LS-PARM-FROM-CA-ENDEVOR.
          05 LS-TABLE-NAME PIC X(8).
          05 LS-USER-ID PIC X(8).

       PROCEDURE DIVISION USING LS-PARM-FROM-CA-ENDEVOR.

           OPEN INPUT SELECTN .
           READ SELECTN
              AT END
                MOVE 'C1DEFLTS' TO LS-TABLE-NAME
              NOT AT END
                MOVE SLCT-DEFAULTS-TABLE TO LS-TABLE-NAME.

           CLOSE SELECTN.
           GOBACK.