IDENTIFICATION DIVISION.
PROGRAM-ID. VARIABLES-EXEMPLE.

DATA DIVISION.
WORKING-STORAGE SECTION.
01  NOM                   PIC X(20) VALUE "Alice".
01  AGE                   PIC 99    VALUE 28.
01  SALAIRE               PIC 9(5)V99 VALUE 2450.75.
01  MESSAGE               PIC X(40).

PROCEDURE DIVISION.
    MOVE "Bonjour, je m'appelle " TO MESSAGE.
    DISPLAY MESSAGE NOM.
    DISPLAY "J'ai " AGE " ans.".
    DISPLAY "Mon salaire est de " SALAIRE " euros.".
    STOP RUN.