-逻辑运算:使用AND、OR和NOT运算符执行逻辑运算。 -比较运算:使用IF、ELSE和PERFORM语句实现条件判断和循环。 -字符串操作:使用STRING和INSPECT语句进行字符串操作,如连接、截断、替换等。 4.控制流程: -条件判断:使用IF语句进行条件判断,根据条件执行不同的操作。 -循环:使用PERFORM语句实现循环,如DO...UNTIL和DO...
IF A = 1 OR 2 OR 3 THEN ... END-IF. 另外,除了EVALUATE,你还可以使用88层实现对A的多值判断: DATA DIVISION. WORKING-STORAGE SECTION. 01 A PIC 9 VALUE 0. 88 A-1 VALUE 1. 88 A-2 VALUE 2. 88 A-3 VALUE 3. ... PROCEDURE DIVISION. ... IF A-1 OR A-2 OR A-3 TH...
条件语句（conditional statement）是⽤于根据程序员指定的某些条件更改执⾏流。条件语句将始终计算为true或false。条件被使⽤在IF, Evaluate 和 Perform语句。不同类型的条件语句如下：IF条件语句 关系（·）条件 符号（sign）条件 类（class）条件 条件名称（Condition-Name）条件 否定（negated）条件 组合（...
由若干个简单的条件可以组成复合的条件。COBOL 用到的逻辑运算符有:AND、OR、NOT。如果在同一个IF 语句中用到AND,OR,NOT,运算顺序按NOT,AND,OR 的次序。 IF 语句的嵌套(通常最多允许四层IF 语句的嵌套) IF 条件1 语句组1 ( IF 条件11 语句组11 ELSE 语句组12 END-IF ) ELSE 语句组2 ( IF 条件22 ...
IF A IS [NOT] NEGATIVE 判断是否小于0 IF A IS [NOT] ZERO 判断是否等于0 COBOL支持NOT ,AND ,OR 操作。 PERFORM 过程调用,但是不传递参数。 PERFORM PROC1 [THROUGH PROC2] 执行完PROC1再执行PROC2.没有THROUGH(THRU)就只执行PROC1. PERFORM PROC1 [THRU PROC2] N TIMES ...
IF WS-NUM1 IS GREATER THAN OR EQUAL TO WS-NUM2 THEN DISPLAY 'WS-NUM1 IS GREATER THAN WS-NUM2' ELSE DISPLAY 'WS-NUM1 IS LESS THAN WS-NUM2' END-IF. STOP RUN. 复制 JCL执行上述 COBOL 程序 - //SAMPLE JOB(TESTJCL,XXXXXX),CLASS = A,MSGCLASS = C //STEP1 EXEC PGM = HELLO...
其中最常用的是IF语句,可以根据条件判断是否执行某个程序块。在条件语句中,可以使用比较运算符(如等于、大于、小于)和逻辑运算符(如AND、OR)进行条件的组合和判断。 五、循环语句 COBOL提供了多种循环语句,用于重复执行某个程序块。最常用的是PERFORM UNTIL和PERFORM VARYING语句。PERFORM UNTIL语句会在满足条件之前...
(或),如果在一个IF语句中同时用到AND,OR,其优先级是:AND ORIF ( A1000 AND A 0类型条件:检查数据项的类型是否符合指定的要求,即数据项的内容是否全为数字或字母IF 数据名 IS NOT NUMERIC | ALPHABETIC | ALPHABETIC-LOWER | ALPHABETIC-UPPER 77 T PIC A(4) VALUE WANG.IF T IS ALPHABETIC /true五....
IF A IS [NOT] ZERO判断是否等于0 COBOL支持NOT ,AND ,OR操作。 PERFORM 过程调用,但是不传递参数。 PERFORM PROC1 [THROUGH PROC2] 执行完PROC1再执行PROC2.没有THROUGH(THRU)就只执行PROC1. PERFORM PROC1 [THRU PROC2] N TIMES 执行PROC1[或者还有PROC2]N次。 PERFORM PROC1 [THRU PROC2] [WITH ...
TO FIELD-ERROR-SWITCH ELSE IF (P-N-NUM-2 < 0) OR (P-N-NUM-20 > 68 AND < 79) OR (P-N-NUM-2 >99) MOVE 'YES' TO FIELD-ERROR-SWITCH END-IF END-IF END-IF IF FIELD-ERROR-SWITCH = 'YES' MOVE 'YES...