COBOL - 条件语句

17 Mar 2025 | 6 分钟阅读

条件语句用于根据程序员指定的某些条件更改执行流程。条件语句的输出始终为真或假。COBOL包含各种类型的条件语句

If条件语句
关系语句
符号语句
类语句
条件 - 名称语句
否定条件
组合条件

If条件语句

If条件语句用于检查条件，如果条件为真，则执行IF块；如果条件为假，则执行ELSE块。

根据IF语句在COBOL程序中的用法，它主要有三种类型

简单IF

简单IF主要用于执行与条件相关的代码。如果条件为真，则它将执行在IF块中编写的一组语句。如果条件不满足，控制权将转移到IF语句终止后的下一个语句。

语法

IF Condition  
	{Statement Block}
[END-IF].

在这里，END-IF是范围终止符，在程序中是可选的。句点(.)可以在IF块的最后一个语句中定义。

如果我们没有指定句点，那么范围终止符END-IF是强制性的。

IF ELSE

当需要通过两个条件执行某组语句时，使用IF ELSE语句。此语句主要用于执行特定于条件的代码。

在IF-ELSE中，如果指定的条件为真，则将执行语句块。如果条件为假，则将执行另一组语句，这些语句将在ELSE块下。

语法

IF Condition-1
	{Statement-Block-1/NEXT SENTENCE}
[ELSE]  
	{Statement-Block-2/NEXT SENTENCE}
[END-IF].

嵌套IF

与其他COBOL编程语言一样，COBOL也允许嵌套IF语句。IF语句中的IF语句称为嵌套IF语句。嵌套IF语句的深度没有限制。

语法

IF Condition-1 THEN
	IF Condition-2 THEN
		Statements-block-1
	[ELSE
		Statements-block-2
	END-IF]
[ELSE
	IF Condition-3 THEN
		Statements-block-3
	[ELSE
		Statements-block-4
	END-IF]
END-IF.]

示例 1

让我们看一个COBOL程序中IF条件语句的示例

       IDENTIFICATION DIVISION.
           PROGRAM-ID. HELLO.

       DATA DIVISION.
           WORKING-STORAGE SECTION.
           01 WS-NUM1 PIC 9(9).
           01 WS-NUM2 PIC 9(9).
           01 WS-NUM3 PIC 9(5).
           01 WS-NUM4 PIC 9(6).

       PROCEDURE DIVISION.
           A000-FIRST-PARA.
           MOVE 25 TO WS-NUM1 WS-NUM3.
           MOVE 15 TO WS-NUM2 WS-NUM4.
   
       IF WS-NUM1 > WS-NUM2 THEN
           DISPLAY 'IN LOOP 1 - IF BLOCK'
      
       IF WS-NUM3 = WS-NUM4 THEN
           DISPLAY 'IN LOOP 2 - IF BLOCK'
       ELSE
           DISPLAY 'IN LOOP 2 - ELSE BLOCK'
       END-IF
      
       ELSE
           DISPLAY 'IN LOOP 1 - ELSE BLOCK'
       END-IF.
   
       STOP RUN.

输出

示例 2

让我们看另一个IF条件语句的简单示例

      IDENTIFICATION DIVISION.
           PROGRAM-ID. HELLO.

       DATA DIVISION.
           WORKING-STORAGE SECTION.
           01 CHECK-GENDER.
                05 GENDER PIC X(1).
                88 MALE VALUE 'M'.
                88 FEMALE VALUE 'F'.

       PROCEDURE DIVISION.
           MAIN-PARA.
           SET FEMALE TO TRUE.
           IF MALE
                DISPLAY "Gender: Male"
           ELSE
                DISPLAY "Gender: Female"
           END-IF.  
       STOP RUN.

输出

关系条件

关系条件对比两个操作数。这些操作数可以是标识符、文字或算术表达式。

代数数值字段的比较是进行的，无论大小和用法子句如何。

对于非数值操作数

通过比较两个大小相等的非数值操作数，将从左侧开始测量字符，直到到达末尾。具有更多字符的操作数被认为更大。

比较两个大小不同的操作数时，较短的数据项将在末尾附加空格，直到操作数的大小相等，然后根据前一段所述的规则进行比较。

关系运算符定义要进行的比较类型，如下所示

