
  PROCEDURE [XREF] dmp$locate_existing_sft_entry
    (    global_file_name: dmt$global_file_name;
         file_kind: gft$file_kind;
     VAR existing_sft_entry: dmt$existing_sft_entry;
     VAR file_info: dmt$file_information;
     VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??
*copyc dmt$existing_sft_entry
*copyc dmt$global_file_name
*copyc dmt$file_information
*copyc gft$file_kind
*copyc ost$status
?? POP ??
