Decisioni con IF ed EVALUATE

La gestione delle decisioni in COBOL viene effettuata principalmente tramite l'istruzione condizionale IF e la struttura di selezione multipla EVALUATE (analogo del switch o del match nei linguaggi moderni).

L'istruzione condizionale IF

La sintassi fondamentale dell'istruzione IF è:

IF condizione
    istruzioni-se-vero
ELSE
    istruzioni-se-falso
END-IF.

Nelle versioni moderne di COBOL (COBOL-85 e successive), l'istruzione deve concludersi esplicitamente con END-IF. anziché affidarsi unicamente al punto finale ., riducendo notevolmente gli errori di parsing e logica.

Condizioni comuni

• Maggiore di: > o GREATER THAN
• Minore di: < o LESS THAN
• Uguale a: = o EQUAL TO
• Maggiore o uguale: >= o GREATER THAN OR EQUAL TO
• Minore o uguale: <= o LESS THAN OR EQUAL TO

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

L'istruzione EVALUATE

Quando dobbiamo confrontare una variabile con molteplici valori discreti, l'uso di molteplici IF annidati può diventare complesso. L'istruzione EVALUATE risolve questo problema strutturando le scelte in modo ordinato:

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

• WHEN OTHER: Identifica il ramo di fallback (equivalente del default o del else finale).
• END-EVALUATE.: Conclude la struttura.

Prova tu