
  PROCEDURE [XREF] ocp$close_all_open_files ALIAS 'ocpcaof' (VAR
    open_file_list: oct$open_file_list);
