Question

How to subtract variables in COBOL

Answer 1

IDENTIFICATION DIVISION.
PROGRAM-ID. COBOL-PRO.
 
DATA DIVISION.
   WORKING-STORAGE SECTION.
   01 A-NUM1 PIC 9(3) VALUE 5.
   01 A-NUM2 PIC 9(3) VALUE 5.
   01 A-NUM3 PIC 9(3) VALUE 13.
   01 A-NUM4 PIC 9(3) VALUE 22.
    
PROCEDURE DIVISION.
   SUBTRACT A-NUM1 A-NUM2 FROM 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 : 005
*> A-NUM3 : 003
*> A-NUM4 : 012
*>

 

70+ SQL courses for beginners and professionals

Answer 2

IDENTIFICATION DIVISION.
PROGRAM-ID. COBOL-PRO.
 
DATA DIVISION.
   WORKING-STORAGE SECTION.
   01 A-NUM1 PIC 9(3) VALUE 5.
   01 A-NUM2 PIC 9(3) VALUE 5.
   01 A-NUM3 PIC 9(3) VALUE 13.
   01 A-NUM4 PIC 9(3) VALUE 22.
   01 A-NUM5 PIC 9(3) VALUE 7.
    
PROCEDURE DIVISION.
   SUBTRACT A-NUM1 A-NUM2 A-NUM3 FROM 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 : 005
*> A-NUM2 : 005
*> A-NUM3 : 013
*> A-NUM4 : 022
*> A-NUM5 : 001
*>

 

70+ SQL courses for beginners and professionals