精通cobol－－9.9.2 具体查找过程

　　以上3种查找方式实际是根据各自不同的查找过程进行区分的。下面对这3种查找方式的查找过程分别予以讲解。

1．直接查找方式

直接查找方式就是通过数据编号直接对表中数据进行查找。具体做法就是将数据编号的值MOVE到下标中，再通过下标引用所要查找的数据。此外，由于下标是直接给出的，因此最后还要对其进行合法性检测。实现代码如下。

MOVE key TO sub.

IF  sub > 0 AND sub < total                              /*对下标进行合法性检测*/

    MOVE data  (sub)  TO  found-data                 

ELSE

    MOVE ‘Y’ TO ERROR-FLAG                        

END-IF

其中key指要查找的数据编号，sub指下标，data是数据条目名称，total指表中数据总量。found-data变量保存查找到的数据。

2．顺序查找方式

顺序查找方式就是从表的第一条数据开始，顺次往下进行查找，直到找到所需查找数据为止。若直到表中最后一条数据仍没有符号要求的，则查找失败。顺序查找方式通常要结合PERFORM VARYING语句完成。实现代码如下。

PERFORM  find-process

VARYING  sub FROM 1 BY 1

UNTIL     sub > total

OR

FOUND-FLAG = ‘Y’.

……

find-process.

          IF  data-num  (sub) = key

MOVE ‘Y’ TO FOUND-FLAG

MOVE data  (sub) TO found-data

          END-IF.

其中，find-process为每一步查找过程的名称。data-num为表中数据编号条目名称，并通过下标引用具体的数据编号。引用形式为data-num  (sub)。其余名称对应的变量意义和上面直接查找的代码中对应的是一样。

3．二分查找方式

二分查找方式就是每次从表的中间数据开始查找起。每查找一次，将忽略掉一半数据，只在剩下的一半中继续查找。二分查找方式实际上是用到了递归的算法。

关于二分查找方式的具体实现过程，本书不要求用 COBOL 语言来编写相应代码。但二分查找的算法思想是必须要掌握的。并且，在后面要讲到的用 SEARCH ALL 语句查找索引表，就是依据二分查找的算法进行的。