Pathway/iTS SCREEN COBOL Reference Manual (G06.24+, H06.03+, Pathway/iTS 1.0+)

Data Division
Compaq NonStop™ Pathway/iTS SCREEN COBOL Reference Manual—426750-001
5-88
Clauses in Message Description Entry
10 MS-Bit3-Credit-Card PIC 1(1)
USING WS-Bit-3.
10 FILLER PIC 1(5).
05 MS-Savings.
10 Savings-Data PIC X(15)
PRESENT IF MS-Bit1-Savings
FIELD STATUS IS WS-Field-Status-Savings
USING WS-Savings-Data
RESULTING COUNT IS WS-Savings-Length.
05 MS-Checking.
10 Checking-Data PIC X(15)
PRESENT IF MS-Bit2-Checking
FIELD STATUS IS WS-Field-Status-Checking
USING WS-Checking-Data
RESULTING COUNT IS WS-Checking-Length.
05 MS-Credit-Card.
10 Credit-Card-Data PIC X(15)
PRESENT IF MS-Bit3-Checking
FIELD STATUS IS WS-Field-Status-Credit-Card
USING WS-Creditc-Data
RESULTING COUNT IS WS-Creditc-Length.
RESULTING COUNT Clause
On input, the RESULTING COUNT clause obtains the length in bytes of a field or
message. For inputting data, you can use the RESULTING COUNT clause with any
message format.
On output, the RESULTING COUNT clause creates a variable-length field or message.
This length is equal to or less than the declared length. For outputting data, you can use
the RESULTING COUNT clause only with the DELIMITED, VARYING1, or
VARYING2 message formats.
You must use the RESULTING COUNT clause with the FIELD-DELIMITER clause or
with the MESSAGE-DELIMITER clause.
numeric-data-1
is a numeric elementary data item in either the Working-Storage Section or the
Linkage Section.
Resulting Count With Field Delimiter
On input, the RESULTING COUNT clause combined with a field that is delimited
causes the field's actual length to be stored in the RESULTING COUNT data item,
numeric-data-1. The field's contents, of RESULTING COUNT length, is stored
into the field's associated Working-Storage data item. The Working-Storage data item is
padded with fill characters if it is larger than the actual message field. The field
delimiter is not stored in the field's associated Working-Storage data item. The field
delimiter is not counted in the RESULTING COUNT length.
[ RESULTING ] COUNT [ IS ] numeric-data-1