表格搜索Cobol问题
创始人
2024-12-10 07:00:18
0

要解决表格搜索Cobol问题,您可以使用以下代码示例:

IDENTIFICATION DIVISION. PROGRAM-ID. SEARCH-TABLE.

DATA DIVISION. WORKING-STORAGE SECTION. 01 TABLE-DATA. 05 TABLE-ENTRY OCCURS 10 TIMES. 10 EMPLOYEE-NAME PIC X(20). 10 EMPLOYEE-ID PIC 9(5).

01 SEARCH-KEY. 05 KEY-NAME PIC X(20).

01 INDEXES. 05 TABLE-INDEX PIC 99 VALUE 0. 05 MATCH-INDEX PIC 99 VALUE 0.

PROCEDURE DIVISION. BEGIN. DISPLAY "Enter employee name to search: ". ACCEPT KEY-NAME.

PERFORM SEARCH-TABLE.

IF MATCH-INDEX > 0 DISPLAY "Employee found at index " MATCH-INDEX ELSE DISPLAY "Employee not found".

STOP RUN.

SEARCH-TABLE. PERFORM VARYING TABLE-INDEX FROM 1 BY 1 UNTIL TABLE-INDEX > 10 IF EMPLOYEE-NAME(TABLE-INDEX) = KEY-NAME MOVE TABLE-INDEX TO MATCH-INDEX EXIT PERFORM END-IF END-PERFORM.

以上代码示例使用COBOL编程语言来实现表格搜索。它首先定义了一个包含员工姓名和员工ID的表格数据。然后,它定义了一个搜索键以接收用户输入的员工姓名。接下来,它定义了两个索引变量,一个用于循环遍历表格,另一个用于存储匹配的索引位置。

在PROCEDURE DIVISION中,程序首先提示用户输入要搜索的员工姓名。然后,它调用SEARCH-TABLE子程序来执行实际的搜索过程。在SEARCH-TABLE子程序中,它使用PERFORM VARYING语句循环遍历表格,检查每个表格条目的员工姓名是否与搜索键匹配。如果找到匹配项,它将匹配的索引位置存储在MATCH-INDEX中,并退出循环。如果未找到匹配项,则MATCH-INDEX保持为0。

最后,程序根据MATCH-INDEX的值显示相应的消息,指示是否找到了匹配的员工。

请注意,上述代码示例假定表格中最多有10个条目。您可以根据实际情况修改代码来适应更大的表格。

相关内容

热门资讯

透视辅助!aapoker有什么... 透视辅助!aapoker有什么规律吗,aapoker能玩原来是有挂(详细有猫腻教程)辅助器中分为三种...
透视辅助!红龙扑克竟然是真的有... 透视辅助!红龙扑克竟然是真的有挂,红龙扑克果然是真的有挂(详细辅助工具教程);无聊就玩这款真的有辅助...
透视辅助!微扑克网页版辅助,(... 透视辅助!微扑克网页版辅助,(微扑克总结)其实有挂(详细wpk透视辅助教程)1)wpk透视辅助辅助挂...
一分钟了解!!红龙poker正... 一分钟了解!!红龙poker正规吗,红龙扑克真是存在有挂(详细辅助器教程);小薇(透视辅助)致您一封...
5分钟了解!微扑克透视辅助脚本... 5分钟了解!微扑克透视辅助脚本,微扑克规律一直真的是有挂(详细wpk透视辅助教程)所有人都在同一条线...
透视辅助!aaPOKER原来是... 透视辅助!aaPOKER原来是真的有挂,aapoker辅助确实存在有挂(详细外卦挂教程);1、实时a...
透视辅助!微扑克ai辅助器苹果... 透视辅助!微扑克ai辅助器苹果版,(微扑克代码)本来是真的有挂(详细ai辅助器苹果版教程)是一款可以...
盘点一款!!德扑计算胜率软件,... 盘点一款!!德扑计算胜率软件,德扑之星模拟器竟然是真的有挂(详细线上房间教程);一、AI软件牌型概率...
透视辅助!wPK透视辅助软件,... 透视辅助!wPK透视辅助软件,WPK线上其实真的是有挂(详细透明挂教程)1、打开软件启动之后找到中间...
透视辅助!wPk果然有挂,wp... 透视辅助!wPk果然有挂,wpk机制好像存在有挂(详细透明挂教程)1、进入游戏-大厅左侧-新手福利-...