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 search-condition perform perform-statement END-SEARCH ``` 其中,`table-name`是一个已排序的表或数组,`end-perform-statement`是在查找结束时执行的语句,`search-condition`是一个可以用来过滤查找的条件,`perform-statement`是在满足搜索条件时执行的语句。 使用SEARCH ALL可以在一个有序的表中快速查找某个...
SEARCH 表名 [VARYING 位标名1/标识符2] [AT END 强制语句1] WHEN 条件1 强制语句2 / NEXT SENTENCE [WHEN 条件2 强制语句3 / NEXT SENTENCE] …… SEARCH语句是这样执行的:从指定的表元素开始,检查是否满足WHEN后面指定的条件。如不满足,就使N(位标)增值,自动执行一个SET N UP BY 1。使N指向下一个...
1. 用于顺序检索的SEARCH语句 a）01 WORKER-REC.02 WORKER-TABLE OCCURS 50 TIMES INDEXED BY N.04 NUMB PIC 9(4).04 NAME PIC X(20).04 AGE PIC 9(3).SET N TO 1. (N必须为位标)SEARCH WORKER-TABLE AT END DISPLAY ‘CANNOT FIND NAME’WHEN NAME(N) = ‘CHANG SAN’DISPLAY NAM...
SEARCH 表名 [VARYING 位标名1/标识符2] [AT END 强制语句1]WHEN 条件1 强制语句2 / NEXT SENTENCE [WHEN 条件2 强制语句3 / NEXT SENTENCE]……SEARCH语句是这样执行的:从指定的表元素开始,检查是否满足WHEN后面指定的条件。如不满足,就使N(位标)增值,自动执行一个SET N UP BY 1。使N指向下一个元素...
Search 是一种线性搜索方法,用于查找表内的元素。 它可以在已排序和未排序的表上执行。 它仅用于由索引短语声明的表。 它从索引的初始值开始。 如果没有找到查找到的元素,则索引自动加1,一直到表尾。示例IDENTIFICATION DIVISION. PROGRAM-ID. HELLO. DATA DIVISION. WORKING-STORAGE SECTION. 01 WS-TABLE. 05 ...
它与 Search 和 Search All 一起使用来定位表中的元素。 Syntax 以下是使用 Set 语句的语法 - SET I J TO positive-number SET I TO J SET I TO 5 SET I J UP BY 1 SET J DOWN BY 5 复制 Example IDENTIFICATION DIVISION. PROGRAM-ID. HELLO. DATA DIVISION. WORKING-STORAGE SECTION. 01...
SEARCH 是串行搜索,而 SEARCH ALL 是二分搜索。 在使用"SEARCH ALL"之前,表必须按排序顺序排列。执行SECTION 和 PARAGRAPH 之间有什么区别? 执行一个 SECTION 将导致执行该部分的所有段落。 执行 PARAGRAPH 将导致仅执行特定段落。什么是范围终止符? 范围终止符用于标记动词的结束。 示例:IF 和 END-IF。COBOL中...
一．表的概念COBOL语言中的表（TABLE）类似于其他高级语言中的数组（ARRAY）。Student-recordwangmath9(4)2019/2/24 zhangmath9(4)eng9(4)………math9(4)lieng9(4)zhumath9(4)eng9(4)eng9(4)CobolforZ900语言程序设计 01student-record.02wang.03mathpic9(4).03engpic9(4).02zhang.03mathpic9(4...
SEARCH ALL 用在二叉搜索中,SEARCH 用在顺序 查找中 Q78:REPLACING 项复制语句的要点是什么 A78:REPLACING 用对指定的数据做不止一次的相同拷贝,也就是说在同一段程序中要多次 拷贝相同的数据的时候用 REPLACING Q79:在 COBOL 中如果你用 GO BACK 代替 STOP RUN 会发生什么,该程序没有调用别的程序 A79:当然...