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

Data Division
HP NonStop Pathway/iTS SCREEN COBOL Reference Manual—426750-003
5-66
Clauses in Message Description Entry
•
To use field delimiters, you must specify FIXED-DELIMITED or DELIMITED in the
MESSAGE FORMAT clause.
•
If you omit the FIELD-DELIMITER clause and the message format is FIXED-
DELIMITED or DELIMITED, field delimiter processing is enabled and the default
field delimiter is a comma (,).
•
When processing a message on a field-by-field basis, you can use the FIELD-
DELIMITER clause with the RESULTING COUNT clause. For details, see the
RESULTING COUNT Clause.
FIELD STATUS Clause
The FIELD STATUS clause identifies a Working-Storage Section data group or item
that receives status information about an associated Message Section field. The
FIELD STATUS Working-Storage Section item is updated when data is mapped
through the associated Message Section field. The data is mapped through the field
as the data is moved into or out of Working-Storage by statements such as: SEND
MESSAGE, TRANSFORM, RECEIVE UNSOLICITED MESSAGE, or REPLY TO
UNSOLICITED MESSAGE.
data-item-1
is a Working-Storage group or elementary data item. The size of data-item-1
must be at least 4 bytes or compiler error 369 is generated. The following rules
apply:
•
The first 2 bytes of data-item-1 contain the shadow portion of the field
status information. The shadow portion is used with the PRESENT IF clause
to determine if a conditionally present field is present.
•
The second 2 bytes of data-item-1 contain the field error portion of the field
status information. The field error portion is used to obtain information on
editing errors on fields where editing is specified.
•
The following format is recommended for data-item-1 ; this format is
recommended so you can have accessible variable names for the shadow
portion and the field error portion:
02 FIELD-STATUS-AREA.
03 SHADOW-INFO PIC 9(4) COMP.
03 FIELD-ERROR PIC 9(4) COMP.
•
You must define data-item-1 as COMP data because the shadow values
and error numbers that the TCP moves into these locations are binary values.
•
data-item-1 is always updated when data is mapped through the associated
Message Section field. If you use FIELD STATUS to determine the presence
FIELD STATUS [IS] data-item-1