COBOL Manual for TNS/E Programs (H06.03+)

Procedure Division Verbs
HP COBOL Manual for TNS/E Programs—520347-003
9-171
READ for Sequential or Dynamic Access
If, at the start of the read operation, the file position indicator is at the end-of-file
mark or its value is not defined, execution of the READ statement is unsuccessful,
and the file-status data item is set to a value other than “00.”
The possible I-O status codes that result from unsuccessful read operations are:
“04” The file is not described as having variable-length records (by
having the RECORD CONTAINS rec-1 TO rec-2
CHARACTERS clause or a RECORD VARYING clause in its file
description), and a record was read that was shorter than the
maximum size. The execution of the READ statement is
successful.
“97” A locked record was read successfully. (You must have called
SETMODE to allow locked records to be read.)
Note. After an unsuccessful execution of a READ statement, these values are
unpredictable:
•
The value of the file position indicator
•
The contents of the current record area
•
The key of reference
Any key value found in the current record area: that is, the value of the current key for
indexed files or the value of the alternate key for any type of file-system file, because in
HP COBOL sequential and relative files can have alternate keys.
I-O Status Code Unsuccessful Read Operation
“10” The end of file condition arose either in the normal course of events
or because the program tried to read an optional file that was not
present.
“30” A permanent error exists.
“46” The value of the file position indicator is undefined at the beginning
of the execution of a READ statement.
“47” The file is not open in the INPUT or I-O mode.
“90” A logic error has occurred that is not covered by the “4x” file status
codes, and no recovery is possible.
“91” The file being read is a file in EDIT format, and some step in the
read operation failed due to non-COBOL causes. The record is not
read, and the execution of the READ statement is unsuccessful.
I-O Status Code Successful Read Operation (page 2 of 2)