精通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语句查找索引表，就是依据二分查找的算法进行的。