000010 IDENTIFICATION DIVISION.
000020 PROGRAM-ID. DEMO7 INDEX.
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).   

000370 PROCEDURE DIVISION.
       MAINLINE.
           OPEN OUTPUT INDEXED-FILE.
           MOVE SPACES TO INDEXED-RECORD.
           MOVE "111111111FRITZ    9x1=Index z.B 111111111 " 
.             TO INDEXED-RECORD.
           WRITE INDEXED-RECORD.
           MOVE "222222222KARL     Rest=Gesamt 41 Zeichen. " 
.             TO INDEXED-RECORD.
           WRITE INDEXED-RECORD.
           CLOSE INDEXED-FILE.
           STOP RUN.            
004000 END.