COBOL DIVIDE VERB
Example of DIVIDE verb
PROGRAM
IDENTIFICATION DIVISION.
PROGRAM-ID. PGM007.
AUTHOR. MAINFRAMEWIZARD.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 NUM1 PIC 9(3) VALUE 05.
01 NUM2 PIC 9(3) VALUE 25.
01 NUM3 PIC 9(3) VALUE 12.
01 NUM4 PIC 9(3) VALUE 60.
01 NUM5 PIC 9(3) VALUE 50.
01 NUM6 PIC 9(3) VALUE 45.
01 NUM7 PIC 9(3) VALUE 09.
01 NUM8 PIC 9(3) VALUE 35.
01 NUM9 PIC 9(3) VALUE 30.
01 NUM10 PIC 9(3) VALUE 25.
01 NUM11 PIC 9(3) VALUE 04.
01 NUM12 PIC 9(3) VALUE 15.
01 NUM14 PIC 9(3) VALUE 05.
01 GROUP1.
05 ELEMENT1 PIC 9(3) VALUE 25.
05 ELEMENT2 PIC 9(3) VALUE 36.
01 GROUP2.
05 ELEMENT3 PIC 9(3) VALUE 05.
05 ELEMENT4 PIC 9(3) VALUE 06.
PROCEDURE DIVISION.
10000-MAIN-PARA.
DISPLAY 'DIVIDE NUM1 INTO NUM2'
DISPLAY 'NUM1 BEFORE =' NUM1
DISPLAY 'NUM2 BEFORE =' NUM2
DIVIDE NUM1 INTO NUM2
DISPLAY 'NUM1 AFTER =' NUM1
DISPLAY 'NUM2 AFTER =' NUM2
DISPLAY '--------------------------'
DISPLAY 'DIVIDE NUM3 INTO NUM4 GIVING NUM5'
DISPLAY 'NUM3 BEFORE =' NUM3
DISPLAY 'NUM4 BEFORE =' NUM4
DISPLAY 'NUM5 BEFORE =' NUM5
DIVIDE NUM3 INTO NUM4 GIVING NUM5
DISPLAY 'NUM3 AFTER =' NUM3
DISPLAY 'NUM4 AFTER =' NUM4
DISPLAY 'NUM5 AFTER =' NUM5
DISPLAY '--------------------------'
DISPLAY 'DIVIDE NUM6 BY NUM7 GIVING NUM8, NUM9'
DISPLAY 'NUM6 BEFORE =' NUM6
DISPLAY 'NUM7 BEFORE =' NUM7
DISPLAY 'NUM8 BEFORE =' NUM8
DISPLAY 'NUM9 BEFORE =' NUM9
DIVIDE NUM6 BY NUM7 GIVING NUM8, NUM9
DISPLAY 'NUM6 AFTER =' NUM6
DISPLAY 'NUM7 AFTER =' NUM7
DISPLAY 'NUM8 AFTER =' NUM8
DISPLAY 'NUM9 AFTER =' NUM9
DISPLAY '--------------------------'
DISPLAY 'DIVIDE NUM10 BY NUM11 GIVING NUM12 REMAINDER NUM14'
DISPLAY 'NUM10 BEFORE =' NUM10
DISPLAY 'NUM11 BEFORE =' NUM11
DISPLAY 'NUM12 BEFORE =' NUM12
DISPLAY 'NUM14 BEFORE =' NUM14
DIVIDE NUM10 BY NUM11 GIVING NUM12 REMAINDER NUM14
DISPLAY 'NUM10 AFTER =' NUM10
DISPLAY 'NUM11 AFTER =' NUM11
DISPLAY 'NUM12 AFTER =' NUM12
DISPLAY 'NUM14 AFTER =' NUM14
DISPLAY '--------------------------'
STOP RUN.
.
OUTPUT
DIVIDE NUM1 INTO NUM2
NUM1 BEFORE =005
NUM2 BEFORE =025
NUM1 AFTER =005
NUM2 AFTER =005
--------------------------
DIVIDE NUM3 INTO NUM4 GIVING NUM5
NUM3 BEFORE =012
NUM4 BEFORE =060
NUM5 BEFORE =050
NUM3 AFTER =012
NUM4 AFTER =060
NUM5 AFTER =005
--------------------------
DIVIDE NUM6 BY NUM7 GIVING NUM8, NUM9
NUM6 BEFORE =045
NUM7 BEFORE =009
NUM8 BEFORE =035
NUM9 BEFORE =030
NUM6 AFTER =045
NUM7 AFTER =009
NUM8 AFTER =005
NUM9 AFTER =005
--------------------------
DIVIDE NUM10 BY NUM11 GIVING NUM12 REMAINDER NUM14
NUM10 BEFORE =025
NUM11 BEFORE =004
NUM12 BEFORE =015
NUM14 BEFORE =005
NUM10 AFTER =025
NUM11 AFTER =004
NUM12 AFTER =006
NUM14 AFTER =001
--------------------------