IDENTIFICATION DIVISION.
PROGRAM-ID. DEMO-ENVIRONNEMENT.

ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SOURCE-COMPUTER. GENERIC-CPU.
OBJECT-COMPUTER. GENERIC-CPU.

DATA DIVISION.
WORKING-STORAGE SECTION.
01 WS-TEXTE PIC X(40) VALUE "ENVIRONMENT DIVISION : contexte compris".

PROCEDURE DIVISION.
    DISPLAY WS-TEXTE
    STOP RUN.