Parcours Accueil Tour guidé Initiation 1 h Initiation 24 h Révisions Exercices

🔁 6-6 – Boucles avec  PERFORM UNTIL  : structure et conditions de sortie

En  COBOL , l’instruction  PERFORM UNTIL  permet de répéter un paragraphe tant qu’une condition n’est pas satisfaite. Elle équivaut à une boucle de type « tant que... faire... » (while) dans d’autres langages.

📌 Syntaxe de base

 PERFORM PARAGRAPHE-NOM
    UNTIL CONDITION.
  

Le paragraphe  PARAGRAPHE-NOM  est exécuté à répétition tant que la condition indiquée est fausse. Dès qu’elle devient vraie, la boucle s’arrête.

🔁 Exemple simple

 PERFORM AFFICHER-LIGNE
    UNTIL COMPTEUR > 5.
  

 AFFICHER-LIGNE.
    DISPLAY "Ligne" COMPTEUR.
    ADD 1 TO COMPTEUR.
  

Ce code affiche 5 lignes numérotées de 1 à 5. La variable  COMPTEUR  est incrémentée à chaque tour de boucle.

🎯 Bonnes pratiques

• ✅ Initialisez bien vos variables avant la boucle (ex. :  MOVE 1 TO COMPTEUR )
• ✅ Vérifiez que la condition peut devenir vraie (évite les boucles infinies)
• ✅ Utilisez un nom de paragraphe explicite pour chaque traitement

🛑 Erreurs fréquentes

• 🚫 Oublier de modifier une variable dans le paragraphe → boucle infinie
• 🚫 Écrire une condition erronée ( PERFORM ... UNTIL X < 5  alors que  X  ne bouge pas)
• 🚫 Placer trop de logique dans le paragraphe → privilégier la clarté

🧪 Exemple avec test de fin de fichier

 PERFORM LIRE-LIGNE
    UNTIL FIN-FICHIER = "OUI".

 LIRE-LIGNE.
    READ FICHE AT END
        MOVE "OUI" TO FIN-FICHIER
    NOT AT END
        DISPLAY "Traitement en cours...".
  

Cette boucle lit ligne par ligne un fichier jusqu’à la fin. La condition de sortie est contrôlée via une variable logique  FIN-FICHIER .

📌 Résumé

L’instruction  PERFORM ... UNTIL  permet :

• 🔁 De répéter un traitement jusqu’à une condition de sortie
• 🧠 De structurer proprement une boucle de lecture, de calcul ou d’affichage
• 🛠️ De rendre le code lisible, modulaire et testable