精通cobol--9.1.2 表的基本概念

  表就是一组存储在连续空间上的相似数据的集合。所有这些数据被指定为一个名称,即表的一个条目名。以下是一个表的典型结构。

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*/

 

你可能感兴趣的:(精通cobol--9.1.2 表的基本概念)