IDENTIFICATION DIVISION.
PROGRAM-ID. EXO-DISPLAY-01.

DATA DIVISION.
WORKING-STORAGE SECTION.
01  WS-PRENOM     PIC X(20) VALUE "ALAIN".
01  WS-MESSAGE    PIC X(60) VALUE SPACES.

PROCEDURE DIVISION.
    MOVE "Bonjour COBOL : " TO WS-MESSAGE.
    DISPLAY WS-MESSAGE.
    DISPLAY "Prénom : " WS-PRENOM
    STOP RUN.