COBOL Manual for TNS and TNS/R Programs

Procedure Division Verbs
HP COBOL Manual for TNS and TNS/R Programs—522555-006
9-53
DIVIDE GIVING
DIVIDE GIVING
DIVIDE GIVING divides one data item into another data item and stores the quotient in
one or more data items.
divisor
is the identifier of the elementary numeric data item or numeric literal that is the
divisor.
dividend
is the identifier of an elementary numeric data item that is the dividend.
quotient
is the identifier of the elementary numeric item or elementary numeric edited data
item in which the quotient is to be stored.
ROUNDED
specifies that quotient is to be rounded before being stored.
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