COBOL Manual for TNS and TNS/R Programs

Procedure Division
HP COBOL Manual for TNS and TNS/R Programs522555-006
43-17
DIVIDE GIVING
DIVIDE GIVING
DIVIDE
divisor
dividend
INTO
dividend
BY
divisor
GIVING
END-DIVIDE
ON
SIZE ERROR
NOT
ON
SIZE
ERROR
imperative-stmt-2
imperative-stmt-1
quotient
ROUNDED
VST146.vsd