NEXT RECORD 是可选的,在顺序读取索引顺序文件时指定。 INTO 子句是可选的。 ws-file-struct在WorkingStorage部分中定义,用于从READ语句中获取值。 到达文件末尾时,AT END 条件变为 True。示例 − 以下示例使用行顺序组织读取现有文件。 该程序可以使用Live Demo选项进行编译和执行,它将显示文件中存在的所有记录...
NEXT RECORD 是可选的,在顺序读取索引顺序文件时指定。 INTO 子句是可选的。ws-file-structure 在 WorkingStorage 部分中定义,用于从 READ 语句中获取值。 到达文件末尾时,AT END 条件变为 True。 例如− 以下示例使用行顺序组织读取现有文件。该程序可以使用编译和执行Live Demo选项,它将显示文件中存在的所...
[AT END 强制语句1]WHEN 条件1 强制语句2 / NEXT SENTENCE [WHEN 条件2 强制语句3 / NEXT SENTENCE]……SEARCH语句是这样执行的:从指定的表元素开始,检查是否满足WHEN后面指定的条件。如不满足,就使N(位标)增值,自动执行一个SET N UP BY 1。使N指向下一个元素的 地址,如果查到某一个元素满足指定的条件...
用于有序表的SEARCH语句(折半法检索)(1)说明升(降)序的一般格式为:ASCENDING/DESCENDINGKEYIS数据名1,数据名2ASCENDING/DESCENDINGKEYIS数据名3,数据名4举仞02BOOK-TABLEOCCURS100ASCENDINGKEYISNAMEDESCENDINGKEYISCODINDEXBYN.(2) SEARCH语句的一般格式(之二)SEARCHALL表名;ATEND强制语句1WHEN条件强制语句2/NEXT...
它的目的是替换IF和SEARCH语句中使用的NEXT SENTENCE语句,或者在需要一个陈述格式的命令语句时不需要执行任何操作。在这种情况下,CONTINUE语句可以用来替换EXIT语句。 EXIT SECTION是2002年标准中引入的。 - Rick Smith 3 2014年的标准仍然如下所述: “EXIT”语句为一系列程序提供共同的终点,[...]必须出现在一个...
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语言程序设计语言程序设计2021-12-14(2)SEARCH语句的一般格式(之二)语句的一般格式(之二) SEARCH ALL 表名表名;AT END 强制语句强制语句1 WHEN 条件条件 强制语句强制语句2/NEXT SENTENCE举例:举例:SEARCH ALL BOOK-TABL 52、E AT END DISPLAYCANNOT FIND NAME WHEN NAME(N) = COMPUTER DESIGN DISPLAY ...
.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-PROCESS-EXITEND-...
AT END DISPLAY ‘CANNOT FIND NAME’WHEN NAME(N) = ‘CHANG SAN’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的位...
COBOL 基本语句--好东西