
  PROCEDURE [XREF] pfp$create_permanent_file
    (    family_location: pft$family_location;
         lfn: amt$local_file_name;
         path: pft$complete_path;
         cycle_number: fst$cycle_number;
         apft_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;
         enable_media_damage_detection: boolean;
         implicit_attach: boolean;
         recreate_attached_cycle_data: boolean;
         p_file_label: {input} fmt$p_file_label;
         device_class: rmt$device_class;
         p_mass_storage_request_info: {input} ^fmt$mass_storage_request_info;
         p_removable_media_req_info: {input} ^fmt$removable_media_req_info;
         p_volume_list: {input} ^rmt$volume_list;
         authority: pft$authority;
     VAR path_handle: fmt$path_handle;
     VAR system_file_id: gft$system_file_identifier;
     VAR internal_cycle_name: pft$internal_name;
     VAR bytes_allocated: amt$file_byte_address;
     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 pfe$error_condition_codes
*copyc rme$request_mass_storage
*copyc amt$file_byte_address
*copyc amt$local_file_name
*copyc dft$command_buffer
*copyc fmt$file_label
*copyc fmt$mass_storage_request_info
*copyc fmt$path_handle
*copyc fmt$removable_media_req_info
*copyc fst$cycle_number
*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$complete_path
*copyc pft$family_location
*copyc pft$internal_name
*copyc pft$p_file_server_buffers
*copyc pft$share_selections
*copyc pft$usage_selections
*copyc rmt$device_class
*copyc rmt$volume_list
?? POP ??
