IDENTIFICATION DIVISION.
PROGRAM-ID. SUFFIXE-CHAINE.

DATA DIVISION.
WORKING-STORAGE SECTION.
01  CHAINE1         PIC X(44) VALUE "Bienvenue dans l'apprentissage COBOL moderne".
01  CHAINE2         PIC X(5)  VALUE SPACES.
01  LONGUEUR        PIC 9(3).
01  POSITION-DEBUT  PIC 9(3).

PROCEDURE DIVISION.
    MOVE FUNCTION LENGTH(CHAINE1) TO LONGUEUR
    COMPUTE POSITION-DEBUT = LONGUEUR - 5 + 1

    MOVE CHAINE1(POSITION-DEBUT:5) TO CHAINE2

    DISPLAY "Chaine originale :"
    DISPLAY CHAINE1
    DISPLAY " "
    DISPLAY "5 derniers caracteres :"
    DISPLAY CHAINE2

    STOP RUN.