Compaq COBOL AAQ2G1FTK - Manual (Page 124)

Handling Tables
4.1 Defining Tables
Example 4–1 One-Dimensional Table
01 TABLE-A.
05
ITEM-B PIC X OCCURS 2 TIMES.
The organization of TABLE-A is shown in Figure 4–1.
Figure 4–1 Organization of the One-Dimensional Table in Example 4–1
1
1 2 3 4
A
B B
Longword number
Byte number
Level 01
Level 05
Legend: A = TABLE−A
ZK−6039−GE
B = ITEM−B
Example 4–1 specifies only a single data item. However, you can specify as
many data items as you need in the table. Multiple data items are shown in
Example 4–2.
Example 4–2 Multiple Data Items in a One-Dimensional Table
01 TABLE-A.
05
GROUP-B OCCURS 2 TIMES.
10
ITEMC PIC X.
10 ITEMD PIC X.
The organization of this table is shown in Figure 4–2.
4–2 Handling Tables