IDENTIFICATION DIVISION.
PROGRAM-ID. EXO-ACCEPT-02.

DATA DIVISION.
WORKING-STORAGE SECTION.
01  WS-NOM PIC X(30) VALUE SPACES.

PROCEDURE DIVISION.
    DISPLAY "Entrez votre nom : ".
    ACCEPT WS-NOM.
    DISPLAY "Vous avez saisi : " WS-NOM.
    STOP RUN.