38 lines
1.1 KiB
COBOL
38 lines
1.1 KiB
COBOL
IDENTIFICATION DIVISION.
|
|
PROGRAM-ID. CTESTP_DELETE1.
|
|
ENVIRONMENT DIVISION.
|
|
|
|
CONFIGURATION SECTION.
|
|
INPUT-OUTPUT SECTION.
|
|
FILE-CONTROL.
|
|
SELECT ARQ ASSIGN TO "Testing.dat"
|
|
ORGANIZATION IS INDEXED
|
|
ACCESS MODE IS RANDOM
|
|
RECORD KEY IS X-IND
|
|
FILE STATUS IS FS.
|
|
|
|
DATA DIVISION.
|
|
FILE SECTION.
|
|
|
|
FD ARQ
|
|
LABEL RECORD IS STANDARD.
|
|
01 REG-ARQ.
|
|
03 X-IND PIC 9(03).
|
|
03 DESCRIPTION PIC X(60).
|
|
|
|
WORKING-STORAGE SECTION.
|
|
01 FS PIC 9(02).
|
|
01 ARQ-KEY PIC 9(03).
|
|
|
|
PROCEDURE DIVISION.
|
|
000-MAIN.
|
|
OPEN I-O ARQ.
|
|
READ ARQ.
|
|
DELETE ARQ RECORD
|
|
INVALID KEY
|
|
MOVE "FAIL" TO DESCRIPTION
|
|
NOT INVALID KEY
|
|
MOVE "PASS" TO DESCRIPTION
|
|
END-DELETE.
|
|
CLOSE ARQ.
|