IDENTIFICATION DIVISION.
PROGRAM-ID. EXO-MOVE-17.

DATA DIVISION.
WORKING-STORAGE SECTION.
01  WS-PRENOM     PIC X(15) VALUE SPACES.
01  WS-COPIE      PIC X(15) VALUE SPACES.

PROCEDURE DIVISION.
    DISPLAY "Entrez un prenom : "
    ACCEPT WS-PRENOM

    MOVE WS-PRENOM TO WS-COPIE

    DISPLAY "Saisie : " WS-PRENOM
    DISPLAY "Copie : " WS-COPIE
    STOP RUN.