COBOL Subtract Verb Example

Example of SUBTRACT

PROGRAM

IDENTIFICATION DIVISION.                                         
PROGRAM-ID. PGM005.                                              
AUTHOR. MAINFRAMEWIZARD.                                         DATA DIVISION.                                                   WORKING-STORAGE SECTION.                                         

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 55.                                      
01 NUM6  PIC 9(3) VALUE 05.                                      
01 NUM7  PIC 9(3) VALUE 35.                                      
01 NUM8  PIC 9(3) VALUE 10.                                      
01 NUM9  PIC 9(3) VALUE 15.                                      
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.                                                                                                 PROCEDURE DIVISION.                                              

10000-MAIN-PARA.                                                 

                                                                 

        DISPLAY ‘SUBTRACT NUM1 FROM NUM2’                        

        DISPLAY ‘NUM1 BEFORE =’ NUM1                             
        DISPLAY ‘NUM2 BEFORE =’ NUM2                             
        SUBTRACT NUM1 FROM NUM2                                  
        DISPLAY ‘NUM1 AFTER  =’ NUM1                             
        DISPLAY ‘NUM2 AFTER  =’ NUM2                                     DISPLAY ‘————————–‘                                                                                      

        DISPLAY ‘SUBTRACT NUM3, NUM4 FROM NUM5’                  

        DISPLAY ‘NUM3 BEFORE =’ NUM3                             
        DISPLAY ‘NUM4 BEFORE =’ NUM4                             
        DISPLAY ‘NUM5 BEFORE =’ NUM5                             
        SUBTRACT NUM3, NUM4 FROM NUM5                            
        DISPLAY ‘NUM3 AFTER  =’ NUM3                             
        DISPLAY ‘NUM4 AFTER  =’ NUM4                             
        DISPLAY ‘NUM5 AFTER  =’ NUM5                                     DISPLAY ‘————————–‘                                                                                      

        DISPLAY ‘SUBTRACT NUM6 FROM NUM7 GIVING NUM8 NUM9’       

        DISPLAY ‘NUM6 BEFORE =’ NUM6                             
        DISPLAY ‘NUM7 BEFORE =’ NUM7                             
        DISPLAY ‘NUM8 BEFORE =’ NUM8                             
        DISPLAY ‘NUM9 BEFORE =’ NUM9                             
        SUBTRACT NUM6 FROM NUM7 GIVING NUM8 NUM9                 
        DISPLAY ‘NUM6 AFTER  =’ NUM6                             
        DISPLAY ‘NUM7 AFTER  =’ NUM7                             
        DISPLAY ‘NUM8 AFTER  =’ NUM8                             
        DISPLAY ‘NUM9 AFTER  =’ NUM9                                     DISPLAY ‘————————–‘                                                                                                                                                       

        DISPLAY ‘SUBTRACT CORRESPONDING GROUP1 FROM GROUP2’      

        DISPLAY ‘GROUP1 BEFORE =’ GROUP1                         
        DISPLAY ‘GROUP2 BEFORE =’ GROUP2                         
        SUBTRACT CORRESPONDING GROUP1 FROM GROUP2                
        DISPLAY ‘GROUP1 AFTER  =’ GROUP1                         
        DISPLAY ‘GROUP2 AFTER  =’ GROUP2                                 DISPLAY ‘————————–‘                                                                                                                                                       

        STOP RUN.                                                              Â