此处以一个图书管理系统对于读者的管理为例,讲解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
本文通过一个图书管理系统实例,详细解释了如何使用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

被折叠的 条评论
为什么被折叠?