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指向下一个...
其一般格式为: IF 条件 语句组1 ELSE 语句组1 [END-IF] NEXT SENTENCE NEXT SENTENCE COBOL关系运算符: IS GREATER THAN (>) IS LESS THAN (<) IS EQUAL TO (=) NOT GREATER THAN (NOT >) (<=) NOT LESS THAN (NOT <) (>=) NOT EQUAL TO (NOT =) 注意:句点在IF 语句中的特殊作用。 如:...
用于有序表的SEARCH语句(折半法检索)(1)说明升(降)序的一般格式为:ASCENDING/DESCENDINGKEYIS数据名1,数据名2ASCENDING/DESCENDINGKEYIS数据名3,数据名4举仞02BOOK-TABLEOCCURS100ASCENDINGKEYISNAMEDESCENDINGKEYISCODINDEXBYN.(2) SEARCH语句的一般格式(之二)SEARCHALL表名;ATEND强制语句1WHEN条件强制语句2/NEXT...
MOVEIDTOPA-ID.MOVEUSERNAMETOPA-USERNAME.MOVESPACESTOPA-AGE.STARTPAKEYNOTLESSTHANPA-KEYINVALIDKEYMOVE"40"TOSTATUS-PA.IFSTATUS-PANOT=IOKGOTO100-PROCESS-EXITEND-IF.*开始读文件,这时候读文件要用到next,来移动游标READPANEXTATENDMOVE"10"TOSTATUS-PA.IFSTATUS-PANOT=IOKMOVE"Y"TOEND-OF-CBGOTO200-PROC...
IF 条件 语句组1 ELSE 语句组1 [END-IF] NEXT SENTENCE NEXT SENTENCE COBOL关系运算符: IS GREATER THAN (>) IS LESS THAN (<) IS EQUAL TO (=) NOT GREATER THAN (NOT >) (<=) NOT LESS THAN (NOT <) (>=) NOT EQUAL TO (NOT =) ...
COBOL 基本语句--好东西
END-READ. 1. 2. 3. 4. 下面是所使用的参数: NEXT RECORD是可选的,在顺序读取索引顺序文件时指定。 INTO子句是可选的。ws-file-structure在工作存储节中定义,以从READ语句中获取值。 当到达文件末尾时,AT END条件为true。 例:以下示例使用行顺序组织读取现有文件。这个程序可以使用Try it选项进行编译和执行...
Db2 嵌入式 SQL 仅支持以原子方式运行数组 insert/update/delete 操作。 Db2 预编译器不考虑结构/记录数组的声明。 Db2 服务器和客户机不支持 ROWSET 游标。 因此, Db2 预编译器会从 DECLARE CURSOR 语句中删除 WITH ROWSET 句定位关键字,并从 FETCH 语句中删除 NEXT ROWSET 关键字。父...
它的目的是替换IF和SEARCH语句中使用的NEXT SENTENCE语句,或者在需要一个陈述格式的命令语句时不需要执行任何操作。在这种情况下,CONTINUE语句可以用来替换EXIT语句。 EXIT SECTION是2002年标准中引入的。 - Rick Smith 3 2014年的标准仍然如下所述: “EXIT”语句为一系列程序提供共同的终点,[...]必须出现在一个...
Example : (cobcdb) next -event-next -event-end-stepping-range (cobcdb)#0 hello () at Page 37 COBOL-IT Compiler Suite – Getting Started C:/COBOL/CobolIT/samples/hello.cbl!17 Version 4.1 print displays the value of the variable in human readable format. Example: print message-line $...