COBOL Manual for TNS and TNS/R Programs

Procedure Division
HP COBOL Manual for TNS and TNS/R Programs—522555-006
8-37
Diagnosing Input-Output Errors
“30” xxx CLOSE Fatal error on WRITE to write final
block, or to write held spacing or
record for print files, or attempt to
write tape marks on tape failed
xxx CLOSE REEL Reel swap failed
xxx DELETE Attempt to position failed, or
attempt to delete record failed, or
attempt to reposition after deletion
failed
xxx LOCK,
UNLOCK
Attempt to lock/unlock file or record
failed
xxx LOCK,
UNLOCK
Wait on preread of file failed
xxx OPEN System open failed; position for
EXTEND failed; purge for existing
file failed; create for nonexistent file
failed; or other system call failed
xxx READ random System error on read
xxx READ sequential System error on read; reel swap
failed
xxx REWRITE System error on position request;
replace failed
xxx START System error on position request
xxx WRITE System error on various operations
11 OPEN Opening for OUTPUT, I-O or
EXTEND on file with alternate keys
when no FUP CREATE has been
done to create file
18 OPEN The node that file is on is not up
40 LOCKFILE,
READ,
START
Operation timed out
73 LOCKFILE,
READ,
START
Record in file locked
“34” 45 CLOSE,
WRITE
File is full
Table 8-12. I-O Status Codes Augmented by GUARDIAN-ERR (page3of5)
Status
Code
GUARDIAN-ERR
Value COBOL Statement(s) Cause of Status Code
xxx = Whatever file-system error is returned