COBOL Manual for TNS and TNS/R Programs

Procedure Division Verbs
HP COBOL Manual for TNS and TNS/R Programs—522555-006
9-51
DIVIDE INTO
DIVIDE INTO
DIVIDE INTO divides one data item into one or more other data items and stores the
quotient(s) in the respective dividend data item(s).
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 both the dividend and
the receiver of the quotient.
ROUNDED
specifies that quotient is to be rounded before being stored.
imperative-stmt-1
is an imperative statement for the process to execute if it detects a size error in the
division or in storing the result.
imperative-stmt-2
is an imperative statement for the process to execute if it does not detect a size
error in the division or in storing the result.
DIVIDE
divisor
INTO
END-DIVIDE
ON
SIZE ERROR
NOT
ON
SIZE ERROR
imperative-stmt-2
imperative-stmt-1
dividend
ROUNDED
VST145.vsd