精通cobol－－9.13.1 SEARCH语句的格式

　　在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.