iTS 1.0+)

Procedure Division

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

6-81

SEND MESSAGE Statement

The SEND MESSAGE statement sends a message to an intelligent device, receives a

reply from that device, or both sends a message and receives a reply. The message data

structure can be identified by either a message template in the Message Section or a

level 01 data item in the Working-Storage Section.

send-message

specifies a message template in the Message Section or an 01 level data item in the

Working-Storage Section. In either case, it specifies data to be sent to an intelligent

device.

If you omit send-message, no data is sent, but a reply message is returned.

CODE FIELD [ IS ] code-field

defines the location, length, and data type of the reply-code field in the

reply-message.

The absence of this clause causes the default to be used:

•

Offset—0 bytes offset from beginning of the record

•

Length—2 bytes

•

Data type—COMPUTATIONAL numeric data item

You need to specify this clause when the location, length, and data type of the

reply-code field is other than the default.

The code-field parameter in this clause specifies a field name in the

Working-Storage Section.

SEND MESSAGE { send-message }

{ [ send-message ] reply-spec }

[ ESCAPE ON UNSOLICITED [ MESSAGE ] ]

[ USER [ CONVERSION ] numeric-literal ]

[ TIMEOUT timeout-value ]

[ ON ERROR imperative-statement ]

reply-spec syntax:

REPLY [ CODE FIELD [ IS ] code-field ]

{YIELDS reply-message }

{{CODE reply-code [,reply-code]... YIELDS reply-message}...}