Apprenez les bases du COBOL et développez vos compétences en programmation legacy avec une approche moderne.
Introduction aux boucles en COBOL : pourquoi et comment les utiliser
Dans de nombreux programmes, il est nécessaire de répéter des instructions, par exemple pour lire plusieurs lignes d’un fichier ou traiter des valeurs successives. En COBOL, cela s’effectue à l’aide d’une boucle PERFORM ... UNTIL.
IDENTIFICATION DIVISION.
PROGRAM-ID. BoucleSimple.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 Compteur PIC 9(02) VALUE 0.
01 Limite PIC 9(02) VALUE 5.
PROCEDURE DIVISION.
PERFORM Affichage UNTIL Compteur >= Limite
STOP RUN.
Affichage SECTION.
ADD 1 TO Compteur
DISPLAY "Itération numéro " Compteur.
Explication :
PERFORM ... UNTIL permet de répéter l’exécution d’une section jusqu’à ce qu’une condition soit remplie.ADD 1 TO Compteur incrémente le compteur à chaque tour.DISPLAY affiche le numéro de l’itération en cours.Cette structure est idéale pour les traitements simples en boucle contrôlée.