IDENTIFICATION DIVISION.
 PROGRAM-ID.    CTESTP_READ2.
 ENVIRONMENT DIVISION.
*  TEST READ VERB FORMAT 2 (RELATIVE).

 CONFIGURATION SECTION.
 INPUT-OUTPUT SECTION.
 FILE-CONTROL.
     SELECT GOZOUT
            ASSIGN TO "FILLER "
            ORGANIZATION IS RELATIVE
            ACCESS       IS RANDOM
              RELATIVE KEY IS WS-RECORD-NO
            FILE STATUS  IS FS.

 DATA DIVISION.
 FILE SECTION.

 FD  GOZOUT
     LABEL RECORD IS STANDARD.
 01  GOZOUT-REC.
     03 X-IND                        PIC  9(03).
     03 DESCRIPTION                  PIC  X(20).
     03 FILLER                       PIC  X(57).

 WORKING-STORAGE SECTION.
 01  FS                              PIC  9(02).
 01  WS-COUNTERS.
     05 WS-TEST-COUNTER              PIC  9(4).
 01  WS-DATA                         PIC X(80).
 01  WS-NAME                         PIC X(80) VALUE "./input.dat" .
 01  WS-RECORD-NO                    PIC 9(9) COMP VALUE 0 .

 PROCEDURE DIVISION.
 0000-MAIN.
      OPEN OUTPUT GOZOUT.
      MOVE 1001 TO WS-RECORD-NO
      READ GOZOUT NEXT RECORD INTO WS-DATA
          INVALID KEY
              MOVE "FAIL" TO DESCRIPTION
*          NOT INVALID KEY
*              MOVE "PASS" TO DESCRIPTION
      END-READ.
      CLOSE GOZOUT.
      STOP RUN.