12、COBOL 编程：索引、搜索、报表与字符串处理

COBOL 编程：索引、搜索、报表与字符串处理

1. 索引的使用

在 COBOL 中，除了使用下标来引用表中的值，还可以使用索引，而且在使用表时，索引更为常见。索引与下标不同，它不在数据分区的工作存储部分中定义为字段，而是作为 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 BY 1.
SET INDEX-1 DOWN BY 1.

SET INDEX-1 UP BY 1 会将 INDEX-1 的值增加 1，而 SET