
  PROCEDURE [XREF] ocp$build_scl_directory (file_name: amt$local_file_name;
    file_descriptor: ^oct$open_file_list;
    VAR status: ost$status);
