COBOL Manual for TNS and TNS/R Programs

Procedure Division Verbs
HP COBOL Manual for TNS and TNS/R Programs—522555-006
9-47
DISPLAY
•
Record Deleted When File Access Mode is Random or Dynamic
If the file’s access mode is random or dynamic, the record to be deleted is defined
by the record key, or, for relative files, the relative key (indexed or prime key). If the
designated record does not exist, an invalid-key condition occurs with I-O status
code “23.”
DISPLAY
DISPLAY delivers a small amount of data (such as an error message) to a terminal, a
printer, or another process.
Example 9-12. DELETE Statement
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT EMPLOYEE-MASTER ASSIGN TO "EMPMAST"
ORGANIZATION IS INDEXED
ACCESS MODE IS DYNAMIC
RECORD KEY IS EMPLOYEE-NUMBER
FILE STATUS IS FILE-STAT.
...
FD EMPLOYEE-MASTER
LABEL RECORDS ARE OMITTED
...
05 EMPLOYEE-NUMBER PIC X(7).
...
PROCEDURE DIVISION.
...
DELETE-RECORD.
MOVE KEY-TO-DELETE TO EMPLOYEE-NUMBER
DELETE EMPLOYEE-MASTER RECORD
INVALID KEY PERFORM KEY-ERROR
END-DELETE
DISPLAY
identifier
literal
UPON
NO
ADVANCING
mnemonic-name
WITH
VST144.vsd