Compaq COBOL AAQ2G1FTK - Manual (Page 251)

Handling Input/Output Exception Conditions
7.4 Using Declarative USE Procedures
Example 7–8 (Cont.) Five Types of Declarative USE Procedures
********************************************************
D2-00-FILE-INPUT-PROBLEM SECTION.
USE AFTER STANDARD EXCEPTION PROCEDURE ON INPUT.
*
*
* If an error occurs for any file open
* in the INPUT mode except FILE-A,
* D2-00-FILE-INPUT-PROBLEM executes.
*
*
D2-01-FILE-INPUT-PROBLEM.
PERFORM D9-00-REPORT-FILE-STATUS.
.
.
.
********************************************************
D3-00-FILE-OUTPUT-PROBLEM SECTION.
USE AFTER STANDARD EXCEPTION PROCEDURE ON OUTPUT.
*
*
* If an error occurs for any file open
* in the OUTPUT mode except FILE-A,
* D3-00-FILE-OUTPUT-PROBLEM executes.
*
*
D3-01-FILE-OUTPUT-PROBLEM.
PERFORM D9-00-REPORT-FILE-STATUS.
.
.
.
********************************************************
D4-00-FILE-I-O-PROBLEM SECTION.
USE AFTER STANDARD EXCEPTION PROCEDURE ON I-O.
*
*
* If an error occurs for any file open
* in the INPUT-OUTPUT mode except FILE-A,
* D4-00-FILE-I-O-PROBLEM executes.
*
*
*
D4-01-FILE-I-O-PROBLEM.
PERFORM D9-00-REPORT-FILE-STATUS.
.
.
.
(continued on next page)
Handling Input/Output Exception Conditions 7–11