  PROCEDURE [XREF] ocp$close_output_file (VAR status: ost$status);
