IF 语句检查条件。 如果条件为 true,则执行 IF 块; 如果条件为 false,则执行 ELSE 块。END-IF 用于结束 IF 块。 要结束 IF 块,可以使用句点代替 END-IF。 但对于多个 IF 块,最好使用 END-IF。Nested-IF − IF 块出现在另一个 IF 块内。 嵌套 IF 语句的深度没有限制。
IF 条件语句 IF 语句检查条件。如果条件为真,则执行 IF 块;如果条件为假,则执行 ELSE 块。 END-IF用于结束 IF 块。要结束 IF 块,可以使用句点代替 END-IF。但是对于多个 IF 块总是最好使用 END-IF。 嵌套IF− 出现在另一个 IF 块内的 IF 块。嵌套 IF 语句的深度没有限制。 句法 以下是 IF ...
当IF 命令嵌套且存在 ELSE 子句时,给定的 ELSE 或END-IF 将与同一块中最接近的前置 IF 子句相关联。与COBOL 不同, z/OS Debugger 需要在命令之后终止标点符号 (;)。 END-IF 关键字是必需的。使用说明如果IF 子句导致 z/OS Debugger 获取更多输入,那么应始终包含 ELSE 子句(例如, IF 包含导致 z/OS ...
PERFORM 过程名1 [THROUGH/THRU] 过程名2 [VARYING 参数1 FROM 初值1 BY 步长1 UNTIL 条件1][AFTER 参数2 FROM 初值2 BY 步长2 UNTIL 条件2][AFTER 参数3 FROM 初值3 BY 步长3 UNTIL 条件3]END-PERFORM.还有一个 IF ~ELSE ~END-IF.PERFORM UNT...
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条件语句 IF语句检查条件。如果条件为真（true），则执⾏IF块；如果条件为假（false），则执⾏ELSE块。END-IF：⽤于结束IF块。也可以使⽤⼀个句号替代END-IF结束IF块。但是对于多个IF块，最好使⽤END-IF。***Nested-IF（嵌套）***：IF块出现在另⼀个IF块中。嵌套IF语句的深度没有限制。语法...
1、IF语句 IF语句包含以下三种: ·IF条件 THEN 语句(无“.”结束) END-IF. ·IF条件 THEN 语句(无“.”结束) ELSE 语句(无“.”结束) END-IF. ·IF条件 THEN 语句(无“.”结束) ELSE IF条件 THEN 语句(无“.”结束) END-IF END-IF. 注: IF语句最多只能使用三层嵌套,条件用括号括起来。 2、关...
MOVE NUMVAL-C(A) TO C IF C < NUMVAL-C(B) DISPLAY "A is less than B" ELSE IF C > NUMVAL-C(B) DISPLAY "A is greater than B" ELSE DISPLAY "A is equal to B" END-IF 复制代码以上是COBOL中数字字符比较大小的两种常用方法,你可以根据需要选择其中一种来使用。0...
IF Condition {Statement Block} [END-IF]. Example: IF GENDER = 'MALE' DISPLAY “HE IS A MALE” END-IF. IF ELSE: IF ELSE statement is used when a certain set of statements needed to be executed by two conditions. This statement is mainly used to execute the condition-specific code. ...
END-IF. STOP RUN. JCL执行上述COBOL程序 - //SAMPLE JOB(TESTJCL,XXXXXX),CLASS = A,MSGCLASS = C //STEP1 EXEC PGM = HELLO 编译并执行上述程序时,会产生以下结果 - IN LOOP 1 - IF BLOCK IN LOOP 2 - ELSE BLOCK 关系条件 关系条件比较两个操作数,其中任何一个都可以是标识符,文字或算术表达式...