How to multiply variables in COBOL

2 Answers

0 votes
IDENTIFICATION DIVISION.
PROGRAM-ID. HELLO.

DATA DIVISION.
   WORKING-STORAGE SECTION.
   01 A-NUM1 PIC 9(4) VALUE 5.
   01 A-NUM2 PIC 9(4) VALUE 5.
   01 A-NUM3 PIC 9(4) VALUE 5.

PROCEDURE DIVISION.
   MULTIPLY A-NUM1 BY A-NUM2 A-NUM3.

   DISPLAY "A-NUM1 : " A-NUM1
   DISPLAY "A-NUM2 : " A-NUM2
   DISPLAY "A-NUM3 : " A-NUM3
   
STOP RUN.



# run:
# 
# A-NUM1 : 0005
# A-NUM2 : 0025
# A-NUM3 : 0025

 



answered Sep 17, 2020 by avibootz
0 votes
IDENTIFICATION DIVISION.
PROGRAM-ID. HELLO.

DATA DIVISION.
   WORKING-STORAGE SECTION.
   01 A-NUM1 PIC 9(4) VALUE 5.
   01 A-NUM2 PIC 9(4) VALUE 5.
   01 A-NUM3 PIC 9(4) VALUE 5.

PROCEDURE DIVISION.
   MULTIPLY A-NUM1 BY A-NUM2 GIVING A-NUM3.

   DISPLAY "A-NUM1 : " A-NUM1
   DISPLAY "A-NUM2 : " A-NUM2
   DISPLAY "A-NUM3 : " A-NUM3
   
STOP RUN.



# run:
# 
# A-NUM1 : 0005
# A-NUM2 : 0005
# A-NUM3 : 0025

 



answered Sep 17, 2020 by avibootz

Related questions

1 answer 130 views
2 answers 616 views
616 views asked Sep 18, 2020 by avibootz
2 answers 325 views
325 views asked Sep 18, 2020 by avibootz
2 answers 361 views
361 views asked Sep 17, 2020 by avibootz
1 answer 285 views
285 views asked Sep 17, 2020 by avibootz
1 answer 284 views
284 views asked Sep 17, 2020 by avibootz
...