Decisiones con IF y EVALUATE

La toma de decisiones en COBOL se realiza principalmente mediante la instrucción condicional IF y la estructura de selección múltiple EVALUATE (análoga a switch o match en los lenguajes modernos).

La instrucción condicional IF

La sintaxis fundamental de la instrucción IF es:

IF condición
    instrucciones-si-verdadero
ELSE
    instrucciones-si-falso
END-IF.

En las versiones modernas de COBOL (COBOL-85 y posteriores), la instrucción debe finalizar explícitamente con END-IF. en lugar de confiar únicamente en el punto final ., lo que reduce significativamente los errores de parsing y de lógica.

Condiciones comunes

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

IF WS-BALANCE < 0
    DISPLAY "CONTO IN ROSSO"
ELSE
    DISPLAY "CONTO ATTIVO"
END-IF.

La instrucción EVALUATE

Cuando necesitamos comparar una variable con múltiples valores discretos, el uso de varios IF anidados puede volverse complejo. La instrucción EVALUATE resuelve este problema estructurando las opciones de forma ordenada:

EVALUATE WS-USER-ROLE
    WHEN "ADMIN"
        DISPLAY "ACCESSO COMPLETO"
    WHEN "EDITOR"
        DISPLAY "ACCESSO EDIT"
    WHEN OTHER
        DISPLAY "ACCESSO LIMITATO"
END-EVALUATE.

• WHEN OTHER: Identifica la rama de fallback (equivalente a default o al else final).
• END-EVALUATE.: Concluye la estructura.

Pruébalo tú mismo