000100 ID DIVISION.
000200 PROGRAM-ID. delete-a-rec.
000300 AUTHOR. ChanJin Chung.
000400*PROGRAM TO delete 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  RANDOM
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  I-O IDX-FILE
002700     DISPLAY 'ENTER PART Number to be deleted:'
002800     ACCEPT U-PART-NO
002900     MOVE U-PART-NO TO IDX-KEY
003000     READ IDX-FILE
003100        INVALID KEY DISPLAY 'INVALID KEY'
003200        NOT INVALID KEY
003300            DISPLAY IDX-RECORD
003400            DISPLAY 'The above record has been deleted from '
003500-                   'PART.IXF'
003600            DELETE IDX-FILE RECORD
003700                INVALID KEY DISPLAY 'DELETE ERROR'
003800            END-DELETE
003900     END-READ
004000     CLOSE IDX-FILE
004100     STOP RUN.