IDENTIFICATION DIVISION.
       PROGRAM-ID. EXEMPLE-LETTRE.
       ENVIRONMENT DIVISION.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 LETTRE PIC A VALUE "P".
       PROCEDURE DIVISION.
           DISPLAY LETTRE.
           STOP RUN.