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.