表就是一组存储在连续空间上的相似数据的集合。所有这些数据被指定为一个名称,即表的一个条目名。以下是一个表的典型结构。
01 EXAMPLE-TABLE-ONE. /*表的名称*/
05 TABLE-COL OCCURS 5 TIMES. /*表的一列,共重复5列*/
10 TABLE-ITEM-1 PIC X(1). /*表的第一个条目*/
…… /*省略表的其他条目*/
10 TABLE-ITEM-N PIC X(3). /*表的最后一个条目*/
由以上代码可看出,表这种数据结构主要是通过OCCURS语句创建的。关于OCCURES语句,将在后面进行更详细的讲解。表的一列包含了表的所有条目。当表中仅有一个条目时,则不需要定义表的列,而直接由条目取代。在该情况下表的定义如下。
01 EXAMPLE-TABLE-TWO. /*表的名称*/
05 TABLE-ITEM PIC X(5). /*表的条目*/
OCCURES 3 TIMES. /*该条目重复3次*/