精通cobol－－9.12.1 使用SET语句对索引赋值

前面讲过，不能按照通常的方式，使用MOVE语句对索引变量赋值。对索引变量赋值，必须使用SET语句。下面结合几个小例子，具体谈谈如何使用SET语句进行赋值操作。
（1）求取索引为3所对应的进货商品编号和名称。此处可以首先将索引变量STORE-NDX置为3。然后，再通过该索引变量引用所求数据，并将结果存入相应位置。代码如下。
SET STORE-NDX TO 3. /*这里使用SET语句对索引变量赋值*/
MOVE STORE-ITEM-NUM (STORE-NDX) TO RESULT-NUM.
MOVE STORE-ITEM-NAME (STORE-NDX) TO RESULT-NAME.
（2）求取索引为5对应的进货商品编号以及售出商品编号。此处可以采用和例1中同样的方式，分别对STORE-NDX和SALE-NDX赋值。然后，再通过这两个索引变量各自引用其对应的数据，完成操作。代码如下。
SET STORE-NDX TO 5.
SET SALE-NDX TO 5.
MOVE STORE-ITEM-NUM (STORE-NDX) TO RESULT-STORE-NUM.
MOVE SALE-ITEM-NUM (SALE-NDX) TO RESULT-SALE-NUM.
然而，注意到这里对两个索引变量所赋的值是一样的，都为数字5。因此，还可以通过SET语句对这两个变量统一进行赋值。这种方式下的代码如下。
SET STORE-NDX SALE-NDX TO 5.
MOVE STORE-ITEM-NUM (STORE-NDX) TO RESULT-STORE-NUM.
MOVE SALE-ITEM-NUM (SALE-NDX) TO RESULT-SALE-NUM.
（3）假设程序中另外存在两个整型数据变量，分别为INPUT-NUM和OUTPUT-NUM。并且，其中INPUT-NUM变量中已保存有相应数据。现需引用索引为INPUT-NUM的卖出商品名称.。其后，再将此时的索引数值输出到OUTPUT-NUM变量中，以便观察。
对于本例而言，主要涉及到索引变量和其他通常变量之间的赋值操作。仍然使用SET语句完成操作。代码如下。
SET INPUT-NUM TO SALE-NDX.
MOVE SALE-ITEM-NAME (SALE-NDX) TO RESULT-SALE-NAME.
SET SALE-NDX TO OUTPUT-NUM.