
  PROCEDURE [XREF] pfp$r2_attach_file
    (    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;
         update_catalog: boolean;
         update_cycle_statistics: boolean;
         usage_selector: pft$usage_selector;
         share_selector: pft$share_selector;
         system_privilege: boolean;
         validation_ring: ost$valid_ring;
         allowed_device_classes: fst$device_classes;
         allowed_cycle_damage_symptoms: fst$cycle_damage_symptoms;
     VAR device_class: rmt$device_class;
     VAR cycle_number: fst$cycle_number;
     VAR allowed_usage_selections: pft$usage_selections;
     VAR required_share_selections: pft$share_selections;
     VAR cycle_damage_symptoms: fst$cycle_damage_symptoms;
     VAR authority: pft$authority;
     VAR global_file_name: ost$binary_unique_name;
     VAR p_file_server_buffers: {server only: i^/o^} pft$p_file_server_buffers;
     VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??
*copyc osd$virtual_address
*copyc amt$local_file_name
*copyc fst$cycle_damage_symptoms
*copyc fst$cycle_number
*copyc fst$device_classes
*copyc ost$binary_unique_name
*copyc ost$status
*copyc pft$authority
*copyc pft$complete_path
*copyc pft$cycle_selector
*copyc pft$family_location
*copyc pft$password
*copyc pft$p_file_server_buffers
*copyc pft$share_selections
*copyc pft$share_selector
*copyc pft$usage_selections
*copyc pft$usage_selector
*copyc pmt$binary_mainframe_id
*copyc rmt$device_class
?? POP ??
