
  PROCEDURE [XREF] pfp$r2_attach_or_create_file
    (    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$p_file_label;
         catalog_cycle_attributes: pft$catalog_cycle_attributes;
     VAR evaluated_file_reference: {i/o} fst$evaluated_file_reference;
     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 action_taken: pft$attach_or_create_action;
     VAR label_replaced: boolean;
     VAR device_class: rmt$device_class;
     VAR global_file_name: ost$binary_unique_name;
     VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??
*copyc osd$virtual_address
*copyc pfe$error_condition_codes
*copyc pfe$internal_error_conditions
*copyc fmt$file_label
*copyc fst$attachment_options
*copyc fst$evaluated_file_reference
*copyc fst$file_access_options
*copyc ost$binary_unique_name
*copyc ost$status
*copyc pft$attach_or_create_action
*copyc pft$catalog_cycle_attributes
*copyc pft$exception_selection_info
*copyc rmt$device_class
?? POP ??
