
  PROCEDURE [XREF] pfp$pick_modes_for_open
    (    evaluated_file_reference: fst$evaluated_file_reference;
         p_attachment_options: {input} ^fst$attachment_options;
         allowed_access: fst$file_access_options;
         required_sharing: fst$file_access_options;
         setfa_access_modes: fst$access_modes;
         device_class: rmt$device_class;
         cycle_formerly_opened_info: fmt$cycle_formerly_opened_info;
         called_by_attach: boolean;
         create_file: boolean;
         validation_ring: ost$valid_ring;
     VAR selected_access: fst$file_access_options;
     VAR selected_sharing: fst$file_access_options;
     VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??
*copyc osd$virtual_address
*copyc fmt$cycle_formerly_opened_info
*copyc fst$access_modes
*copyc fst$attachment_options
*copyc fst$evaluated_file_reference
*copyc fst$file_access_options
*copyc ost$status
*copyc pft$password_info
*copyc rmt$device_class
?? POP ??
