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

Data Division
HP NonStop Pathway/iTS SCREEN COBOL Reference Manual—426750-003
5-83
Clauses in Message Description Entry
•
Filling rules for input operations
°
Filling occurs when destination is longer than source.
°
Destination Working-Storage PIC X fields are padded in the least significant
(trailing) portion of the field with nulls (binary zeros).
°
Destination Working-Storage PIC 9 fields are filled in the most significant
(leading) portion of the field with nulls (binary zeros).
Output Operations
•
The source is a Working-Storage Section item. The destination is a Message
Section item.
•
Data is retrieved from the least significant or most significant portion of the source
field, depending on whether the source field is numeric or nonnumeric.
•
For a Working-Storage PIC 9 field, data bits from the least significant portion of the
field are used to supply the data for the Message Section field item. There is right
to left processing of both source and destination fields, least significant to least
significant.
•
For a Working-Storage PIC A or X field, data bits from the most significant portion
of the field are used to supply the data for the Message Section field item. There is
left to right processing of both source and destination fields, most significant to
most significant.
•
Truncation rules for output operations
°
Truncation occurs when the destination is shorter than the source.
°
For Working-Storage PIC X and A fields (nonnumeric data), trailing bits are
truncated. The length of the destination Message Section item determines
how many bits are allowed. No indication of truncation is given to the
application program.
°
For Working-Storage PIC 9 and 9 COMP fields (numeric data), no loss of data
is allowed. The TCP indicates that an overflow occurred by either suspending
the requester program, or by activating ON ERROR processing.
•
Filling rules for output operations:
°
Filling occurs when destination is longer than source.
°
For Working-Storage PIC X fields, the TCP pads the least significant (trailing)
portion of the Message Section field with nulls (binary zeros).
°
For Working-Storage PIC 9 fields, the TCP fills the most significant (leading)
portion of the Message Section field with nulls (binary zeros).