IDENTIFICATION DIVISION.
PROGRAM-ID. PREFIXE-CHAINE.

DATA DIVISION.
WORKING-STORAGE SECTION.
01  S               PIC X(38) VALUE "Bonjour a tous les apprenants COBOL !".
01  T               PIC X(5)  VALUE SPACES.

PROCEDURE DIVISION.
    MOVE S(1:5) TO T

    DISPLAY "Chaine originale :"
    DISPLAY S
    DISPLAY " "
    DISPLAY "5 premiers caracteres :"
    DISPLAY T

    STOP RUN.