IDENTIFICATION DIVISION.
PROGRAM-ID. EXO-STRING-21.

DATA DIVISION.
WORKING-STORAGE SECTION.
01  WS-PRENOM     PIC X(15) VALUE SPACES.
01  WS-NOM 		  PIC X(15) VALUE SPACES.
01  WS-VILLE      PIC X(15) VALUE SPACES.
01  WS-MESSAGE    PIC X(80) VALUE SPACES.

PROCEDURE DIVISION.
    DISPLAY "Entrez le prenom : "
    ACCEPT WS-PRENOM
    DISPLAY "Entrez le nom : "
    ACCEPT WS-NOM
    DISPLAY "Entrez la ville : "
    ACCEPT WS-VILLE

    MOVE SPACES TO WS-MESSAGE

    STRING
 "Bonjour "   DELIMITED BY SIZE
 WS-PRENOM    DELIMITED BY SPACE
 " "   		  DELIMITED BY SIZE
 WS-NOM		  DELIMITED BY SPACE
 ", ville : " DELIMITED BY SIZE
 WS-VILLE     DELIMITED BY SPACE
 "."   		  DELIMITED BY SIZE
 INTO WS-MESSAGE
    END-STRING

    DISPLAY WS-MESSAGE
    STOP RUN.