PERFORM [WITH TEST BEFORE/AFTER] VARYING A FROM B BY C UNTIL CONDITION1 过程语句 END-PERFORM. IF语句 IF CONDITION THEN STATEMENTS1/NEXT SENTENCE ELSE STATEMENTS2 END-IF/NEXT SENTENCE/ENDIF NEXT SENTENCE将跳出IF操作语句执行下一条语句。 IF语句中不要使用.句号。.句号将结束所有IF语句。要结束一个...
IF CONDITION THEN STATEMENTS1/NEXT SENTENCE ELSE STATEMENTS2 END-IF/NEXT SENTENCE/ENDIF NEXT SENTENCE将跳出IF操作语句执行下一条语句。 IF语句中不要使用.句号。.句号将结束所有IF语句。要结束一个嵌套的IF语句,可以使用END-IF或者NEXT SENTENCE.如 IF A IF B END-IF ELSE C END-IF.或者 IF A IF B ...
000065 IF WS-BKTRAN-STATUS NOT = '00' 000066 DISPLAY 'BKTRAN FILE ERROR:' WS-BKTRAN-STATUS 000067 END-IF 输入输出控制(I-O-CONTROL)段是可选的,其格式为I-O-CONTROL paragraph-name。它指定外部数据集与COBOL程序之间有效传递数据所需要的信息。I-O-CONTROL段制定重运行点,不同文件的公共内存区域及...
IF条件语句组1 ELSE语句组2 END-IF. STOP停止语句 RUN——停止运行 常量——表示程序暂时挂起不往下执行显示此常量 PERPORM执行语句 PERFORM过程名—>过程部中的节名段名 PERFORM过程名UNTIL条件 USAGE用法子句 定义数据在内存中的存放形式 DISPLAY COMP DISPLY标准数据形式一个字节放一个字符 COMP定点二进制形式 COM...
IF语句 IF CONDITION THEN STATEMENTS1/NEXT SENTENCE ELSE STATEMENTS2 END-IF/NEXT SENTENCE/ENDIF NEXT SENTENCE将跳出IF操作语句执行下一条语句。 IF语句中不要使用.句号。.句号将结束所有IF语句。要结束一个嵌套的IF语句,可以使用END-IF或者NEXT SENTENCE.如 ...
NEXT SENTENCE将跳出IF操作语句执行下一条语句。 IF语句中不要使用.句号。.句号将结束所有IF语句。要结束一个嵌套的IF语句,可以使用END-IF或者NEXT SENTENCE.如 IF A IF B END-IF ELSE C END-IF.或者 IF A IF B ELSE NEXT SENTENCE ELSE C END-IF. EVALUATE 相当于SWITCH CASE语句。 EVALUATE A WHEN B...
IF A IF B ELSE NEXT SENTENCE ELSE C END-IF. EVALUATE 相当于SWITCH CASE语句。 EVALUATE A WHEN B ... WHEN 0 THRU 100 ...(FROM 0 TO 100) WHEN OTHER ... [END-EVALUATE] 首先得到A的结果,和WHEN语句的参数比较,如果和B相等,就执行B后的操作,执行完了不再执行后面的WHEN语句。如果不等就执行...
它的目的是替换IF和SEARCH语句中使用的NEXT SENTENCE语句,或者在需要一个陈述格式的命令语句时不需要执行任何操作。在这种情况下,CONTINUE语句可以用来替换EXIT语句。 EXIT SECTION是2002年标准中引入的。 - Rick Smith 3 2014年的标准仍然如下所述: “EXIT”语句为一系列程序提供共同的终点,[...]必须出现在一个...
COBOL 基本语句--好东西
象IF ELSE END-IF.要在END-IF后面加句号,中间不加。 不区分大小写 运算符和等号左右两边留空格。()左右两边留空格。 表意常量 (又称字义常量,象征常数或赋形常数。FigurativeConstant) 它用某些英文字(保留字)来代表某些特定的常值。如用ZERO代表数值0,用SPACE代表 ...