Exemple minimal
COBOL
Format fixe
Télécharger le code
IDENTIFICATION DIVISION.
PROGRAM-ID. EXO-EVALUATE-07.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 WS-CHOIX PIC 9 VALUE 0.
PROCEDURE DIVISION.
DISPLAY "Choisissez une option (1, 2, 3) : "
ACCEPT WS-CHOIX
EVALUATE WS-CHOIX
WHEN 1
DISPLAY "Option 1 : afficher un message."
WHEN 2
DISPLAY "Option 2 : traiter un calcul."
WHEN 3
DISPLAY "Option 3 : terminer le programme."
WHEN OTHER
DISPLAY "Choix invalide."
END-EVALUATE
STOP RUN.Lecture simple
EVALUATE examine une valeur (ici WS-CHOIX).
WHEN définit un cas précis (1, 2, 3).
WHEN OTHER est le cas “par défaut” : tout ce qui ne correspond pas.
END-EVALUATE ferme la structure, comme END-IF ferme un test.
WHEN définit un cas précis (1, 2, 3).
WHEN OTHER est le cas “par défaut” : tout ce qui ne correspond pas.
END-EVALUATE ferme la structure, comme END-IF ferme un test.
À retenir :
EVALUATE est souvent plus lisible que plusieurs IF quand vous avez plus de deux cas.
Votre micro-exercice
Faites ces 3 modifications :
- Ajoutez un WHEN 4 qui affiche “Option 4 : aide”.
- Dans WHEN 3, remplacez le message par “Option 3 : au revoir”.
- Après END-EVALUATE, ajoutez un DISPLAY : “Fin de traitement.”
Erreur fréquente à éviter
Oublier WHEN OTHER. Au début, on pense surtout aux cas “normaux”, mais en production il faut toujours prévoir l’entrée invalide.
Autre piège : saisir autre chose qu’un chiffre dans une variable PIC 9. Selon l’environnement, cela peut produire un résultat inattendu. Pour l’apprentissage, gardez des saisies simples.
Conseil : testez avec 1, 2, 3 et aussi 9 pour vérifier le passage par WHEN OTHER.