
  PROCEDURE [XREF] pfp$record_dm_file_parameters
    (    p_path: ^pft$complete_path;
         p_cycle_number: ^fst$cycle_number;
         system_file_id: gft$system_file_identifier;
         device_class: rmt$device_class;
         p_removable_media_req_info: {input^} ^fmt$removable_media_req_info;
         p_volume_list: {input^} ^rmt$volume_list;
         p_catalog_heap: {output^} pft$p_catalog_heap;
     VAR p_physical_fmd: {output} pft$p_physical_fmd;
     VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??
*copyc fmt$removable_media_req_info
*copyc fst$cycle_number
*copyc gft$system_file_identifier
*copyc ost$status
*copyc pft$complete_path
*copyc pft$p_catalog_heap
*copyc pft$p_physical_fmd
*copyc rmt$device_class
*copyc rmt$volume_list
?? POP ??
