Question

How to divide variables in COBOL

Answer 1

IDENTIFICATION DIVISION.
PROGRAM-ID. COBOL-PRO.
 
DATA DIVISION.
   WORKING-STORAGE SECTION.
   01 A-NUM1 PIC 9(3) VALUE 17.
   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.
   DIVIDE A-NUM1 BY A-NUM2 GIVING A-NUM3 REMAINDER 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 : 017
*> A-NUM2 : 005
*> A-NUM3 : 003
*> A-NUM4 : 002
*>

 

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 17.
   01 A-NUM2 PIC 9(3) VALUE 173.

PROCEDURE DIVISION.
   DIVIDE A-NUM1 INTO A-NUM2.

   DISPLAY "A-NUM1 : " A-NUM1
   DISPLAY "A-NUM2 : " A-NUM2

STOP RUN.
 
 
 
*> run:
*> 
*> A-NUM1 : 017
*> A-NUM2 : 010
*>

 

70+ SQL courses for beginners and professionals