
  PROCEDURE [XREF] ocp$obtain_working_file_list (file_keyword: string ( * );
    VAR working_file_list: oct$working_file_list;
    VAR status: ost$status);
