Bienvenue dans la formation COBOL

PERFORM UNTIL : boucle conditionnelle avec sortie en fin de cycle

La structure PERFORM ... UNTIL  est utilisée en COBOL pour répéter une séquence d’instructions tant qu’une condition n’est pas remplie. Contrairement à une boucle avec une sortie au début, ici la condition est vérifiée à la fin du cycle.

Autrement dit, l’instruction est toujours exécutée au moins une fois. Cela peut être utile pour exécuter une action avant même de tester une condition d’arrêt.

Exemple complet :

       IDENTIFICATION DIVISION.
       PROGRAM-ID.     ExempleUntil.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 Compteur          PIC 9(02) VALUE 0.
       01 Limite              PIC 9(02) VALUE 3.

       PROCEDURE DIVISION.
           PERFORM Boucle UNTIL Compteur >= Limite
           DISPLAY "Fin du programme." 

       Boucle SECTION.
           DISPLAY "Compteur = " Compteur
           ADD 1 TO Compteur
           DISPLAY "Incrémentation effectuée." 

Explication ligne par ligne :

• PERFORM Boucle UNTIL Compteur >= Limite  : la section  Boucle  est exécutée jusqu’à ce que la variable  Compteur  atteigne la valeur 3.
• DISPLAY "Compteur = " Compteur  : affiche la valeur actuelle du compteur.
• ADD 1 TO Compteur  : incrémente le compteur de 1.
• La condition est testée après l’exécution complète de la section.

Ce type de boucle est souvent utilisé lorsqu’une action doit être exécutée au moins une fois, comme l’initialisation ou la vérification de saisie utilisateur.