精通cobol－－9.16.3 嵌套索引表

　　嵌套索引表是将索引表嵌套而生成的表。嵌套索引表每层嵌套的都是一张索引表，因此有多少层嵌套就有多少个索引。下面定义一个3层嵌套索引表。

01  NESTED-INDEX-TABLE.

05   TABLE-DEPTH   OCCURS  2  TIMES 

                      INDEXED  BY  NDX-A.

      10    TABLE-ROW   OCCURS   4  TIMES

                            INDEXED  BY  NDX-B.

             15    TABLE-COLUMN   OCCURS  5  TIMES

                                       INDEXED  BY  NDX-C

                                       PIC  X (10).

以上定义的嵌套索引表是3层嵌套的，因此也可被称为三维表格。其中的每一维度相当于这里每一层嵌套的数据项。其中每层数据项所占存储空间大小如下。

q      对于第一层嵌套数据项TABLE-COLUMN而言，空间大小为10个字节。并且该数据项重复出现5次。

q      对于第二层嵌套数据项TABLE-ROW而言，空间大小为5个第一层嵌套数据项的总和。由于第一层嵌套数据项TABLE-COLUMN的大小为5个字节。因此，TABLE-ROW所占空间大小通过以下代数式得出：

5字节（TABLE-COLUMN的大小）* 10 （TABLE-COLUMN的重复次数）= 50字节

q      对于第三层嵌套数据项TABLE-DEPTH而言，同样可得到其空间大小为：

50字节（TABLE-ROW的大小）* 4 （TABLE-ROW的重复次数）= 200字节

计算以上嵌套索引表中各层嵌套数据的空间大小，主要是为了下面计算数据偏移量。结合前面所学知识，索引表中的索引在内存中存储的是所引用数据的偏移量。此偏移量的大小即索引在内存中所存储的真实数值。

下面，首先类似嵌套下标表，对以上嵌套索引表中任意引用一条数据如下。

TABLE-COLUMN    （2 ，3，1）

其中括号中各个数字对应的索引如下。

q      2对应索引变量NDX-A，即第三层嵌套索引变量。

q      3对应索引变量NDX-B。即第二层嵌套索引变量。

q      1对应索引变量NDX-C。即第一层嵌套索引变量。

结合前面计算得到的各层嵌套数据的空间大小。

q      第三层嵌套数据项TABLE-DEPTH每条大小为200字节。

q      第二层嵌套数据项TABLE-ROW每条大小为50字节。

q      第一层嵌套数据项TABLE-COLUMN每条大小为10字节。

得到该条数据的实际偏移量为。

TABLE-COLUMN （2 ，3，1）的偏移量 = （2 * 200 + 3 * 50 +1*10）字节 = 560字节

其中，此时各个index变量在内存中的实际数值大小分别如下所示。

q      NDX-A实际数值为2*200=400

q      NDX-B实际数值为3*50=150

q      NDX-C实际数值为1*10=10

此外，有时还常常对嵌套索引表中的数据以如下方式进行引用。

TABLE-COLUMN    （NDX-A+2 ，NDX-B+3，NDX-C-1）

此时计算该条数据偏移量大小的式子为。

TABLE-COLUMN    （NDX-A+2 ，NDX-B+3，NDX-C-1）的偏移量  =

                              NDX-A在内存中的实际数值大小 + 2 * 200

                           +  NDX-B在内存中的实际数值大小 + 3 * 50

                           +  NDX-B在内存中的实际数值大小 - 1 * 10