
  PROCEDURE [XREF] pfp$attach_permanent_file
    (    family_location: pft$family_location;
         mainframe_id: pmt$binary_mainframe_id;
         lfn: amt$local_file_name;
         path: pft$complete_path;
         attached_pf_table_index: pft$attached_pf_table_index;
         usage_selections: pft$usage_selections;
         share_selections: pft$share_selections;
         application_info: pft$application_info;
         validation_ring: ost$valid_ring;
         password_protected: boolean;
         allowed_cycle_damage_symptoms: fst$cycle_damage_symptoms;
         enable_media_damage_detection: boolean;
         implicit_attach: boolean;
         update_catalog: boolean;
         authority: pft$authority;
         p_file_label: {input} ^fmt$file_label;
         p_catalog_file: {i^/o^} ^pft$catalog_file;
         p_physical_cycle: {i^/o^} ^pft$physical_cycle;
     VAR system_file_id: gft$system_file_identifier;
     VAR file_damaged: boolean;
     VAR flush_catalog_pages: boolean;
     VAR path_handle: fmt$path_handle;
     VAR p_file_server_buffers: ^pft$file_server_buffers;
     VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??
*copyc osd$virtual_address
*copyc amt$local_file_name
*copyc dft$command_buffer
*copyc fmt$file_label
*copyc fmt$path_handle
*copyc fst$cycle_damage_symptoms
*copyc gft$system_file_identifier
*copyc ost$status
*copyc pft$application_info
*copyc pft$attached_permanent_file_id
*copyc pft$attached_pf_table_index
*copyc pft$authority
*copyc pft$catalog_file
*copyc pft$complete_path
*copyc pft$family_location
*copyc pft$file_server_buffers
*copyc pft$physical_cycle
*copyc pft$share_selections
*copyc pft$usage_selections
*copyc pmt$binary_mainframe_id
?? POP ??
