精通cobol－－9.3.1 OCCURS语句的使用方法

OCCURS语句的语法格式如下。

OCCURS n TIMES.

其中，“n”为一个整型数据类型，指明了重复的次数。“TIMES”是该语句固定格式的一部分内容，不可任意指定。OCCURS语句用于在数据部的工作存储节定义表，并且OCCURS不能出现在01级数据类型后。例如，以下代码就错误地使用了OCCURS语句。

01   TEST-TABLE-ONE               OCCURS 5 TIMES.            ← 错误的用法

     05     TEST-ITEM-ONE     PIC  X (3).

     05     TEST-ITEM-TWO     PIC  X (5).        

这里，TEST-TABLE是一个01级数据，其后是不允许跟OCCURS语句的。通常，应该如下使用OCCURS语句进行表的定义。

01   TEST-TABLE-ONE             

     05     TEST-ITEM-ONE     PIC  X (3).     OCCURS 5 TIMES.

     05     TEST-ITEM-TWO     PIC  X (5).     OCCURS 5 TIMES.

以上代码中，TEST-ITEM-ONE数据条目和TEST-ITEM-TWO数据条目重复次数相同。因此，为简便起见，通常情况下可使用表的列来统一定义。当使用表的列来定义时，OCCURS语句应出现在表的列中，代码如下。

01   TEST-TABLE-ONE             

     05     TEST-ROW           OCCURS 5 TIMES.         /*OCCURS语句在表的列后*/

          10     TEST-ITEM-ONE     PIC  X (3).    

          10     TEST-ITEM-TWO     PIC  X (5).    

这样，该段代码和上段代码实现的效果是等价的，但此处只出现了一条OCCURS语句。当表中数据条目较多时，可以很显著地简化代码的书写。