
  PROCEDURE [XREF] pfp$r2_df_client_define
    (    served_family_location: pft$served_family_locator;
         lfn: amt$local_file_name;
         path: pft$path;
         cycle_selector: pft$cycle_selector;
         password: pft$password;
         log: pft$log;
         catalog_cycle_attributes: pft$catalog_cycle_attributes;
         system_privilege: boolean;
         validation_ring: ost$valid_ring;
         device_class: rmt$device_class;
         p_mass_storage_request_info: {input} ^fmt$mass_storage_request_info;
         p_removable_media_req_info: {input} ^fmt$removable_media_req_info;
         p_volume_list: {input} ^rmt$volume_list;
     VAR cycle_number: fst$cycle_number;
     VAR authority: pft$authority;
     VAR bytes_allocated: amt$file_byte_address;
     VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??
*copyc osd$virtual_address
*copyc rmd$volume_declarations
*copyc amt$file_byte_address
*copyc amt$local_file_name
*copyc fmt$mass_storage_request_info
*copyc fmt$removable_media_req_info
*copyc fst$cycle_number
*copyc fst$retention
*copyc ost$status
*copyc pft$authority
*copyc pft$catalog_cycle_attributes
*copyc pft$cycle_selector
*copyc pft$log
*copyc pft$password
*copyc pft$path
*copyc pft$retrieve_option
*copyc pft$served_family_locator
*copyc pft$site_archive_option
*copyc pft$site_backup_option
*copyc pft$site_release_option
*copyc rmt$device_class
*copyc rmt$volume_list
?? POP ??
