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

Data Division
HP NonStop Pathway/iTS SCREEN COBOL Reference Manual—426750-003
5-92
Clauses in Message Description Entry
05 WS-Name PIC X(1)
OCCURS 1 TO 100 TIMES
DEPENDING ON WS-Name-Length.
MESSAGE SECTION.
01 MSG-Name-Record
FORMAT IS DELIMITED
FIELD-DELIMITER IS ";".
05 MS-Name PIC X(100)
USING WS-Name
RESULTING COUNT IS WS-Name-Length.
If the incoming name field contains:
SMITH John X.;
Start of Field⁄
The resulting location in Working-StorageWorking-Storage, WS-Name, would contain:
SMITH John X.
Start of Field⁄
The value in WS-Name-Length would be equal to 13.
TO/FROM/USING Clauses
The TO, FROM, and USING clauses associate a Working-Storage Section or Linkage
Section data item with a Message Section item. This association allows the data to be
mapped through the Message Section as it is moved into or out of Working-Storage by
statements such as: SEND MESSAGE, TRANSFORM, RECEIVE UNSOLICITED
MESSAGE, or REPLY TO UNSOLICITED MESSAGE.
data-name-1
identifies the Working-Storage or Linkage Section data area from which message
data is received or to which message data is moved. The data-name-1 item
must be described as either alphanumeric (PIC X) or as binary (PIC 9 COMP or
PIC S9 COMP); it must not be described as numeric (PIC 9).
TO
specifies that data is to be moved from the message field to the area indicated by
data-name-1 .
FROM
specifies that data is to be moved from the area indicated by data-name-1 to the
message field.
{ TO } data-name-1
{ FROM }
{ USING }