IDENTIFICATION DIVISION.
PROGRAM-ID. FluxProgramme.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 COMPTEUR-BOUCLE     PIC 9 VALUE 0.
01 FIN-DEMANDEE-FLAG   PIC X VALUE 'N'.
   88 FinDemandee      VALUE 'O'.
PROCEDURE DIVISION.
DebutProgramme.
    PERFORM Initialiser
    PERFORM BouclePrincipale UNTIL FinDemandee
    STOP RUN.
Initialiser.
    DISPLAY "--- Initialisation du programme ---".
    MOVE 0 TO COMPTEUR-BOUCLE.
    MOVE 'N' TO FIN-DEMANDEE-FLAG.
BouclePrincipale.
    ADD 1 TO COMPTEUR-BOUCLE.
    DISPLAY "Execution de la boucle. Compteur: " COMPTEUR-BOUCLE.
    IF COMPTEUR-BOUCLE = 3
        MOVE 'O' TO FIN-DEMANDEE-FLAG
    END-IF.