
  PROCEDURE [XREF] ocp$obtain_header (VAR module_description:
    oct$module_description;
    changed_ino: ^oct$changed_info;
    VAR header: oct$header;
    VAR status: ost$status);
