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-75
Clauses in Message Description Entry
num-lit-1
indicates the number of elements in a field. num-lit-1 is a positive numeric
literal that is greater than or equal to one.
num-lit-2
indicates the minimum number of elements in a field. num-lit-2 is a positive
numeric literal that is greater than or equal to zero.
num-lit-3
indicates the maximum number of elements in a field. num-lit-3 is a positive
numeric literal where num-lit-3 is greater than num-lit-2.
num-name-1
provides a count of the number of occurrences of the data item that makes up the
group or field. num-name-1 is a Working-Storage or Linkage Section elementary
numeric data item.
The following rules apply:
•
The compiler does not do minimum bounds checking when processing message
fields.
•
When processing a message that contains a variable number of occurrences of a
field, the number of occurrences of the field must be previously specified in the
program. Therefore, the OCCURS DEPENDING ON clause can be used in the
Message Section only under the following conditions:
°
You can only use the OCCURS DEPENDING ON clause in the Message
Section to output a message. You cannot use OCCURS DEPENDING ON in
the Message Section to input a message.
°
You should define the message with MESSAGE FORMAT IS DELIMITED in
the Message Section.
°
You must declare the number of occurrences of the field you want to output in a
Working-Storage Section elementary data item, num-name-1. For example:
WORKING-STORAGE SECTION.
01 WS-Message-Out
05 WS-Message-Length PIC 9(4) COMP.
05 WS-Message-Data PIC X OCCURS 1 TO 1024 TIMES
DEPENDING ON WS-Message-Length.
MESSAGE SECTION.
01 Message-Out PIC X
FROM WS-Message-Data