Set 动词用于初始化、增加或减少索引值。它与 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...
SECTION.01WS-TABLE.05WS-A PIC X(1) OCCURS18TIMES INDEXED BY I.01WS-SRCH PIC A(1) VALUE'M'.PROCEDUREDIVISION.MOVE'ABCDEFGHIJKLMNOPQR'TO WS-TABLE.SET I TO1.SEARCH WS-A AT END DISPLAY'M NOT FOUND IN TABLE'WHEN WS-A(I) = WS-SRCH DISPLAY'LETTER M FOUND IN TABLE'END-SEARCH.STOP...
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指向下一个元素...
9.11.5 索引表和下标表的比较 9.12 处理索引语句SET 9.12.1 使用SET语句对索引赋值 9.12.2 使用SET语句对索引进行算术运算 9.13 查找索引表语句SEARCH 9.13.1 SEARCH语句的格式 9.13.2 SEARCH语句的功能 9.14 查找索引表语句SEARCH ALL 9.14.1 SEARCH ALL语句的格式要求 9.14.2 SEARCH ALL语句的实际应用 9.15 定...
Set动词用于初始化,递增或递减索引值.它与Search and Search All一起用于定位表中的元素. 语法 以下是使用的语法a Set语句 : SET I J TO positive-numberSET I TO JSET I TO 5SET I J UP BY 1SET J DOWN BY 5 示例 IDENTIFICATION DIVISION.PROGRAM-ID...
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 ...
SEARCH表名[VARYING ] [AT END强制语句1] 标识符2 强制语句2强制语句3 WHEN条件1 WHEN条件2 NEXT SENTENCE NEXT SENTENCE 注意:(1)该语句顺序检索表中的各元素,当未找到满足WHEN条件的记录则转入NEXT SENTENCE。SEARCH语句检索的表必须用位标法引用。在WHEN条件中必须出现位标法引用的表元素。 例:SET I TO 1...
在链接(LKED)作业步中,第31行的SYSLIN是它的输入,注意,这里指向的正好是编译作业步的输出,即临时数据集(&&LOADSET),第28行和第29行的两个数据集使用同一个DD名(SYSLIB),我们称其为数据集的串联(Concatenate),该数据集提供程序装配时需要的系统模块。第32行的SYSLMOD就是链接的输出数据集即可执行模块存放的数据...
现在在家，手里没资料，不然可以帮你查查。另外索引一般对应的是表的操作，下标对应的是OCCURS定义的数组的操作。再另外，表的概念其实与数组类似，只是COBOL提供了一些对表操作的检索等定位语句。最后另外，表的定义是一般用来出打印报表的，MICROFOCUS COBOL用的较多。前面兄弟说的SEARCH语句属于表操作语句...