Control Data Corporation 3300 Reference Manual page 54

Computer systems usasi cobol/ master
Table of Contents

Advertisement

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

Advertisement

Table of Contents
loading
Need help?

Need help?

Do you have a question about the 3300 and is the answer not in the manual?

Subscribe to Our Youtube Channel

This manual is also suitable for:

3500

Table of Contents