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

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

1. 索引的使用

在创建复杂表格时，除了使用下标引用值，还可以使用索引，在表格操作中索引更为常见，并且在表格的 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 BY 1.
SET INDEX-1 DOWN BY 1.

索引比下标更高效，因为它能直接指向内存中的值，而下标则需通过中间步骤实现。在获取文件时，使用索引