Как использовать условия IF в COBOL?

 1
 2
 3
 4
 5
 6
 7
 8
 9
10

IF condition
    THEN
        statement-1
        statement-2
        ...
    [ELSE
        statement-3
        statement-4
        ...]
END-IF

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23

IDENTIFICATION DIVISION.
PROGRAM-ID. IfExample.

DATA DIVISION.
WORKING-STORAGE SECTION.
01  NUM-1      PIC 9(3) VALUE 100.
01  NUM-2      PIC 9(3) VALUE 200.
01  RESULT     PIC X(10) VALUE SPACES.

PROCEDURE DIVISION.
    IF NUM-1 > NUM-2
        THEN
            DISPLAY 'NUM-1 is greater than NUM-2'
        ELSE
            DISPLAY 'NUM-1 is not greater than NUM-2'
    END-IF
    
    IF RESULT = SPACES
        THEN
            DISPLAY 'RESULT is still uninitialized'
    END-IF.
    
STOP RUN.

1
2
3
4
5
6

IF NUM-1 > 50 AND NUM-2 < 250
    THEN
        DISPLAY 'Both conditions are true'
ELSE
    DISPLAY 'At least one condition is false'
END-IF.

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11

IF NUM-1 > NUM-2
    THEN
        IF NUM-1 > 150
            THEN
                DISPLAY 'NUM-1 is greater than NUM-2 and is greater than 150'
            ELSE
                DISPLAY 'NUM-1 is greater than NUM-2 but not greater than 150'
        END-IF
    ELSE
        DISPLAY 'NUM-1 is not greater than NUM-2'
END-IF.