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-63
REPLY TO UNSOLICITED MESSAGE Statement
The RECONNECT MODEM statement causes a full context checkpoint. If
Pathway/iTS is running under TMF and a terminal or intelligent device is in transaction
mode, this statement backs out the current transaction and suspends the terminal or
device so that it cannot be resumed. If an ABORT-TRANSACTION statement precedes
the RECONNECT MODEM statement, Pathway/iTS attempts to resume communication
with the terminal or device after a modem error.
The following example illustrates the RECONNECT MODEM statement:
START-PROGRAM.
CALL SEARCH-PROGRAM ON ERROR GO TO VERIFY-RECONNECT.
RECONNECT MODEM.
GO TO START-PROGRAM.
VERIFY-RECONNECT.
IF TERMINATION-STATUS IS = 18 AND
TERMINATION-SUBSTATUS IS = 140
* This is a modem error - return to a consistent state
* and wait for the next terminal caller.
DELAY 10
RECONNECT MODEM
GO TO START-PROGRAM.
* Processes other error conditions.
DISPLAY BASE SEARCH-SCREEN.
or
SEND MESSAGE REPLY YIELDS MESSAGE-IN.
:
REPLY TO UNSOLICITED MESSAGE Statement
The REPLY TO UNSOLICITED MESSAGE statement sends a reply to a message
previously received by a RECEIVE UNSOLICITED MESSAGE statement. After a
RECEIVE UNSOLICITED MESSAGE statement is issued, all other RECEIVE
UNSOLICITED MESSAGE statements are rejected as errors and all ESCAPE ON
UNSOLICITED MESSAGE clauses are disallowed until a REPLY TO UNSOLICITED
MESSAGE statement is executed.
reply-message
identifies an 01 level message field in the Message Section or an 01 or 77 level data
item in the Working-Storage Section. The reply-message contains data to be
sent in response to a previously received unsolicited message.
REPLY [ TO ] UNSOLICITED [ MESSAGE ] [ WITH ] reply-message
[ ON ERROR imperative-stmt ]