IDENTIFICATION DIVISION.
       PROGRAM-ID. AFFICHAGE.

       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 MESSAGE PIC X(30) VALUE "Bonjour le monde".

       PROCEDURE DIVISION.
           DISPLAY MESSAGE.
           STOP RUN.