IDENTIFICATION DIVISION.
       PROGRAM-ID. STRINGESPACES.

       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 TEXTE-1 PIC X(20) VALUE "PACTA".
       01 TEXTE-2 PIC X(20) VALUE "COBOL !".
       01 TEXTE-3 PIC X(40).

       PROCEDURE DIVISION.
           STRING TEXTE-1 TEXTE-2 INTO TEXTE-3 END-STRING
           DISPLAY "Resultat : " TEXTE-3.
           STOP RUN.