在COBOL中，SEARCH语句用于在一个有序表中查找特定的数据项。
SEARCH语句的一般语法如下：
SEARCH AT END
WHEN
WHEN
...
WHEN
END-SEARCH
其中，是需要查找的有序表，可以是一个数组或一个带有索引的表。
以下是一个使用SEARCH语句的示例：
01 Names-Table.
05 Name OCCURS 10 TIMES.
10 Name-Value PIC X(20).
01 Search-Name PIC X(20).
PROCEDURE DIVISION.
PERFORM INITIALIZATION.
PERFORM SEARCH-NAME.
INITIALIZATION.
MOVE "John" TO Name-Value(1)
MOVE "Mary" TO Name-Value(2)
MOVE "David" TO Name-Value(3)
...
MOVE "Alice" TO Name-Value(10).
SEARCH-NAME.
MOVE "John" TO Search-Name.
SEARCH Names-Table
AT END DISPLAY "Name not found."
WHEN Name-Value(I) = Search-Name
DISPLAY "Name found at index " I
EXIT.
在上面的示例中，我们定义了一个名为Names-Table的有序表，并初始化了其中的数据项。然后，我们使用SEARCH语句来在Names-Table中搜索名为"John"的数据项。在搜索过程中，我们使用了一个条件WHEN Name-Value(I) = Search-Name来指定搜索条件，当找到匹配的数据项时，显示相应的信息并退出搜索。
请注意，Name-Value(I)中的I是一个控制变量，用于在搜索过程中逐个检查每个数据项。在实际使用时，您需要根据具体情况来定义和使用相应的有序表和条件语句。
上一篇python导入本地模块的方法有哪些
下一篇cobol中copy语句怎么引用
推荐文章
在COBOL中，可以使用负号 “-” 来表示负数。可以直接在数据项上加上负号来表示一个负数，例如：
2025-02-05 22:30
在COBOL语言中，COMP类型用于定义整数变量。
2025-02-05 22:27
COBOL（Common Business-Oriented Language）是一种用于商业应用程序开发的编程语言，它具有以下特点： 适合处理大型商业应用程序：COBOL是一种强大且适用于处理...
2025-02-05 22:27
在COBOL中，EVALUATE语句用于处理多个条件的逻辑判断。下面是一个使用EVALUATE语句的示例：
2025-02-05 22:27
在Python中，有几种不同的方法可以导入本地模块。 直接导入整个模块： import module_name 这将导入整个模块，并将其命名为module_name。您可以通过使用module_n...
2025-02-05 22:18
MySQL预编译语句的方法主要有两种：使用预处理语句和使用存储过程。 使用预处理语句（Prepared Statements）：预处理语句是在应用程序和数据库之间执行的一种机制...
2025-02-05 22:15
在Java中，可以使用java.util.Random类来实现随机生成一个数。以下是一个示例代码：
2025-02-05 22:15
要设置MFC中的按钮为不可用，可以使用按钮的EnableWindow函数。 打开MFC对话框资源编辑器，选择要设置为不可用的按钮。 在类视图中找到该按钮的对应变量。 在需要...
2025-02-05 22:15
117笔记问答