IDENTIFICATION DIVISION.
       PROGRAM-ID. EXEMPLE-CHIFFRE.
       ENVIRONMENT DIVISION.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 CHIFFRE PIC 9 VALUE 7.
       PROCEDURE DIVISION.
           DISPLAY CHIFFRE.
           STOP RUN.