COBOL ADD VERB

Example of ADD VERB

 

PROGRAM

IDENTIFICATION DIVISION.                                         
PROGRAM-ID. PGM004.                                              
AUTHOR. MAINFRAMEWIZARD.                                         
DATA DIVISION.                                                   
WORKING-STORAGE SECTION.                                         
01 GROUP1.                                                       
   05 ELEMENT1 PIC 9(3) VALUE 15.                                
   05 ELEMENT2 PIC 9(3) VALUE 25.                                
01 GROUP2.                                                       
   05 ELEMENT3 PIC 9(3) VALUE 23.                                
   05 ELEMENT4 PIC 9(3) VALUE 45.                                
01 NUM1  PIC 9(3) VALUE 05.                                      
01 NUM2  PIC 9(3) VALUE 10.                                      
01 NUM3  PIC 9(3) VALUE 15.                                      
01 NUM4  PIC 9(3) VALUE 20.                                      
01 NUM5  PIC 9(3) VALUE 25.                                      
01 NUM6  PIC 9(3) VALUE 30.                                      
01 NUM7  PIC 9(3) VALUE 05.                                      
01 NUM8  PIC 9(3) VALUE 10.                                      
01 NUM9  PIC 9(3) VALUE 15.                                      
01 NUM10 PIC 9(3) VALUE 20.                                      
01 NUM11 PIC 9(3) VALUE 25.                                      
01 NUM12 PIC 9(3) VALUE 30.                                      
                                                                 
PROCEDURE DIVISION.                                              
10000-MAIN-PARA.                                                 
                                                                 
                                                                 
      DISPLAY 'ADD NUM1 TO NUM2'                                 
      DISPLAY 'NUM1 BEFORE =' NUM1                               
      DISPLAY 'NUM2 BEFORE =' NUM2                               
      ADD NUM1 TO NUM2                                           
      DISPLAY 'NUM1 AFTER  =' NUM1                               
      DISPLAY 'NUM2 AFTER  =' NUM2                               
      DISPLAY '--------------------------'                       
                                                                 
      DISPLAY 'ADD NUM3, NUM4 TO NUM5'                           
      DISPLAY 'NUM3 BEFORE =' NUM3                               
      DISPLAY 'NUM4 BEFORE =' NUM4                               
      DISPLAY 'NUM5 BEFORE =' NUM5                               
      ADD NUM3, NUM4 TO NUM5                                     
      DISPLAY 'NUM3 AFTER  =' NUM3                               
      DISPLAY 'NUM4 AFTER  =' NUM4                               
      DISPLAY 'NUM5 AFTER  =' NUM5                               
      DISPLAY '--------------------------'                       
                                                                 
      DISPLAY 'ADD NUM6, NUM7 GIVING NUM8 NUM9'                  
      DISPLAY 'NUM6 BEFORE =' NUM6                               
      DISPLAY 'NUM7 BEFORE =' NUM7                               
      DISPLAY 'NUM8 BEFORE =' NUM8                               
      DISPLAY 'NUM9 BEFORE =' NUM9                               
      ADD NUM6, NUM7 GIVING NUM8 NUM9                            
      DISPLAY 'NUM6 AFTER  =' NUM6                               
      DISPLAY 'NUM7 AFTER  =' NUM7                               
      DISPLAY 'NUM8 AFTER  =' NUM8                               
      DISPLAY 'NUM9 AFTER  =' NUM9                               
      DISPLAY '--------------------------'                       
                                                                 
      DISPLAY 'ADD NUM10 TO NUM11 GIVING NUM12'                  
      DISPLAY 'NUM10 BEFORE =' NUM10                             
      DISPLAY 'NUM11 BEFORE =' NUM11                             
      DISPLAY 'NUM12 BEFORE =' NUM12                             
      ADD NUM10 TO NUM11 GIVING NUM12                            
      DISPLAY 'NUM10 AFTER  =' NUM10                             
      DISPLAY 'NUM11 AFTER  =' NUM11                             
      DISPLAY 'NUM12 AFTER  =' NUM12                             
      DISPLAY '--------------------------'                       
                                                                 
      DISPLAY 'ADD CORRESPONDING GROUP1 TO GROUP2'               
      DISPLAY 'GROUP1 BEFORE =' GROUP1                           
      DISPLAY 'GROUP2 BEFORE =' GROUP2                           
      ADD CORRESPONDING GROUP1 TO GROUP2                         
      DISPLAY 'GROUP1 AFTER  =' GROUP1                           
      DISPLAY 'GROUP2 AFTER  =' GROUP2                           
      DISPLAY '--------------------------'                       
                                                                 
      STOP RUN.                                                

OUTPUT



ADD NUM1 TO NUM2                          
NUM1 BEFORE =005                          
NUM2 BEFORE =010                          
NUM1 AFTER  =005                          
NUM2 AFTER  =015                          
--------------------------                
ADD NUM3, NUM4 TO NUM5                    
NUM3 BEFORE =015                          
NUM4 BEFORE =020                          
NUM5 BEFORE =025                          
NUM3 AFTER  =015                          
NUM4 AFTER  =020                          
NUM5 AFTER  =060                          
--------------------------                
ADD NUM6, NUM7 GIVING NUM8 NUM9           
NUM6 BEFORE =030                          
NUM7 BEFORE =005                          
NUM8 BEFORE =010                          
NUM9 BEFORE =015                          
NUM6 AFTER  =030                          
NUM7 AFTER  =005                          
NUM8 AFTER  =035                          
NUM9 AFTER  =035                          
--------------------------                
ADD NUM10 TO NUM11 GIVING NUM12           
NUM10 BEFORE =020                         
NUM11 BEFORE =025                         
NUM12 BEFORE =030                         
NUM10 AFTER  =020                         
NUM11 AFTER  =025                         
NUM12 AFTER  =045                         
--------------------------                
ADD CORRESPONDING GROUP1 TO GROUP2        
GROUP1 BEFORE =015025                     
GROUP2 BEFORE =023045                     
GROUP1 AFTER  =015025                     
GROUP2 AFTER  =023045                     
--------------------------          

Back to COBOL examples