Control Data Corporation 3300 Reference Manual page 54

3-20
Examples:
1.
01 PARTS-LIST.
02 A-PARTS.
03 PART-AI PICTURE 9(10) VALUE xxxxxxxxxx.
03 PART-A2 PICTURE 9(10) VALUE xxxxxxxxxx.
03 PART-A100 PICTURE 9(10) VALUE xxxxxxxxxx.
02 B-PARTS.
03 PART-B1 PICTURE 9(10) VALUE xxxxxxxxxx.
03 PART-B2 PICTURE 9(10) VALUE xxxxxxxxxx.
03 PART-B100 PICTURE 9(10) VALUE xxxxxxxxxx.
02 C-PARTS.
03 PART-C1 PICTURE 9(10) VALUE xxxxxxxxxx.
02 J-PARTS.
03 PART-J1 PICTURE 9(10) VALUE xxxxxxxxxx.
The above list contains a thousand entries, 100 lower level entries for each
02 level entry and 10 entries at the 02 level. To reference the list by sub-
scripting or indexing, it must be redefined as:
01 PARTS-TABLE REDEFINES PARTS-LIST.
02 LIST OCCURS 10 TIMES.
03 PART PICTURE 9(10) OCCURS 100 TIMES.
2. If the list PARTS-LIST has a varying number of occurrences of the entries
at the 02 level, it is redefined as follows:
01 PARTS-TABLE REDEFINES PARTS-LIST.
02 PART PICTURE 9(10) OCCURS 1 TO 150 DEPENDING ON
PART-NUMBER.
In this case, the number of occurrences is contained in the data item named
PART-NUMBER with the following data description.
77 PART-NUMBER PICTURE 999 COMPUTATIONAL VALUE xxx.
Value must be a positive integer.
60229400