在SEARCH语句中,主要需要包含所要查找的索引表表名、判断条件、以及满足条件后的处理过程。此处所说的判断条件通常包含两个。其中一个是由用户指定的判断条件, 另一个则对应数据查找结束时的情况。SEARCH语句最基本的格式如下。
SEARCH indexed-table-entry
AT END
do something
WHEN condition
do something else
END-SEARCH.
关于这段代码,有以下两点需要特别注意。
q 对于表中出现的do something,实际上为一组操作语句。并且,该组操作语句通常最多只包含2~3条语句。
q 对于表中出现的condition,为用户指定的判断条件。该判断条件表达式中必须包含以索引引用的表中关键数据项(通常为数据编号)。并且,该关键数据项应出现在判断表达式的左边,即应该作为判断表达式的第一个操作数。以下语句反映了这一要求:
WHEN TEST-KEY (TEST-NDX) = SAME-DATA
↑
通过索引变量TEST-NDX引用的关键数据项为第一个操作数
此外,在实际使用SEARCH语句时,还要在之前对索引变量初始化。这样,SEARCH语句方能知道从哪一条数据开始“SEARCH”。因此,在实际使用中,完整的代码通常如下。
SET index TO x. /*x为任意自然数*/
SEARCH indexed-table-entry
AT END
do something
WHEN condition
do something else
END-SEARCH.
最后,SEARCH语句中还可以同时拥有多条WHEN子句,即可以进行多重条件判断。例如,以下几个条件。
q 当索引所引用的数据为1时,执行statement 1。
q 当索引所引用的数据为2时,执行statement 2。
q 当索引所引用的数据为3时,执行statement 3。
通过多重条件判断,使用SEARCH语句的代码如下。
SEARCH indexed-table-entry
AT END
do something
WHEN data (index) = 1
perform statemen1
WHEN data (index) = 2
perform statemen2
WHEN data (index) = 3
perform statemen3
END-SEARCH.