精通cobol--9.12 处理索引语句SET

  前面已经讲到,对于索引表中的索引变量而言,是不能将其视作通常的变量进行处理的。如果要对索引变量进行操作,必须使用SET语句。使用SET语句对索引变量进行操作,大体上可以分为两大类型的操作。其中一种类型的操作是对其进行赋值操作,另一种是对其进行算术运算操作。

下面结合一个实例分别对二者进行详细讲解。首先,以超市管理系统为基本模型。定义相应的索引表如下。

01  MARKET-TABLE.

05    STORE-ITEM    OCCURS  10  TIMES

                           INDEXED BY  STORE-NDX.              

      10   STORE-ITEM-NUM     PIC 9(9).

      10   STORE-ITEM-NAME   PIC X(10).

05    SALE-ITEM    OCCURS  10  TIMES

                           INDEXED BY  SALE-NDX.              

      10   SALE-ITEM-NUM     PIC 9(9).

      10   SALE-ITEM-NAME   PIC X(10).

这里有两类数据,分别为超市进货数据和超市售出商品数据。其中,以STORE开头的数据对应进货数据,以SALE开头的数据对应售出商品数据。此外,以NUM结尾的数据表示商品编号,以NAME结尾的数据表示商品名称。

该表中的索引变量相应也有两个,分别为STORE-NDXSALE-NDX。以下将重点对这两个索引变量进行讨论。

你可能感兴趣的:(精通cobol--9.12 处理索引语句SET)