12、COBOL编程：索引、搜索、报表与数据处理

COBOL编程：索引、搜索、报表与数据处理

1. 索引的使用

在COBOL编程中，除了使用下标来引用表中的值，还可以使用索引。索引在使用表时更为常见，并且在表的 SEARCH 语句中也需要使用。与下标不同，索引不是在数据分区的工作存储部分定义为字段，而是作为 OCCURS 语句的一部分进行指定。

以下是一个示例：

01   INVENTORY-TABLE.
   05 INVENTORY-TRANSACTIONS OCCURS 100 TIMES INDEXED BY INDEX-1.
      10 SKU                                         PIC 9(5).
      10 PRODUCT-DESCRIPTION     PIC X(30).

在这个例子中， INDEX-1 是库存表的索引名称，你可以像定义任何字段一样自定义这个名称。 INDEXED BY 命令的优点是COBOL编译器会处理所有细节，程序员无需额外操作。

如果要更改索引的值，可以使用 SET 命令：

SET INDEX-1 TO 2.

还可以使用以下命令对索引值进行增减：

SET INDEX-1 UP