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-83
SEND MESSAGE Statement
MESSAGE statement, only the first 3161 timeout encountered by each TCP
configured under a PATHMON process is logged. An additional 3161 timeout is
logged when the primary TCP fails and the backup TCP takes over and encounters
the timeout. The TCPs filter out all other 3161 timeout errors. If the ON ERROR
clause is not used and a 3161 timeout occurs, the corresponding terminal is
suspended after the timeout is logged.
If the output does not complete in the specified number of seconds,
TERMINATION- STATUS is set to 1, TERMINATION-SUBSTATUS is set to 40,
the operation is cancelled, and any ON ERROR clause is executed.
When the SCREEN COBOL program that contains the SEND MESSAGE statement
is communicating with devices using a queued (CONTROL 26) protocol, the
TERMINATION-SUBSTATUS special register has a value following a SEND
MESSAGE that completes for a TIMEOUT.
If this clause is omitted, there is no time limit.
USER [ CONVERSION ] numeric-literal
specifies a user conversion procedure associated with either a send-message or a
reply-message. Refer to the Compaq NonStop™ Pathway/iTS TCP and
Terminal Programming Guide for a detailed discussion of user conversion
procedures.
ON ERROR imperative-statement
specifies action to be taken should an error occur in sending the message. If an error
is detected, the imperative-statement is executed.
If ON ERROR is omitted and an error is detected, the system takes standard action.
Depending on the error, the system either waits for a resource to become available
or suspends execution of the program.
If ON ERROR is included in the SEND MESSAGE statement, TERMINATION-
STATUS is set to a specified number.
If there are no errors, TERMINATION-STATUS contains the relative position of the
matching reply. Thus, you should write error processing routines to execute only
when an error occurs.
Appendix D, Errors for Message Section Statements
, lists errors that can occur
during execution of the SEND MESSAGE statement.
The following rules apply:
•
A send-message or reply-message cannot exceed 32,000 bytes.
•
send-message considerations:
°
If send-message identifies a message template in the Message Section, the
data is obtained from the data item specified in the FROM or USING clause of
Note. Error messages can be placed in the log by the PATHMON process even if an ON
ERROR clause is included in a SEND MESSAGE statement.