Bienvenue dans la formation COBOL

PERFORM VARYING : boucle avec compteur, initialisation et incrémentation

La structure PERFORM VARYING  est utilisée en COBOL pour exécuter une boucle avec :

• Une variable de départ (initialisation)
• Une condition de fin
• Une incrémentation automatique à chaque cycle

Elle est équivalente à une boucle for dans d’autres langages comme C ou Python.

Exemple :

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

       PROCEDURE DIVISION.
           PERFORM VARYING Compteur FROM 1 BY 1 UNTIL Compteur > 5
               DISPLAY "Itération numéro " Compteur
           END-PERFORM 
           STOP RUN. 

Étapes détaillées :

• FROM 1  : le compteur commence à 1.
• BY 1  : il est augmenté de 1 à chaque boucle.
• UNTIL Compteur > 5  : la boucle s’arrête quand Compteur  dépasse 5.
• DISPLAY "Itération numéro " Compteur  : affichage du numéro actuel de l’itération.

Cette forme de boucle est parfaite pour répéter un bloc un nombre défini de fois, avec une logique claire et centralisée dans l’en-tête de la boucle.