精通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语句。当表中数据条目较多时，可以很显著地简化代码的书写。