精通cobol－－9.2.1 如何定义下标表

　　在COBOL中，下标相当于各数据在表中的编号。以下标管理数据的表也就是下标表。下标表实际上就是通常所说的最基本的表。因此，对于下标表的定义方式，同上节中表的定义方式类似。这里不妨继续延用上节的例子，则下标表的结构定义如下。

01  ANNUAL-DEPOSIT-TABLE.             

    05  DEPOSITS       PIC 9(5)  

                        OCCURES 12 TIMES.

此外，由于作为下标表，因此还需再定义一个下标。下标名称任意指定，但通常是在对应的表的条目后加上SUB，以利区分。定义语句如下。

05  DEPOSITS-SUB    PIC 99     USAGE IS COMP.

将下标定义语句加入到表的基本结构定义语句中就可定义一个下标表了。对于上节零存整取系统的例子而言，完整的下标表的定义语句如下。

01  ANNUAL-DEPOSIT-TABLE.             

    05  DEPOSITS       PIC 9(5)  

                        OCCURES 12 TIMES.

  05  DEPOSITS-SUB    PIC 99     USAGE IS COMP.

这里，ANNUAL-DEPOSIT-TABLE 是该下标表的名称；DEPOSITS是该表的一个条目名，其中共包括12个相似数据；DEPOSITS-SUB是该表的下标。