IDENTIFICATION DIVISION.
 PROGRAM-ID.    TEST13.
 ENVIRONMENT DIVISION.

 CONFIGURATION SECTION. 
 SPECIAL-NAMES.
     DECIMAL-POINT IS COMMA.
 INPUT-OUTPUT SECTION.
 FILE-CONTROL.
  SELECT TEST-FILE 
      ASSIGN TO "idx_test.dat" 
      ORGANIZATION IS INDEXED
      ACCESS MODE  IS SEQUENTIAL
      RECORD KEY IS TR-KEY
      FILE STATUS  IS TR-FS.

 DATA DIVISION.
 FILE SECTION.
 FD  TEST-FILE
     LABEL RECORDS ARE STANDARD.
 01  TEST-REC.
     05  TR-KEY                 PIC  9(03).
     05  TR-REC-TYPE            PIC  X(02).
     05  TR-DESCRIPTION         PIC  X(60).
 
 WORKING-STORAGE SECTION.
  01 TR-FS             PIC 9(02).
  01 W-COUNTER         PIC 9(15).
  01 REM               PIC 9(5).
  01 W01-SWITCHES      PIC X(03).
     88 W01-END        VALUE "YES".
     88 W01-MORE       VALUE "NO".
 
 PROCEDURE DIVISION.
 0000-PROGRAM-ENTRY.
    PERFORM A000-INITIALIZE.

    PERFORM C000-PROCESS THRU C000-EXIT 
       UNTIL W01-END.

    PERFORM B000-HOUSEKEEPING.

    STOP RUN.


 A000-INITIALIZE.
    OPEN INPUT TEST-FILE.
    IF TR-FS NOT EQUAL ZERO
    THEN
       DISPLAY "Could not open input TEST-FILE FS=" TR-FS 
       STOP RUN
    END-IF.
    DISPLAY "ISO2:(" TR-FS "):(00):S/INDEX READ OPEN".
    MOVE "NO" TO W01-SWITCHES.
    MOVE 1                TO W-COUNTER.

 B000-HOUSEKEEPING.
    CLOSE TEST-FILE.
    DISPLAY "ISC2:(" TR-FS "):(00):S/INDEX READ CLOSE".

 C000-PROCESS.
    MOVE W-COUNTER TO TR-KEY.

    READ TEST-FILE 
       AT END 
       MOVE "YES" TO W01-SWITCHES
       GO TO C000-EXIT.

    IF TR-KEY = 1
    DISPLAY "IS21:(" TR-FS "):(00):S/INDEX FILE READ"
    DISPLAY "IS22:(" TR-REC-TYPE "):(UR):S/INDEX FILE READ".

    IF TR-KEY = 50
    DISPLAY "IS23:(" TR-FS "):(00):S/INDEX FILE READ".
    DISPLAY "IS24:(" TR-REC-TYPE "):(S1):S/INDEX FILE READ".

    IF TR-KEY = 75
    DISPLAY "IS21:(" TR-FS "):(00):S/INDEX FILE READ"
    DISPLAY "IS22:(" TR-REC-TYPE "):(UR):S/INDEX FILE READ".

    IF TR-KEY = 100
    DISPLAY "IS23:(" TR-FS "):(00):S/INDEX FILE READ".
    DISPLAY "IS24:(" TR-REC-TYPE "):(S2):S/INDEX FILE READ".

    IF TR-KEY = 200
    DISPLAY "IS23:(" TR-FS "):(00):S/INDEX FILE READ".
    DISPLAY "IS24:(" TR-REC-TYPE "):(S3):S/INDEX FILE READ".

    IF TR-KEY = 998
    DISPLAY "IS23:(" TR-FS "):(00):S/INDEX FILE READ".
    DISPLAY "IS24:(" TR-REC-TYPE "):(S4):S/INDEX FILE READ".

 C000-EXIT.
    EXIT.