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.                                               Â