Decisões com IF e EVALUATE

A tomada de decisão em COBOL é realizada principalmente usando a instrução condicional IF e a estrutura de seleção multi-ramificação EVALUATE (análoga a switch ou match em linguagens modernas).

A declaração condicional IF

A sintaxe fundamental da instrução IF é:

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

Nas versões modernas do COBOL (COBOL-85 e posteriores), a instrução deve terminar explicitamente com END-IF. em vez de depender apenas do período final ., reduzindo significativamente os erros de análise e lógica.

Condições Comuns

• Maior que: > ou GREATER THAN
• Menor que: < ou LESS THAN
• Igual a: = ou EQUAL TO
• Maior ou igual a: >= ou GREATER THAN OR EQUAL TO
• Menor ou igual a: <= ou LESS THAN OR EQUAL TO

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

A declaração AVALIAR

Quando precisamos comparar uma variável com vários valores discretos, as instruções IF aninhadas podem se tornar complexas. A instrução EVALUATE resolve isso estruturando as opções de maneira limpa:

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

• WHEN OTHER: Identifica o branch substituto (equivalente a default ou o else final em linguagens modernas).
• END-EVALUATE.: Fecha a estrutura.

Experimente você mesmo