精通cobol－－9.16.2 嵌套下标表

　　嵌套下标表是将下标表进行嵌套生成的。上一小节中定义的两个嵌套表都是嵌套下标表。假设某一2层嵌套下标表的定义如下。
01 NESTED-TABLE-2.
05 TABLE-ROW OCCURS 2 TIMES.
10 TABLE-COLUMN OCCURS 3 TIMES.
15 TABLE-ITEM PIC X.
对于该表而言，若要引用其中的具体数据，方式如下。
TABLE-ITEM ( x1, x2 )
或者使用如下方式。
TABLE-ITEM ( x1 x2 )
↑
此处可没有“，”号，但至少要有一个空格。
其中括号中的x1和x2为该数据的两个下标。这两个下标分别对应TABLE-ROW和TABLE-COLUMN。因此，x1的取值范围为1到2；x2的取值范围为1~3。
同样，对于一个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-ITEM-3 PIC X.
则对其中具体数据的引用方式如下。
TABLE-ITEM-3 ( x1, x2, x3 ).
或者使用如下方式。
TABLE-ITEM-3 ( x1 x2 x3 ).
以上数据共有3个下标，即x1，x2，x3。这三个下标的对应关系及取值范围分别如下。
q x1对应TABLE-DEPTH，取值范围：1，2。
q x2对应TABLE-ROW-3，取值范围：1，2。
q x2对应TABLE-COLUMN-3，取值范围：1，2，3。
由此可见，引用嵌套下标表中的数据时，嵌套有几层，该数据相应的就有几个下标。第1个下标对应表中第1层嵌套，第n个下标对应表中第n层嵌套。