IDENTIFICATION DIVISION.
       PROGRAM-ID. EXEMPLE-PICX.
       ENVIRONMENT DIVISION.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 CARACTERE-ALPHA     PIC X VALUE "Z".
       01 CARACTERE-CHIFFRE   PIC X VALUE "7".
       01 CARACTERE-SYMBOLE   PIC X VALUE "*".
       PROCEDURE DIVISION.
           DISPLAY CARACTERE-ALPHA
           DISPLAY CARACTERE-CHIFFRE
           DISPLAY CARACTERE-SYMBOLE
           STOP RUN.