Question

How to perform arithmetic operations using arithmetic verbs in COBOL

Answer 1

IDENTIFICATION DIVISION.
PROGRAM-ID. INPUT_NUMBERS.
DATA DIVISION.
    WORKING-STORAGE SECTION.
        77 NUM1       PIC 9(3).                              
        77 NUM2       PIC 9(3).                              
        77 RESULT     PIC 9(4).    
        77 DECRESULT  PIC 9(3).9(2).
PROCEDURE DIVISION.
    ACCEPT NUM1.                                     
    ACCEPT NUM2.                                     
    ADD NUM1 TO NUM2 GIVING RESULT.                   
    DISPLAY RESULT.                                 
    SUBTRACT NUM1 FROM NUM2 GIVING RESULT.          
    DISPLAY RESULT.                                 
    MULTIPLY NUM1 BY NUM2 GIVING RESULT.            
    DISPLAY RESULT.                                 
    DIVIDE NUM1 BY NUM2 GIVING RESULT.              
    DISPLAY RESULT.
    DIVIDE NUM1 BY NUM2 GIVING DECRESULT.              
    DISPLAY DECRESULT.   
STOP RUN.
 
 
*> STDIN
*>    173
*>    19 
 
 
*> run:
*>
*> 0192
*> 0154
*> 3287
*> 0009
*> 009.10
*>

 

70+ SQL courses for beginners and professionals