000010 IDENTIFICATION DIVISION.
000020 PROGRAM-ID. DEMO8 INDEXDAT.
000030 AUTHOR. MICRO FOCUS LTD.
000040 ENVIRONMENT DIVISION.
000050 CONFIGURATION SECTION.
000060 SOURCE-COMPUTER. 22C-RC2014.
000070 OBJECT-COMPUTER. 22C-RC2014.
000080 INPUT-OUTPUT SECTION.
000090 FILE-CONTROL.
000100     SELECT INDEXED-FILE
000110         ASSIGN TO DISK
000120         ORGANIZATION IS INDEXED
000130         ACCESS SEQUENTIAL
O00145         RECORD KEY NDX-SOC-SEC-NUMBER.
000150 DATA DIVISION.
000160 FILE SECTION.
000280 FD  INDEXED-FILE
           VALUE OF FILE-ID IS "DEMO7.DAT"
           LABEL RECORDS STANDARD
           RECORD CONTAINS 50 CHARACTERS   
           DATA RECORD IS INDEXED-RECORD.
       01  INDEXED-RECORD.
           05 NDX-SOC-SEC-NUMBER       PIC X(9).
           05 REST-OF-INDEXED-RECORD   PIC X(41).   

       WORKING-STORAGE SECTION.
       01 PROGRAM-SWITCHES.
          05 END-OF-INDEXED-FILE-SWITCH  PIC X(3) VALUE SPACES.    

000370 PROCEDURE DIVISION.
       MAINLINE.
           OPEN INPUT INDEXED-FILE.
           READ INDEXED-FILE
               AT END MOVE "YES" TO END-OF-INDEXED-FILE-SWITCH.
           PERFORM WRITE-INDEXED-RECORD   
               UNTIL END-OF-INDEXED-FILE-SWITCH = "YES".    
           CLOSE INDEXED-FILE.
           STOP RUN.            

000380 WRITE-INDEXED-RECORD.
           DISPLAY INDEXED-RECORD.
           READ INDEXED-FILE
              AT END MOVE "YES" TO END-OF-INDEXED-FILE-SWITCH.