
  PROCEDURE [XREF] pfp$r2_define
    (    family_location: pft$family_location;
         mainframe_id: pmt$binary_mainframe_id;
         lfn: amt$local_file_name;
         path: pft$complete_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 p_file_server_buffers: {server only: i^/o^} pft$p_file_server_buffers;
     VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??
*copyc dfd$request_package
*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 ost$status
*copyc pft$authority
*copyc pft$catalog_cycle_attributes
*copyc pft$complete_path
*copyc pft$cycle_selector
*copyc pft$df_define
*copyc pft$family_location
*copyc pft$log
*copyc pft$password
*copyc pft$p_file_server_buffers
*copyc pmt$binary_mainframe_id
*copyc rmt$device_class
*copyc rmt$volume_list
?? POP ??
