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

If you do want to delete all of the information in the file, add a null Declarative Portion for this
file to the program, recompile it (to allow the run unit to continue), and change the code to
something like this:
PERFORM WITH TEST AFTER UNTIL file-status (1: 1) = "0"
OPEN OUTPUT the-file SHARED
IF file-status (1: 1) NOT = "0"
IF file-status = "30"
AND GUARDIAN-ERR = 12
(count these, send a message, or take other
appropriate action)
ENTER TAL "DELAY" USING some-time
ELSE
(issue some other error and terminate
program)
END-IF
END-IF
END-PERFORM
where file-status appears in the FILE STATUS clause in the SELECT clause, and some-time
is the number of 0.01-second intervals to delay.
Each occurrence of this error produces a message on the home terminal or in the execution log.
234
CLOSE operation failed with error nnn
Cause
The Guardian file system reported error nnn during execution of a close operation.
Effect
The CLOSE statement is unsuccessful with I-O status “30.”
Recovery
Type ERROR nnn to see the meaning of the Guardian error; it may indicate corrective action.
235
REVERSED not allowed for this file
Cause
The file name specified in a READ REVERSED statement is assigned to a physical file that cannot
be read in reverse; that is, one of:
• A nondisk file
• A disk file for which preread was selected
• A disk file that is an edit file for ENV OLD
• A disk file that is an edit file for ENV COMMON or for native HP COBOL with the
NONSTOP directive active
• An unstructured disk file that is blocked
Effect
The READ statement is unsuccessful with I-O status “30.”
Recovery
One of:
• If the physical file is not a disk file, use a disk file instead.
• If preread is selected, cancel it (for example, add SHARED to the OPEN statement that
opens the file, or open the file in I-O mode rather than INPUT mode).
Message List 1223