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...
-逻辑运算:使用AND、OR和NOT运算符执行逻辑运算。 -比较运算:使用IF、ELSE和PERFORM语句实现条件判断和循环。 -字符串操作:使用STRING和INSPECT语句进行字符串操作,如连接、截断、替换等。 4.控制流程: -条件判断:使用IF语句进行条件判断,根据条件执行不同的操作。 -循环:使用PERFORM语句实现循环,如DO...UNTIL和DO...
IF X4 MOVE 0.06 TO R. (在5000<=X<=100000时,R=0.06)语法以下是用户定义的条件语句的语法:88 [Condition-Name] VALUE [IS, ARE] [LITERAL] [THRU LITERAL]. 1例IDENTIFICATION DIVISION. PROGRAM-ID. ANDRECC. DATA DIVISION. WORKING-STORAGE SECTION. 01 WS-NUM PIC 9(3). 88 PASS VALUES ARE ...
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）条件 组合（...
IF 语句高级应用 复合条件 由若干个简单的条件可以组成复合的条件。COBOL 用到的逻辑运算符有:AND、OR、NOT。如果在同一个IF 语句中用到AND,OR,NOT,运算顺序按NOT,AND,OR 的次序。 IF 语句的嵌套(通常最多允许四层IF 语句的嵌套) IF 条件1 语句组1 ...
其中最常用的是IF语句,可以根据条件判断是否执行某个程序块。在条件语句中,可以使用比较运算符(如等于、大于、小于)和逻辑运算符(如AND、OR)进行条件的组合和判断。 五、循环语句 COBOL提供了多种循环语句,用于重复执行某个程序块。最常用的是PERFORM UNTIL和PERFORM VARYING语句。PERFORM UNTIL语句会在满足条件之前...
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. ...
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. ...
IF InputRecord(1:1) = 'A' THEN ADD 1 TO RecordCount MOVE InputRecord TO TempData(RecordCount). SortData. * 简单的冒泡排序示例 PERFORM VARYING IDX FROM 1 BY 1 UNTIL IDX = RecordCount PERFORM VARYING IDX2 FROM 1 BY 1 UNTIL IDX2 = RecordCount IF TempData(IDX) > TempData(IDX2) MOVE...