COBOL Manual for TNS and TNS/R Programs

Procedure Division
HP COBOL Manual for TNS and TNS/R Programs522555-006
43-12
CLOSE for Relative, Indexed, and Queue Files
CLOSE for Relative, Indexed, and Queue Files
COMPUTE
CONTINUE
file-name
CLOSE
WITH LOCK
VST140.vsd
COMPUTE
result
ROUNDED
END-COMPUTE
=
expression
ON
SIZE ERROR
NOT
ON
SIZE
ERROR
imp-stmt-1
imp-stmt-2
VST141.vsd
CONTINUE
VST142.vsd