精通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层嵌套。