关系运算符	我们可以写成	描述
IS EQUAL TO	IS =	表示，等于
IS GREATER THAN	IS >	表示，大于
IS LESS THAN	IS <	表示，小于
IS NOT GREATER THAN	IS NOT >	表示，不大于
IS NOT LESS THAN	IS NOT <	表示，不小于
IS NOT EQUAL TO	IS NOT =	表示，不等于
IS GREATER THAN OR EQUAL TO	IS >=	表示，大于或等于
IS LESS THAN OR EQUAL TO	IS <=	表示，小于或等于

语法

[Data Name/Arithmetic Operation]

   [IS] [NOT] 

[Equal to (=), Greater than (>), Less than (<),
Greater than or Equal (>=), Less than or equal (<=) ]

[Data Name/Arithmetic Operation]

示例

       IDENTIFICATION DIVISION.
       PROGRAM-ID. HELLO.

       DATA DIVISION.
       WORKING-STORAGE SECTION.
           01 A PIC 9(9).
           01 B PIC 9(9).

       PROCEDURE DIVISION.
           A000-FIRST-PARA.
           MOVE 24 TO A.
           MOVE 13 TO B.
   
       IF A IS GREATER THAN OR EQUAL TO B THEN
            DISPLAY 'A IS GREATER THAN B'
       ELSE
            DISPLAY 'A IS LESS THAN B'
       END-IF.
   
       STOP RUN.

输出

符号条件

符号条件检查数值操作数的符号。它用于确定给定的数值是大于、小于、等于还是零。

语法

[Data Name/Arithmetic Operation] 

   [IS] [NOT] 

[Positive, Negative or Zero]

[Data Name/Arithmetic Operation]

示例

       IDENTIFICATION DIVISION.
        PROGRAM-ID. HELLO.

       DATA DIVISION.
           WORKING-STORAGE SECTION.
           01 A PIC S9(9) VALUE -1234.
           01 B PIC S9(9) VALUE 123456.

       PROCEDURE DIVISION.
           A000-FIRST-PARA.
           IF A IS POSITIVE THEN
               DISPLAY 'A IS POSITIVE'.
      
           IF A IS NEGATIVE THEN
               DISPLAY 'A IS NEGATIVE'.
      
           IF A IS ZERO THEN
               DISPLAY 'A IS ZERO'.
      
           IF B IS POSITIVE THEN
               DISPLAY 'B IS POSITIVE'.

       STOP RUN.

输出

类条件

类条件检查操作数是否仅包含字母或数值数据。在ALPHABETIC、ALPHABETIC-LOWER和ALPHABETIC-UPPER中考虑空格。

语法

[Data Name/Arithmetic Operation>]

   [IS] [NOT] 

[NUMERIC, ALPHABETIC, ALPHABETIC-LOWER, ALPHABETIC-UPPER]

[Data Name/Arithmetic Operation]

示例

       IDENTIFICATION DIVISION.
           PROGRAM-ID. HELLO.

       DATA DIVISION.
           WORKING-STORAGE SECTION.
           01 WS-VAL1 PIC X(9) VALUE 'NIKITA '.
           01 WS-VAL2 PIC 9(9) VALUE 123456789.

       PROCEDURE DIVISION.
           A000-FIRST-PARA.
   
           IF WS-VAL1 IS ALPHABETIC THEN
                DISPLAY 'WS-VAL1 IS ALPHABETIC'.
      
           IF WS-VAL1 IS NUMERIC THEN
                DISPLAY 'WS-VAL1 IS NUMERIC'.
      
           IF WS-VAL2 IS NUMERIC THEN
                DISPLAY 'WS-VAL2 IS NUMERIC'.
   
       STOP RUN.

输出

条件名称条件

条件名称是用户定义的名称。此语句包含一组用户定义的值，并充当布尔变量。级别88定义它们。它不会有PIC子句。

语法

示例

       IDENTIFICATION DIVISION.
           PROGRAM-ID. HELLO.

       DATA DIVISION.
           WORKING-STORAGE SECTION.
           01 WS-NUM PIC 9(3).
           88 PASS VALUES ARE 041 THRU 100.
           88 FAIL VALUES ARE 000 THRU 40.

       PROCEDURE DIVISION.
           A000-FIRST-PARA.
           MOVE 85 TO WS-NUM.
   
           IF PASS 
                DISPLAY 'Passed with ' WS-NUM ' marks'.
      
           IF FAIL 
                DISPLAY 'FAILED with ' WS-NUM 'marks'.
      
       STOP RUN.

