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指向下一个元素...
DISPLAY NAME(N),PAY(N).b）SEARCH 表名 [VARYING {位标名1，标识符2}] AT END 强制语句1］WHEN 条件1 {强制语句2，NEXT SENTENCE} [WHEN 条件2 {强制语句3，NEXT SENTENCE}]没有VARYING时，表示用位标1 若VARYING的位标是所SEARCH的表的，则按该位标SEARCH本表,若使用的是另一个表中的...
Search 是一种线性搜索方法,用于查找表内的元素。 它可以在已排序和未排序的表上执行。 它仅用于由索引短语声明的表。 它从索引的初始值开始。 如果没有找到查找到的元素,则索引自动加1,一直到表尾。 示例 IDENTIFICATION DIVISION.PROGRAM-ID.HELLO.DATADIVISION.WORKING-STORAGE SECTION.01WS-TABLE.05WS-A PIC...
SEARCH A [VARYING B] AT END C {WHEN CONDITION D}...END-SEARCH A为带INDEXED BY 短语的表格。每一步都轮流求值CONDITION ,为真时执行D,SEARCH语句终止。 为假时,索引值递增,至最大索引时执行AT END C,SEARCH语句终止。 若一开始索引值即为最大,则不执行WHEN语句,直接执行AT END 语句。 VARYING 指定...
PERFORM A-PARA VARYING I FROM 1 BY 1 UNTIL I >3 STOP RUN. A-PARA. PERFORM C-PARA VARYING J FROM 1 BY 1 UNTIL J>2. C-PARA. DISPLAY WS-C(I,J). 复制 JCL执行上述 COBOL 程序 - //SAMPLE JOB(TESTJCL,XXXXXX),CLASS = A,MSGCLASS = C //STEP1 EXEC PGM = HELLO 复制 当您编...
表格元素也可以使用指数.索引是元素从表开头的位移.使用INDEXED BY子句使用Occurs子句声明索引.可以使用SET语句和PERFORM Varying选项更改索引的值. 语法 以下是语法在表中定义索引 : 01 WS-TABLE. 05 WS-A PIC A(10) OCCURS 10 TIMES INDEXED BY I. 示例 IDENTIFICATION DIV...
45、E举仞SEARCHALLBOOK-TABLEATENDDISPLAY'CANNOTFINDNAME'WHENNAME(N)='COMPUTERDESIGN'DISPLAYNAME(N),NUM(N).九.用PERFORM语句对表进行检索最多可以处理三重循环格式:PERFORM过程名1THRU过程名2VARYING位标名1/下标名1FROM位标名2/常量1/标识符AFTER位标名3/下标名2FROM位标名4/常量3/标识符31 BY常量2/...
1.用于顺序检索的SEARCH语句 在无序表中检索数据只能一个一个的顺序检索,这叫顺序检索法。 SEARCH语句的一般格式之一 位标名1 SEARCH表名[VARYING ] [AT END强制语句1] 标识符2 强制语句2强制语句3 WHEN条件1 WHEN条件2 NEXT SENTENCE NEXT SENTENCE 注意:(1)该语句顺序检索表中的各元素,当未找到满足WHEN条件...
COBOL中的循环控制语句主要包括PERFORM、PERFORM VARYING和SEARCH。PERFORM语句用于重复执行一段代码,直到满足特定条件;PERFORM VARYING用于在循环中改变循环变量的值;SEARCH语句用于在文件中搜索特定的记录。 5. COBOL中的条件判断语句有哪些? COBOL中的条件判断语句主要包括IF语句和EVALUATE语句。IF语句用于简单的条件判断,而...
9.4.4 PERFORM VARYING语句和PERFORM语句的比较 9.5 表的初始化 9.5.1 使用硬性编码方式初始化表 9.5.2 使用输入文件载入方式初始化表 9.5.3 对表初始化的一些灵活技巧 9.6 直接查找方式 9.6.1 如何定义用于直接查找的表 9.6.2 如何进行直接查找 9.6.3 对查找数据的处理 ...