IDENTIFICATION DIVISION.
PROGRAM-ID. MON-PROGRAMME.
AUTHOR. APPRENANT-COBOL.
DATE-WRITTEN. 2023-10-01.

ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SOURCE-COMPUTER. IBM-ZSERIES.
OBJECT-COMPUTER. IBM-ZSERIES.

DATA DIVISION.
WORKING-STORAGE SECTION.
01 WS-NOM   PIC X(20) VALUE 'MONDIAL'.
01 WS-MESSAGE      PIC X(50).

PROCEDURE DIVISION.
MAIN-LOGIC.
    MOVE 'Bonjour le monde!' TO WS-MESSAGE
    DISPLAY WS-MESSAGE
    DISPLAY 'Nom du programme : ' WS-NOM
    STOP RUN.