cobol中的search语句如何使用
在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是一个控制变量，用于在搜索进程中逐一检查每一个数据项。在实际使用时，您需要根据具体情况来定义和使用相应的有序表和条件语句。
相关文章：
- winform窗体数据实时刷新怎么实现,wi···
2023-10-25
- 测试服务器带宽、速度的几个方法？
2023-02-02
- linux中如何使用grep统计个数,Linux中···
2023-08-29
- win10如何将控制面板放到桌面,win10如···
2023-09-11
- 怎么查看本机IP地址,怎么查看本机ip地···
2023-09-07
- 如何用java正则表达式匹配单词,java怎···
2023-10-17
- linux怎样在文件里写内容,linux怎么操···
2023-10-23
- 香港服务器是如何影响网站速度呢？
2023-02-02
- r语言导入数据之后怎样调用,R语言导入···
2023-12-09
- NSTimer的循环引用问题
2023-09-20
推荐文章：
- 选择香港云服务器的关键注意事项
2024-02-13
- 搭建站群服务器时需注意的关键问题
2024-02-13
- 选择美国多IP站群服务器的优势
2024-02-13
- 租用高防服务器的机房因素及其重要性
2024-02-13
- 深入了解服务器DDoS攻击及其类型
2024-02-13
- 棋牌游戏行业选择服务器的关键因素及···
2024-02-13
- 游戏行业租用大带宽服务器的优势
2024-02-13
- 高防服务器防火墙：增强网络安全的多···
2024-02-13
- 选择合适的托管高防服务器方法
2024-02-13
- 选择合适的服务器配置：根据业务需求···
2024-02-13
1对1专业客服
24小时服务支持
365天无间断服务
5分钟快速响应
-
QQ咨询
-
微信咨询
-
TOP