COBOL Manual for TNS/E Programs (H06.03+)

Procedure Division Verbs
HP COBOL Manual for TNS/E Programs—520347-003
9-39
COMPUTE
•
Closing Blocked Files
•
Process Pairs
COMPUTE
COMPUTE evaluates an arithmetic expression and stores the result in the specified
data item or items.
result
is the identifier of a numeric elementary item or numeric edited elementary item
where the result of the computation is to be stored.
ROUNDED
specifies that the value is rounded before being stored.
expression
is an arithmetic expression.
imp-stmt-1
is an imperative statement to be executed when a size error has been detected in
the computation or in storing the result.
COMPUTE
result
ROUNDED
END-COMPUTE
=
expression
ON
SIZE ERROR
NOT
ON
SIZE
ERROR
imp-stmt-1
imp-stmt-2
VST141.vsd