精通cobol－－9.16.1 如何定义嵌套表

　　首先从最基本的2层嵌套表开始学习。2层嵌套表也叫二维表格，其中包含两条层次关系的OCCURS语句。以下代码定义了一个2层嵌套表。
01 NESTED-TABLE-2.
05 TABLE-ROW OCCURS 2 TIMES.
10 TABLE-COLUMN OCCURS 3 TIMES.
15 TABLE-ITEM-1 PIC X(1).
15 TABLE-ITEM-2 PIC X(2).
该表中的数据存储结构如图所示。



根据2层嵌套表的定义方式，可定义3层嵌套表如下。
01 NESTED-TABLE-3.
05 TABLE-DEPTH OCCURS 2 TIMES.
10 TABLE-ROW-3 OCCURS 2 TIMES.
15 TABLE-COLUMN-3 OCCURS 3 TIMES.
20 TABLE-ITEM3-1 PIC X(1).
20 TABLE-ITEM3-2 PIC X(2).
对应于以上定义的3层嵌套表，表中数据存储结构如图所示。



依此类推，同样可以定义4层嵌套表直到7层嵌套表。（COBOL-85中最多只能嵌套7层。）表中数据的存储方式为依次在上一层嵌套的基础上加上一个“维度”。因此，相应的3层嵌套表也叫3维表格，4层嵌套表也叫4维表格等等。