000100 ID DIVISION.
000200 PROGRAM-ID. get-a-rec.
000300 AUTHOR. ChanJin Chung.
000400*PROGRAM TO get a record from AN INDEXED FILE
000500 ENVIRONMENT DIVISION.
000600 INPUT-OUTPUT SECTION.
000700 FILE-CONTROL.
000800*---------- NOTE: MODE IS RANDOM TO READ ----------------------
000900     SELECT IDX-FILE            ASSIGN TO DISK 'PART.IXF'
001000        ORGANIZATION  IS  INDEXED
001100        ACCESS MODE   IS  ??????
001200        RECORD KEY    IS  IDX-KEY.
001300*--------------------------------------------------------------
001400 DATA DIVISION.
001500 FILE SECTION.
001600 FD  IDX-FILE RECORD CONTAINS 30 CHARACTERS.
001700 01  IDX-RECORD.
001800     05 IDX-KEY                      PIC X(4).
001900     05 FILLER                       PIC X(26).
002000*--------------------------------------------------------------
002100 WORKING-STORAGE SECTION.
002200 01  U-PART-NO                       PIC X(4).
002300
002400 PROCEDURE DIVISION.
002500 main-rtn.
002600     OPEN  INPUT IDX-FILE
002700     DISPLAY 'ENTER PART Number:'
002800     ACCEPT U-PART-NO
002900     MOVE U-PART-NO TO ???????
003000     ???? IDX-FILE
003100        INVALID KEY DISPLAY 'INVALID KEY'
003200        NOT INVALID KEY DISPLAY IDX-RECORD
003300     END-READ
003400     CLOSE IDX-FILE
003500     STOP RUN.