本文通过一个图书管理系统实例，详细解释了如何使用SEARCH ALL语句在COBOL程序中查找特定读者信息。具体场景为查找借书证号为1023的读者姓名，成功找到时将姓名存储到FOUND-NAME变量，并设置FOUND-FLAG为“Y”，未找到则相应变量清空并设置FOUND-FLAG为“N”。
此处以一个图书管理系统对于读者的管理为例，讲解SEARCH ALL语句在实际中的应用。对于读者数据而言，主要应包含读者的借书证号和读者的姓名这两项数据。假设表中只包含4名读者，则定义并初始化相应的索引表如下。
01 READERS-DATA.
05 FILLER PIC 9(4) VALUE 1002.
05 PIC X(10) VALUE ‘XIAO MING’.
05 PIC 9(4) VALUE 1005.
05 PIC X(10) &nb
最低0.47元/天 解锁文章
扫一扫
评论
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
查看更多评论
添加红包
