sign in
 
   
 
 
 
   
  COBOL TUTORIAL FOR BCA STUDENTS OF M G UNIVERSITY  
  LAB EXCERCISES AND SOLUTIONS (CYCLE -I)  
   
  Write a program in COBOL to find the Sum of Two Numbers  
   
 
                        
       IDENTIFICATION DIVISION.
       PROGRAM-ID. ADDING-TWO-NUMBERS.
       ENVIRONMENT DIVISION.
       CONFIGURATION SECTION.
       SOURCE-COMPUTER.
       OBJECT-COMPUTER.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01  NUM1   PIC 9(3).
       01  NUM2   PIC 9(3).
       01  SUM    PIC 9(3).
       01  E-SUM  PIC ZZ9.
       PROCEDURE DIVISION.
       MAIN-PARA.
           DISPLAY (01 01) ERASE.
           DISPLAY (02 05) "Enter the First Number  : ".
           ACCEPT (02 31) NUM1.
           DISPLAY (04 05) "Enter the Second Number : ".
           ACCEPT (04 31) NUM2.
           COMPUTE SUM = NUM1 + NUM2.
           MOVE SUM TO E-SUM.
           DISPLAY (06 05) "Sum of the two Numbers  : ".
           DISPLAY (06 31) E-SUM.
           DISPLAY (07 05) "=============================".
           STOP RUN.