Ch 7_3. COMPUTING IN COBOL III
MULTIPLY
- MULTIPLY A BY B
B will be A x B, A is unchanged
- MULTIPLY A BY B GIVING C
DIVIDE
- DIVIDE A INTO B
B = B/A
- DIVIDE A BY B GIVING C
C = A/B
- DIVIDE A BY B GIVING C REMAINDER D
C = integer value of A/B, D = integer remainder
Divide By Zero!
What will happen?
MOVE 0 TO A.
MOVE 567 TO B.
DIVIDE B BY A GIVING C.
Dividing by Zero Causes a SIZE ERROR! Since it yields a result of
infinity. How to be defensive?
ON SIZE ERROR
DIVIDE B BY A GIVING C
ON SIZE ERROR MOVE ZERO TO C
END-DIVIDE