IDENTIFICATION DIVISION.
PROGRAM-ID. ECHANGE-VALEURS.

DATA DIVISION.
WORKING-STORAGE SECTION.
01  A           PIC X(10) VALUE "Paris    ".
01  B           PIC X(10) VALUE "Londres  ".
01  TEMP        PIC X(10).

PROCEDURE DIVISION.
    DISPLAY "Avant echange:"
    DISPLAY "A = " A
    DISPLAY "B = " B

    MOVE A     TO TEMP
    MOVE B     TO A
    MOVE TEMP  TO B

    DISPLAY "Apres echange:"
    DISPLAY "A = " A
    DISPLAY "B = " B

    STOP RUN.