输出

否定条件

否定条件通过使用关键字NOT给出。如果条件满足并且我们在其前面给出了NOT，则其最终值将为假。

语法

IF NOT [CONDITION] 
   COBOL Statements
END-IF.

示例

       IDENTIFICATION DIVISION.
           PROGRAM-ID. HELLO.

       DATA DIVISION.
           WORKING-STORAGE SECTION.
           01 WS-NUM1 PIC 9(2) VALUE 20.
           01 WS-NUM2 PIC 9(9) VALUE 25.

       PROCEDURE DIVISION.
           A000-FIRST-PARA.
   
           IF NOT WS-NUM1 IS LESS THAN WS-NUM2 THEN
                DISPLAY 'IF-BLOCK'
           ELSE
                DISPLAY 'ELSE-BLOCK'
           END-IF.
   
       STOP RUN.

输出

组合条件

组合条件语句包括与OR或AND逻辑运算符关联的两个或多个条件。

语法

IF [CONDITION] AND [CONDITION]
   COBOL Statements
END-IF.

示例

       IDENTIFICATION DIVISION.
           PROGRAM-ID. HELLO.

       DATA DIVISION.
           WORKING-STORAGE SECTION.
           01 WS-NUM1 PIC 9(2) VALUE 20.
           01 WS-NUM2 PIC 9(2) VALUE 25.
           01 WS-NUM3 PIC 9(2) VALUE 20.

       PROCEDURE DIVISION.
           A000-FIRST-PARA.
   
           IF WS-NUM1 IS LESS THAN WS-NUM2 AND WS-NUM1=WS-NUM3 THEN
                  DISPLAY 'Both condition OK'
           ELSE
                  DISPLAY 'Error'
           END-IF.
   
       STOP RUN.

输出

Evaluate动词

我们可以使用Evaluate动词来代替一系列IF-ELSE语句。它的工作方式与C程序的SWITCH语句相同。这个动词在评估多个条件时非常有用。

在程序执行期间，它提供多重选择控制。在一次运行中，它可以测试多个条件。

语法

EVALUATE {Expression1}
	WHEN Cond-1
		Statement block-1
	WHEN Cond-2
		Statement block-2
		.
		.
		.
		.
	WHEN Cond-n
		Statement block-n
	WHEN other
		Statement block- other
END-EVALUATE.

示例

       IDENTIFICATION DIVISION.
           PROGRAM-ID. HELLO.

       DATA DIVISION.
           WORKING-STORAGE SECTION.
           01 WS-A PIC 9 VALUE 0.
   
       PROCEDURE DIVISION.
           MOVE 3 TO WS-A.
   
       EVALUATE TRUE
           WHEN WS-A > 2
                DISPLAY 'WS-A GREATER THAN 2'

           WHEN WS-A < 0
                DISPLAY 'WS-A LESS THAN 0'

           WHEN OTHER
                DISPLAY 'INVALID VALUE OF WS-A'
       END-EVALUATE.
   
       STOP RUN.

输出

下一个主题COBOL循环语句

COBOL - 条件语句

If条件语句

简单IF

IF ELSE

嵌套IF

示例 1

示例 2

关系条件

语法

示例

符号条件

语法

示例

类条件

语法

示例

条件名称条件

语法

示例

否定条件

语法

示例

组合条件

语法

示例

Evaluate动词

语法

示例

联系信息

关注我们

教程

面试题

在线编译器

Python

Java

.Net Framework

AI, ML and Data Science

Cloud Technology

B.Tech and MCA

Web Technology

PHP

Software Testing

Technical Interview

Java Interview

Python

Web Interview

Database Interview

B.Tech / MCA

Important Interview

Software Testing Interview

Company Interviews

Online Compilers

Multiple Choice Questions

COBOL 教程

COBOL - 条件语句

If条件语句

简单IF

IF ELSE

嵌套IF

示例 1

示例 2

关系条件

语法

示例

符号条件

语法

示例

类条件

语法

示例

条件名称条件

语法

示例

否定条件

语法

示例

组合条件

语法

示例

Evaluate动词

语法

示例

相关帖子

文件处理

COBOL 数据布局

COBOL 教程

COBOL 数据类型

COBOL 代码表

数组/表格处理

COBOL 程序结构

文件访问模式

文件处理动词

COBOL 安装

订阅 Tpoint Tech

联系信息

关注我们

教程

面试题

在线编译器