Рішення за допомогою 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.

Заява EVALUATE

Коли нам потрібно порівняти змінну з кількома дискретними значеннями, вкладені оператори 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.: закриває структуру.

Спробуйте самі