COBOL ADD VERB
Example of ADD VERB
PROGRAM
IDENTIFICATION DIVISION.
PROGRAM-ID. PGM004.
AUTHOR. MAINFRAMEWIZARD.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 GROUP1.
05 ELEMENT1 PIC 9(3) VALUE 15.
05 ELEMENT2 PIC 9(3) VALUE 25.
01 GROUP2.
05 ELEMENT3 PIC 9(3) VALUE 23.
05 ELEMENT4 PIC 9(3) VALUE 45.
01 NUM1 PIC 9(3) VALUE 05.
01 NUM2 PIC 9(3) VALUE 10.
01 NUM3 PIC 9(3) VALUE 15.
01 NUM4 PIC 9(3) VALUE 20.
01 NUM5 PIC 9(3) VALUE 25.
01 NUM6 PIC 9(3) VALUE 30.
01 NUM7 PIC 9(3) VALUE 05.
01 NUM8 PIC 9(3) VALUE 10.
01 NUM9 PIC 9(3) VALUE 15.
01 NUM10 PIC 9(3) VALUE 20.
01 NUM11 PIC 9(3) VALUE 25.
01 NUM12 PIC 9(3) VALUE 30.
PROCEDURE DIVISION.
10000-MAIN-PARA.
DISPLAY 'ADD NUM1 TO NUM2'
DISPLAY 'NUM1 BEFORE =' NUM1
DISPLAY 'NUM2 BEFORE =' NUM2
ADD NUM1 TO NUM2
DISPLAY 'NUM1 AFTER =' NUM1
DISPLAY 'NUM2 AFTER =' NUM2
DISPLAY '--------------------------'
DISPLAY 'ADD NUM3, NUM4 TO NUM5'
DISPLAY 'NUM3 BEFORE =' NUM3
DISPLAY 'NUM4 BEFORE =' NUM4
DISPLAY 'NUM5 BEFORE =' NUM5
ADD NUM3, NUM4 TO NUM5
DISPLAY 'NUM3 AFTER =' NUM3
DISPLAY 'NUM4 AFTER =' NUM4
DISPLAY 'NUM5 AFTER =' NUM5
DISPLAY '--------------------------'
DISPLAY 'ADD NUM6, NUM7 GIVING NUM8 NUM9'
DISPLAY 'NUM6 BEFORE =' NUM6
DISPLAY 'NUM7 BEFORE =' NUM7
DISPLAY 'NUM8 BEFORE =' NUM8
DISPLAY 'NUM9 BEFORE =' NUM9
ADD NUM6, NUM7 GIVING NUM8 NUM9
DISPLAY 'NUM6 AFTER =' NUM6
DISPLAY 'NUM7 AFTER =' NUM7
DISPLAY 'NUM8 AFTER =' NUM8
DISPLAY 'NUM9 AFTER =' NUM9
DISPLAY '--------------------------'
DISPLAY 'ADD NUM10 TO NUM11 GIVING NUM12'
DISPLAY 'NUM10 BEFORE =' NUM10
DISPLAY 'NUM11 BEFORE =' NUM11
DISPLAY 'NUM12 BEFORE =' NUM12
ADD NUM10 TO NUM11 GIVING NUM12
DISPLAY 'NUM10 AFTER =' NUM10
DISPLAY 'NUM11 AFTER =' NUM11
DISPLAY 'NUM12 AFTER =' NUM12
DISPLAY '--------------------------'
DISPLAY 'ADD CORRESPONDING GROUP1 TO GROUP2'
DISPLAY 'GROUP1 BEFORE =' GROUP1
DISPLAY 'GROUP2 BEFORE =' GROUP2
ADD CORRESPONDING GROUP1 TO GROUP2
DISPLAY 'GROUP1 AFTER =' GROUP1
DISPLAY 'GROUP2 AFTER =' GROUP2
DISPLAY '--------------------------'
STOP RUN.
OUTPUT
ADD NUM1 TO NUM2
NUM1 BEFORE =005
NUM2 BEFORE =010
NUM1 AFTER =005
NUM2 AFTER =015
--------------------------
ADD NUM3, NUM4 TO NUM5
NUM3 BEFORE =015
NUM4 BEFORE =020
NUM5 BEFORE =025
NUM3 AFTER =015
NUM4 AFTER =020
NUM5 AFTER =060
--------------------------
ADD NUM6, NUM7 GIVING NUM8 NUM9
NUM6 BEFORE =030
NUM7 BEFORE =005
NUM8 BEFORE =010
NUM9 BEFORE =015
NUM6 AFTER =030
NUM7 AFTER =005
NUM8 AFTER =035
NUM9 AFTER =035
--------------------------
ADD NUM10 TO NUM11 GIVING NUM12
NUM10 BEFORE =020
NUM11 BEFORE =025
NUM12 BEFORE =030
NUM10 AFTER =020
NUM11 AFTER =025
NUM12 AFTER =045
--------------------------
ADD CORRESPONDING GROUP1 TO GROUP2
GROUP1 BEFORE =015025
GROUP2 BEFORE =023045
GROUP1 AFTER =015025
GROUP2 AFTER =023045
--------------------------