IDENTIFICATION DIVISION.
        PROGRAM-ID. FIRSTPRG.
        ENVIRONMENT DIVISION.
        DATA DIVISION.
        WORKING-STORAGE SECTION.                    
        01 DAT1 PIC zz9(3)v9(2).                           
        01 DAT2 PIC s9(3) VALUE 10.                           
        PROCEDURE DIVISION.                         
        MAIN-PARA.  
        DISPLAY DAT2.
        STOP RUN.