Pathway/iTS SCREEN COBOL Reference Manual (G06.24+, H06.03+, Pathway/iTS 1.0+)

Procedure Division
Compaq NonStop™ Pathway/iTS SCREEN COBOL Reference Manual—426750-001
6-110
USE FOR TERMINAL-ERRORS Statement
06 ACCT-SN PIC 99999.
06 ACCT-SUFF PIC X(4).
04 ACT-BAL PIC 999999V99.
02 LAST-REC.
04 NAME PIC A(33).
04 ACCT-NUM.
06 ACCT-PRE PIC AA.
06 ACCT-SN PIC 99999.
06 ACCT-SUFF PIC X(4).
04 ACT-BAL PIC 999999V99.
01 REPLY-STRUCT.
02 OUTCOME PIC 999.
02 EXTENSION PIC AAA.
. . .
PROCEDURE DIVISION.
DECLARATIVES.
TERM-ERROR SECTION.
USE FOR TERMINAL-ERRORS.
TERM-ERROR-PROC.
SEND CONTEXT-INFO
TO TROUBLE-SERVER
REPLY OUTCOME OF REPLY-STRUCT.
TERM-ERROR-END.
EXIT PROGRAM.
END DECLARATIVES.
MAIN SECTION.
. . .
The following example contains only an EXIT PROGRAM statement.
PROCEDURE DIVISION.
DECLARATIVES.
U-T-E SECTION.
USE FOR TERMINAL-ERRORS.
TERM-ERRORS.
EXIT PROGRAM.
END DECLARATIVES.
MAIN SECTION.
. . .
DISPLAY BASE
. . .
DISPLAY
. . .
DISPLAY
If the declarative did not contain the EXIT PROGRAM statement, any of the DISPLAY
statements could fail due to an irrecoverable terminal I/O error and not be detected.