
  PROCEDURE [XREF] pup$write_excluded_cycle
    (    pf_entry: put$entry;
         cycle_array_entry: pft$cycle_array_entry_version_2;
         file_length: amt$file_length;
         global_file_name: ost$binary_unique_name;
         p_recorded_vsn: ^array [1 .. * ] of rmt$recorded_vsn;
         p_cycle_array_extended_record: pft$p_info_record;
         p_cycle_directory_array: pft$p_cycle_directory_array;
         exclusion_descriptor: put$action_descriptor;
     VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??
*copyc amt$file_length
*copyc ost$binary_unique_name
*copyc ost$status
*copyc pft$cycle_array_entry_version_2
*copyc pft$p_cycle_directory_array
*copyc pft$p_info_record
*copyc pud$hierarchy_list
*copyc pud$list_options
*copyc rmd$volume_declarations
?? POP ??
