PROGRAM-ID. ASSEMBLAGE-CHAINE.

DATA DIVISION.
WORKING-STORAGE SECTION.
01  CHAINE1         PIC X(25) VALUE SPACES.
01  CHAINE2         PIC X(5)  VALUE 'COBOL'.
01  CHAINE3         PIC X(5)  VALUE 'RULE'.
01  CHAINE4         PIC X(3)  VALUE 'THE'.
01  CHAINE5         PIC X(5)  VALUE 'WORLD'.

PROCEDURE DIVISION.
    STRING CHAINE2 ' ' CHAINE3 ' ' CHAINE4 ' ' CHAINE5
           DELIMITED BY SIZE
           INTO CHAINE1
    END-STRING

    DISPLAY "Resultat assemble :"
    DISPLAY CHAINE1

    STOP RUN.