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