IDENTIFICATION DIVISION.
       PROGRAM-ID. STRINGSIMPLE.

       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 NOM         PIC X(10) VALUE "DUPONT".
       01 PRENOM      PIC X(10) VALUE "JEAN".
       01 NOM-COMPLET PIC X(25).

       PROCEDURE DIVISION.
           STRING NOM DELIMITED BY SIZE
                  " " DELIMITED BY SIZE
                  PRENOM DELIMITED BY SIZE
                  INTO NOM-COMPLET END-STRING
           DISPLAY "Nom complet : " NOM-COMPLET.
           STOP RUN.