Pathway/iTS SCREEN COBOL Reference Manual (H06.10+, J06.03+)

Procedure Division
HP NonStop Pathway/iTS SCREEN COBOL Reference Manual—426750-003
6-144
USE FOR TERMINAL-ERRORS Statement
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.