iTS 1.0+)

Procedure Division

Compaq NonStop™ Pathway/iTS SCREEN COBOL Reference Manual—426750-001

6-87

SEND MESSAGE Statement

MOVE OP-BAD-SESSION TO OP-OUTCOME

ELSE

IF TERMINATION-SUBSTATUS = 189

MOVE OP-WONT-QUIESCENT TO OP-OUTCOME.

To detect the arrival of an unsolicited message, the program must process the

condition code value in the TERMINATION-STATUS special register. In this

example, TERMINATION-STATUS is set as follows:

The value of the TERMINATION-SUBSTATUS special register indicates what

state the front-end process was in at the time the unsolicited message was

received.

The TERMINATION-SUBSTATUS values for the CONTROL 26 process

interface are shared between the two types of allowable escapes:

UNSOLICITED MESSAGE or TIMEOUT. The SEND MESSAGE statement

can be used to communicate with devices using a queued (CONTROL 26)

protocol, for example, devices connected by a SNAX/HLS front-end process

interface.

When a SCREEN COBOL program is interrupted on a CONTROL 26 terminal,

the TCP issues one of the TERMINATION-SUBSTATUS values listed in

Table 6-6

. The value of the TERMINATION-SUBSTATUS register depends on

the reason for the interruption.

Action TERMINATION-STATUS

Received reply message with

reply code of AA

Received reply message with

reply code of XX

Received unsolicited message 3