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

Procedure Division
HP NonStop Pathway/iTS SCREEN COBOL Reference Manual—426750-003
6-35
DIALOG-ABORT
ON ERROR
provides a point of control if an error occurs in the DIALOG-ABORT statement.
If this clause is omitted and an error is detected, the standard system action is
performed. Depending on the error, system action involves either abending or
suspending the terminal running the SCOBOL program.
imperative-statement
is the statement to be run if an error is detected.
A special register, TERMINATION-STATUS, is set by the DIALOG-ABORT statement
to indicate the result of execution. This table lists the possible values of
TERMINATION-STATUS.
Termination Status Error Messages of PATHTCP4
TERMINATION-STATUS 19
Cause. This error is not used in Pathway/iTS 1.1. It is retained to facilitate
compatibility with the existing applications.
TERMINATION-STATUS 22
Cause. While running a DIALOG-ABORT statement, TCP found that the associated
dialog has been abended because of a primary TCP failure. The message did not
reach the server process. The associated dialog is already abended. The SCOBOL
requester must end the dialog by calling DIALOG-END.
Action Without ON ERROR Clause. The system abends the terminal.
Termination Status Meaning
1
The dialog abended successfully. DIALOG-INFO special
register is reset to 65535.
2
The dialog is invalid for the current operation. This is
due to primary TCP abending before the dialog ended
and the SCOBOL program not having any prior
information about this. The dialog has already been
abended by the TS/MP ROUT process. The dialog is
now ended from the terminal perspective. Without the
ON ERROR clause, the terminal will be abended by
TCP.
PATHMON LICENSE ERROR
DIALOG INVALID