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.                           
	01 RSLT PIC S9(3)V9(2).
        PROCEDURE DIVISION.                         
        MAIN-PARA.  
        ACCEPT  DAT1.
	ACCEPT  DAT2.
	DISPLAY DAT1 DAT2.
	ADD DAT1 DAT2 GIVING RSLT.
	DISPLAY "ADDITION OF DATA1 AND DATA2:" RSLT
        STOP RUN.