IDENTIFICATION DIVISION.
PROGRAM-ID. EXO-PERFORM-08.

DATA DIVISION.
WORKING-STORAGE SECTION.
01  WS-NOM               PIC X(25) VALUE "VISITEUR".

PROCEDURE DIVISION.
    PERFORM 100-AFFICHER-BIENVENUE
    PERFORM 200-AFFICHER-FIN
    STOP RUN.

100-AFFICHER-BIENVENUE.
    DISPLAY "Bonjour " WS-NOM
    DISPLAY "Exemple de PERFORM : une etape."
    .

200-AFFICHER-FIN.
    DISPLAY "Fin du programme."
    .