精通cobol--9.12 处理索引语句SET
2008-04-28 10:24
309 查看
前面已经讲到,对于索引表中的索引变量而言,是不能将其视作通常的变量进行处理的。如果要对索引变量进行操作,必须使用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-NDX和SALE-NDX。以下将重点对这两个索引变量进行讨论。
下面结合一个实例分别对二者进行详细讲解。首先,以超市管理系统为基本模型。定义相应的索引表如下。
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-NDX和SALE-NDX。以下将重点对这两个索引变量进行讨论。
相关文章推荐
- 精通cobol--9.12.1 使用SET语句对索引赋值
- 精通cobol--9.12.2 使用SET语句对索引进行算术运算
- 精通cobol--9.4.2 如何使用PERFORM VARYING语句处理表中数据
- Oracle查询语句中指定索引时优化器及指定索引不好使的处理方法
- 精通cobol--9.3.1 OCCURS语句的使用方法
- 精通cobol--9.4.1 PERFORM VARYING语句的使用方法
- 精通cobol--9.13 查找索引表语句SEARCH
- 精通cobol--9.13.1 SEARCH语句的格式
- 批处理for语句从入门到精通
- 精通cobol--9.3.2 使用OCCURS语句得到的表空间结构
- 精通cobol--9.4.3 PERFORM VARYING语句的一些灵活应用
- 精通cobol--9.11.3 索引的特点
- 精通cobol--9.13.2 SEARCH语句的功能
- 精通cobol--9.11.4 索引表的内部存储结构
- 精通cobol--9.4.4 PERFORM VARYING语句和PERFORM语句的比较
- 精通cobol--9.14 查找索引表语句SEARCH ALL
- 精通COBOL--16.3.3 输入过程中的异常处理
- 精通cobol--9.6.3 对查找数据的处理
- 精通cobol--9.14.1 SEARCH ALL语句的格式要求
- 精通COBOL--16.2 CICS编译处理过程