IDENTIFICATION DIVISION.
PROGRAM-ID. EXO-END-PERFORM-09.

DATA DIVISION.
WORKING-STORAGE SECTION.
01  WS-I                 PIC 9 VALUE 0.

PROCEDURE DIVISION.
    DISPLAY "Boucle de 1 a 5 :"
    PERFORM VARYING WS-I FROM 1 BY 1 UNTIL WS-I > 5
        DISPLAY "Compteur : " WS-I
    END-PERFORM
    DISPLAY "Boucle terminee."
    STOP RUN.