Question

How to use arithmetic expressions in COBOL

Answer 1

IDENTIFICATION DIVISION.
PROGRAM-ID. COBOL-PRO.
 
DATA DIVISION.
   WORKING-STORAGE SECTION.
   01 A-NUM1 PIC 9(3) VALUE 2.
   01 A-NUM2 PIC 9(3) VALUE 30.
   01 A-NUM3 PIC 9(3) VALUE 8.
   01 A-NUM4 PIC 9(3) VALUE 12.
   01 A-NUM5 PIC 9(3) VALUE 4.
   01 A-NUM6 PIC 9(3).
   
PROCEDURE DIVISION.
   COMPUTE A-NUM6 = (A-NUM1 * A-NUM2) - (A-NUM4 / A-NUM5) + A-NUM3.

   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
   DISPLAY "A-NUM6 : " A-NUM6
   
STOP RUN.
 
 
 
# run:
# 
# A-NUM1 : 002
# A-NUM2 : 030
# A-NUM3 : 008
# A-NUM4 : 012
# A-NUM5 : 004
# A-NUM6 : 065

 

70+ SQL courses for beginners and professionals