COBOL Manual for TNS and TNS/R Programs

Procedure Division Verbs
HP COBOL Manual for TNS and TNS/R Programs—522555-006
9-41
COMPUTE
LOCK
means the file associated with file-name cannot be opened again during the
current run. If the file is dynamically assignable, the LOCK phrase has no effect
(see #DYNAMIC).
See these usage considerations in CLOSE for Sequential and Line Sequential Files:
•
Effects of CLOSE
•
File-Status Data Item
•
Closing a File Open Under More Than One Name
•
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.
COMPUTE
result
ROUNDED
END-COMPUTE
=
expression
ON
SIZE ERROR
NOT
ON
SIZE
ERROR
imp-stmt-1
imp-stmt-2
VST141.vsd