
  PROCEDURE [XREF] pfp$r2_attach_or_create
    (    family_location: pft$family_location;
         mainframe_id: pmt$binary_mainframe_id;
         validation_ring: ost$valid_ring;
         system_privilege: boolean;
         exception_selection_info: pft$exception_selection_info;
         p_attachment_options: {input} ^fst$attachment_options;
         p_file_label: {input} ^fmt$file_label;
         p_path_table_cycle_info: {input} ^fmt$path_table_cycle_info;
         catalog_cycle_attributes: pft$catalog_cycle_attributes;
     VAR evaluated_file_reference: {i/o} fst$evaluated_file_reference;
     VAR action_attempted: pft$action_attempted;
     VAR action_taken: pft$attach_or_create_action;
     VAR authority: pft$authority;
     VAR allowed_access: fst$file_access_options;
     VAR selected_access: fst$file_access_options;
     VAR required_sharing: fst$file_access_options;
     VAR selected_sharing: fst$file_access_options;
     VAR device_class: rmt$device_class;
     VAR global_file_name: ost$binary_unique_name;
     VAR new_global_file_name: ost$binary_unique_name;
     VAR new_remote_sfid: gft$system_file_identifier;
     VAR label_used: boolean;
     VAR bytes_allocated: amt$file_byte_address;
     VAR p_file_server_buffers: {server only: i^/o^} ^pft$file_server_buffers;
     VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??
*copyc osd$virtual_address
*copyc pfe$error_condition_codes
*copyc pfe$internal_error_conditions
*copyc amt$file_byte_address
*copyc fmt$file_label
*copyc fmt$path_table_cycle_info
*copyc fst$attachment_options
*copyc fst$evaluated_file_reference
*copyc fst$file_access_options
*copyc gft$system_file_identifier
*copyc ost$binary_unique_name
*copyc ost$status
*copyc pft$action_attempted
*copyc pft$attach_or_create_action
*copyc pft$authority
*copyc pft$catalog_cycle_attributes
*copyc pft$exception_selection_info
*copyc pft$family_location
*copyc pft$file_server_buffers
*copyc pmt$binary_mainframe_id
*copyc rmt$device_class
?? POP ??
