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

Procedure Division Verbs
HP COBOL Manual for TNS/E Programs—520347-003
9-270
USE DEBUGGING
USE DEBUGGING
USE AFTER EXCEPTION
USE AFTER EXCEPTION intercepts control when an input-output exception occurs.
The input-output system executes USE AFTER EXCEPTION procedures after it
completes the standard input-output error routine. It also executes USE AFTER
EXCEPTION procedures when invalid-key or at-end conditions arise and no INVALID
KEY or AT END phrases apply to the file. After the USE procedure executes, it returns
control to the calling routine, unless the I-O status code is “4x ” or “90,” in which case
the process terminates.
GLOBAL
applies the declarative exception procedure to the program in which the USE
statement appears and to any programs nested within that program, unless such a
nested program has its own declarative exception procedure for that particular
exception.
Note. The 1985 COBOL standard classifies USE DEBUGGING as obsolete. The compiler
does not recognize it. For its description, see the COBOL Manual for TNS and TNS/R
Programs.
Note. Do not use GLOBAL in the Declaratives Portion
.
GLOBAL
USE
ON
file-name
EXTEND
I-O
PROCEDURE
INPUT
.
AFTER
STANDARD
EXCEPTION
ERROR
OUTPUT
VST235.vsd