Décisions avec IF et EVALUATE

La gestion des choix en COBOL s’effectue principalement via l’instruction conditionnelle IF et la structure de sélection multiple EVALUATE (analogue au switch ou au match dans les langages modernes).

L’instruction conditionnelle IF

La syntaxe fondamentale de l’instruction IF est :

IF condition
    instructions-si-vrai
ELSE
    instructions-si-faux
END-IF.

Dans les versions modernes de COBOL (COBOL-85 et ultérieures), l’instruction doit se terminer explicitement par END-IF. plutôt que de s’appuyer uniquement sur le point final ., réduisant considérablement les erreurs d’analyse (parsing) et de logique.

Conditions communes

• Supérieur à : > ou GREATER THAN
• Inférieur à : < ou LESS THAN
• Égal à : = ou EQUAL TO
• Supérieur ou égal : >= ou GREATER THAN OR EQUAL TO
• Inférieur ou égal : <= ou LESS THAN OR EQUAL TO

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

L’instruction EVALUATE

Lorsque nous devons comparer une variable avec de multiples valeurs discrètes, l’utilisation de nombreux IF imbriqués peut devenir complexe. L’instruction EVALUATE résout ce problème en structurant les choix de manière ordonnée :

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

• WHEN OTHER : Identifie la branche de repli (l’équivalent du default ou du else final).
• END-EVALUATE. : Conclut la structure.

À vous de jouer