
  PROCEDURE [XREF] dmp$dat_purge_file
    (    gfn: dmt$global_file_name;
         dfl_index: dmt$device_file_list_index;
         avt_index: dmt$active_volume_table_index;
     VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??
*copyc dmt$active_volume_table_index
*copyc dmt$device_file_list_index
*copyc dmt$global_file_name
*copyc ost$status
?? POP ??
