IDENTIFICATION DIVISION.
PROGRAM-ID. SALUT-AGE.

DATA DIVISION.
WORKING-STORAGE SECTION.
01 NOM         PIC X(20)      VALUE 'Sophie'.
01 AGE         PIC 99         VALUE 28.
01 AGE-FUTUR   PIC 99.
01 MESSAGE     PIC X(60).

PROCEDURE DIVISION.
    ADD 5 TO AGE GIVING AGE-FUTUR 
    STRING 'Salut ' NOM
           ' ! Dans 5 ans tu auras ' AGE-FUTUR ' ans.'
        DELIMITED BY SIZE
        INTO MESSAGE
    DISPLAY MESSAGE       
    DISPLAY 'Programme termine. Au revoir !'  
    STOP RUN.