IDENTIFICATION DIVISION.
PROGRAM-ID. INVERSE-CHAINE.

DATA DIVISION.
WORKING-STORAGE SECTION.
01  S               PIC X(24) VALUE "Bonjour le monde COBOL".
01  T               PIC X(24) VALUE SPACES.
01  LONGUEUR        PIC 9(3).
01  I               PIC 9(3).
01  J               PIC 9(3).

PROCEDURE DIVISION.
    MOVE FUNCTION LENGTH(S) TO LONGUEUR

    PERFORM VARYING I FROM LONGUEUR BY -1
            UNTIL   I < 1
        ADD 1 TO J
        MOVE S(I:1) TO T(J:1)
    END-PERFORM

    DISPLAY "Original : " S
    DISPLAY "Inversée : " T

    STOP RUN.