
  PROCEDURE [XREF] dmp$destroy_sub_file
    (    global_file_name: dmt$global_file_name;
         recorded_vsn: rmt$recorded_vsn;
         dfl_index: dmt$device_file_list_index;
         byte_address: amt$file_byte_address;
     VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??
*copyc amt$file_byte_address
*copyc dmt$device_file_list_index
*copyc dmt$global_file_name
*copyc ost$status
*copyc rmd$volume_declarations
?? POP ??
