Question

How to add variables in COBOL

Answer 1

IDENTIFICATION DIVISION.
PROGRAM-ID. ADDNUMBERS.
 
DATA DIVISION.
   WORKING-STORAGE SECTION.
   01 A-NUM1 PIC 9(3) VALUE 5.
   01 A-NUM2 PIC 9(3) VALUE 6.
   01 A-NUM3 PIC 9(3) VALUE 7.
   01 A-NUM4 PIC 9(3) VALUE 8.
    
PROCEDURE DIVISION.
   ADD A-NUM1 A-NUM2 TO A-NUM3 A-NUM4.
 
   DISPLAY "A-NUM1 : " A-NUM1
   DISPLAY "A-NUM2 : " A-NUM2
   DISPLAY "A-NUM3 : " A-NUM3
   DISPLAY "A-NUM4 : " A-NUM4
    
STOP RUN.
 
 
 
*> run:
*>
*> A-NUM1 : 005
*> A-NUM2 : 006
*> A-NUM3 : 018
*> A-NUM4 : 019
*>

 

70+ SQL courses for beginners and professionals

Answer 2

IDENTIFICATION DIVISION.
PROGRAM-ID. ADDNUMBERS.
 
DATA DIVISION.
   WORKING-STORAGE SECTION.
   01 A-NUM1 PIC 9(3) VALUE 3.
   01 A-NUM2 PIC 9(3) VALUE 4.
   01 A-NUM3 PIC 9(3) VALUE 5.
   01 A-NUM4 PIC 9(3) VALUE 6.
   01 A-NUM5 PIC 9(3) VALUE 7.
    
PROCEDURE DIVISION.
   ADD A-NUM1 A-NUM2 A-NUM3 TO A-NUM4 GIVING A-NUM5.
 
   DISPLAY "A-NUM1 : " A-NUM1
   DISPLAY "A-NUM2 : " A-NUM2
   DISPLAY "A-NUM3 : " A-NUM3
   DISPLAY "A-NUM4 : " A-NUM4
   DISPLAY "A-NUM5 : " A-NUM5
    
STOP RUN.
 
 
 
*> run:
*> 
*> A-NUM1 : 003
*> A-NUM2 : 004
*> A-NUM3 : 005
*> A-NUM4 : 006
*> A-NUM5 : 018
*>

 

70+ SQL courses for beginners and professionals