Compaq COBOL AAQ2G1FTK - Manual (Page 252)

Handling Input/Output Exception Conditions
7.4 Using Declarative USE Procedures
Example 7–8 (Cont.) Five Types of Declarative USE Procedures
********************************************************
D5-00-FILE-EXTEND-PROBLEM SECTION.
USE AFTER STANDARD EXCEPTION PROCEDURE ON EXTEND.
*
*
* If an error occurs for any file open
* in the EXTEND mode except FILE-A,
* D5-00-FILE-EXTEND-PROBLEM executes.
*
*
D5-01-FILE-EXTEND-PROBLEM.
PERFORM D9-00-REPORT-FILE-STATUS.
.
.
.
D9-00-REPORT-FILE-STATUS.
.
.
.
END DECLARATIVES.
********************************************************
A000-BEGIN SECTION.
BEGIN.
.
.
.
7–12 Handling Input/Output Exception Conditions