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

DATA DIVISION.
WORKING-STORAGE SECTION.
01  WS-LIBELLE    PIC X(25) VALUE SPACES.
01  WS-AGE PIC 99    VALUE 00.

PROCEDURE DIVISION.
    MOVE "Test MOVE OK" TO WS-LIBELLE.
    MOVE 27 TO WS-AGE.
    DISPLAY "Libellé : " WS-LIBELLE.
    DISPLAY "Age : " WS-AGE.
    STOP RUN.