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

Procedure Division
HP NonStop Pathway/iTS SCREEN COBOL Reference Manual—426750-003
6-100
SEND Statement
indicating the type of error, and the imperative statement PERFORM SERVER-
DUMB is executed.
4. If the ON ERROR clause had not been included and an error occurred, the
standard system action would be performed (see Sending to an External
PATHMON Process on page 6-103 for a list of SEND ERROR numbers)
Variable Reply Length
The ON ERROR clause prevents the requester from being suspended when the reply
length does not match the YIELDS buffer length. In this case, when the TCP executes
the ON ERROR clause, it aslo sets the SCREEN COBOL special registers
TERMINATION-STATUS and TERMINATION-SUBSTATUS as follows:
TERMINATION-STATUS = 11
TERMINATION-SUBSTATUS = min ( rcvlen ,
1 + max( sndlen,maxyldlen ) )
where
rcvlen is the length of the message from server
sndlen is the length of message sent to server
maxyldlen is the longest total reply area of any YIELDS clause in this SEND verb
For a SEND the TCP allocates a WRITEREAD buffer of length 1 + max( sndlen ,
maxyldlen ). The value of TERMINATION-SUBSTATUS depends on the length of
the actual reply, the length of the YIELDS buffer, and the length of the WRITEREAD
buffer as:
Server reply shorter than
YIELDS buffer
TERMINATION-SUBSTATUS equals server reply
length.
Server reply length equals
YIELDS buffer length
TERMINATION-SUBSTATUS is undefined. This
case does not cause the TCP to invoke the ON
ERROR clause.
Server reply longer than
YIELDS buffer but shorter
than WRITEREAD buffer
TERMINATION-SUBSTATUS equals server reply
length.
Server reply longer than
YIELDS buffer but equals
WRITEREAD buffer length
TERMINATION-SUBSTATUS equals server reply
length.
Server reply longer than
YIELDS buffer and longer
than WRITEREAD buffer
TERMINATION-SUBSTATUS equals WRITEREAD
buffer length.