Решения с помощью IF и EVALUATE

Принятие решений в COBOL осуществляется в основном с использованием условного оператора IF и многоветвевой структуры выбора EVALUATE (аналог switch или match в современных языках).

Условное выражение IF

Основной синтаксис оператора IF:

IF condition
    statements-if-true
ELSE
    statements-if-false
END-IF.

В современных версиях COBOL (COBOL-85 и более поздних версиях) оператор должен явно заканчиваться на END-IF. вместо того, чтобы полагаться исключительно на последний период ., что значительно уменьшает количество ошибок синтаксического анализа и логических ошибок.

Общие условия

– Больше, чем: > или GREATER THAN.

• Менее: < или LESS THAN – Равно: = или EQUAL TO. – Больше или равно: >= или GREATER THAN OR EQUAL TO.
• Меньше или равно: <= или LESS THAN OR EQUAL TO.

IF WS-BALANCE < 0
    DISPLAY "OVERDRAWN"
ELSE
    DISPLAY "ACCOUNT ACTIVE"
END-IF.

Заявление ОЦЕНИВАТЬ

Когда нам нужно сравнить переменную с несколькими дискретными значениями, вложенные операторы IF могут стать сложными. Оператор EVALUATE решает эту проблему, четко структурируя выбор:

EVALUATE WS-USER-ROLE
    WHEN "ADMIN"
        DISPLAY "FULL ACCESS"
    WHEN "EDITOR"
        DISPLAY "EDIT ACCESS"
    WHEN OTHER
        DISPLAY "LIMITED ACCESS"
END-EVALUATE.

• WHEN OTHER: определяет резервную ветвь (эквивалент default или последней else в современных языках).
• END-EVALUATE.: закрывает структуру.

Попробуйте сами