COBOL Manual for TNS and TNS/R Programs

Procedure Division Verbs
HP COBOL Manual for TNS and TNS/R Programs—522555-006
9-291
USE AFTER EXCEPTION
In Example 9-74, two files use the same error routine and another file uses a separate
error routine.
Example 9-74. USE AFTER EXCEPTION Statement
...
PROCEDURE DIVISION.
DECLARATIVES.
MASTER-FILES SECTION.
USE AFTER EXCEPTION PROCEDURE ON MASTER-1 MASTER-2.
MASTER-ERROR-ROUTINE.
IF FILE-STATUS....
...
DETAIL-FILE SECTION.
USE AFTER EXCEPTION PROCEDURE ON DETAIL-IN.
DETAIL-ERROR-ROUTINE.
...
END DECLARATIVES.
MAIN-SECTION SECTION.
BEGIN-PROGRAM.
...