IDENTIFICATION DIVISION.
	PROGRAM-ID. ADD.
	ENVIRONMENT DIVISION.


	DATA DIVISION.
	WORKING-STORAGE SECTION.
        77 A   PIC 9999.
        77 B   PIC 9999.
        77 SOL PIC 999v99.


       	PROCEDURE DIVISION.
       	MAIN-PARA.
           
        DISPLAY " ENTER A ".
        ACCEPT A.
        DISPLAY " ENTER B ".
        ACCEPT B.
           

      	ADD-PARA.
      	ADD A B GIVING SOL. 
           

      	DISP-PARA.
      	DISPLAY "A IS " A.
      	DISPLAY "B IS " B.
      	DISPLAY "ADDITION =" SOL.
      	STOP RUN.