COBOL Conditional Clauses

Every program needs to "make" decisions at some point.

To achieve this COBOL provides conditional clauses like IF.

Syntax

IF condition (THEN)
  PERFORM DO SOMETHING.
ELSE 
  PERFORM DO SOMETHING ELSE
END IF.

Below a simple program, which displays "Hello World" on the screen, if a user types in "Y".

If a user types in anything else, "You answered No." is displayed.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
      ******************************************************************
      * Author:
      * Date:
      * Purpose:
      * Tectonics: cobc
      ******************************************************************
       IDENTIFICATION DIVISION.
       PROGRAM-ID. CONDITION-IF.
       DATA DIVISION.
       FILE SECTION.
       WORKING-STORAGE SECTION.
       01  IS-DISPLAY PIC A(1).
       PROCEDURE DIVISION.
       MAIN-PROCEDURE.
           ACCEPT IS-DISPLAY.
           IF IS-DISPLAY IS EQUAL "Y"
               DISPLAY "Hello world."
           ELSE
               DISPLAY "You answered No."
           END-IF.
           STOP RUN.
       END PROGRAM CONDITION-IF.
 

The comparison in above program is case sensitive. 

END-IF is the scope terminator. You could use just a dot (.) as scope terminator, but good coding practice forbids that.

The THEN clause is optional.

Binary Operators

Binary operators are used to combine different conditions. You have the following binary operators available.

  • AND
  • OR

The following program shows a combination of conditions using binary operators and parenthesis.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
      ******************************************************************
      * Author:
      * Date:
      * Purpose:
      * Tectonics: cobc
      ******************************************************************
       IDENTIFICATION DIVISION.
       PROGRAM-ID. CONDITION-IF.
       AUTHOR ALEXANDER-BOLTE.
       DATA DIVISION.
       FILE SECTION.
       WORKING-STORAGE SECTION.
       01  IS-DISPLAY PIC A(1).
       PROCEDURE DIVISION.
       MAIN-PROCEDURE.
           ACCEPT IS-DISPLAY.
           IF IS-DISPLAY IS EQUAL "Y"
               DISPLAY "Hello world."
               IF (10 > 10 OR 20 > 10) AND 40 > 20 THEN
                   DISPLAY "20 > 10 AND 40 > 20."
               END-IF
           ELSE
               DISPLAY "You answered No."
           END-IF.
           
           STOP RUN.
       END PROGRAM CONDITION-IF.
 

NEXT-SENTENCE (DO NOT USE! - DEPRECATED)

This clause can be used to move program execution flow to the next SENTENCE in your program after the closest period below the current IF statement.

Does sound weird, doesn't it.

Don't worry about it. It should not be used anymore, I just mention it for the sake of completeness.

Relational Operators 

The syntax is fairly simple.

OPERAND-1 [RELATIONAL OPERATOR] OPERAND-2

A relational operator compares two operands against each other and always returns TRUE or FALSE.

Below an overview on relational operators and examples for their usage. For each operator there is a long and a short version.

Long Version Short Version
IF A IS LESS THAN B IF A < B
IF A IS GREATER THAN B IF A > B
IF A IS EUQAL B IF A = B
IF A IS NOT LESS THAN B IF A NOT < B
IF A IS NOT GREATER THAN B IF A NOT > B
IF A IS NOT EQUAL IF A NOT = B

This does not need further explanation.  

You can differentiate between numeric and non-numeric comparison, which follows certain rules.

If for example a comparison of numeric and alphanumeric data types works, is compiler dependent.

in GnuCOBOL the below example works just fine.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
      ******************************************************************
      * Author:
      * Date:
      * Purpose:
      * Tectonics: cobc
      ******************************************************************
       IDENTIFICATION DIVISION.
       PROGRAM-ID. YOUR-PROGRAM-NAME.
       AUTHOR ALEXANDER-BOLTE.
       DATA DIVISION.
       FILE SECTION.
       WORKING-STORAGE SECTION.
       01  A-NUMBER PIC 9(1) VALUE 2.
       01  A-TEXT PIC X(1) VALUE "2".
       PROCEDURE DIVISION.
       MAIN-PROCEDURE.
           IF A-NUMBER = A-TEXT THEN
               DISPLAY "2 = '2'"
           ELSE
               DISPLAY "2 NOT = '2"
           END-IF.
           STOP RUN.
       END PROGRAM YOUR-PROGRAM-NAME.
 

No need to mention that you should not compare different data types anyway.

Hits: 2003