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