The Invalid Key Clause; Figure 5.2. Cobol Statements For Status Key And Exception/Error Routine - IBM 5280 Programmer's Manual

The INVALID KEY Clause
II
EJ
IDENTIFICATION DIVISION.
PROGRAM-ID. SEND-RECEIVE.
•
•
•
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT PRINT-FILE ASSIGN TO PRINTER
ORGANIZATION IS SEQUENTIAL
ACCESS IS SEQUENTIAL
FILE STATUS IS PRINT-FILE-STAT.
SELECT UPDATE-FILE ASSIGN TO DISK
ORGANIZATION IS SEQUENTIAL
ACCESS IS SEQUENTIAL
FILE STATUS IS UPDATE-FILE-STAT.
•
•
•
II
WORKING-STORAGE SECTION.
77 UPDATE-FILE-STAT PIC XX.
77 PRINT-FILE-STAT
•
•
•
PROCEDURE DIVISION.
DECLARATIVES.
DISK-ERROR SECTION.
PIC XX.
USE AFTER ERROR PROCEDURE ON UPDATE-FILE.
DISKX.
DISPLAY "ERROR ON UPDATE-FILE I/O DURING SEND".
DISPLAY "FILE STATUS IS " UPDATE-FILE-STAT.
DISPLAY "TRANSMISSION STOPPED. RUN STOPPED.".
STOP RUN.
PRINT-ERROR SECTION.
USE AFTER ERROR PROCEDURE ON PRINT-FILE.
PRINTERX.
DISPLAY "ERROR ON PRINTER-FILE I/O DURING WRITE".
DISPLAY "FILE STATUS IS " PRINT-FILE-STAT.
DISPLAY "TRANSMISSION STOPPED. RUN STOPPED.".
STOP RUN.
END DECLARATIVES.
EXECUTE SECTION.
MAIN-ROUTINE.
PERFORM OPEN 1 .
•
•
•
Figure 5.2. COBOL statements for Status Key and EXCEPTION /ERROR
routine
When using the random access method, you can specify an INVALID KEY
clause with READ, WRITE, REWRITE, and DELETE verbs for files having
an indexed or relative organization. The clause consists of a set of COBOL
statements you want executed each time an invalid key is found.
An EXCEPTION jERROR procedure, if specified, will not be executed.
If the FILE STATUS clause is specified, a value is placed in the Status Key
to indicate the condition.
5- 8 IBM 5280 COBOL Programmer's Guide