
  PROCEDURE [XREF] pup$restore_cycle_if_excluded
    (    requested_entry: put$entry;
         catalog_header: put$catalog_header;
         new_catalog_header: put$catalog_header;
         new_cycle_selector: pft$cycle_selector;
         found_entry: put$entry;
         found_catalog_header: put$catalog_header;
         restore_selections: put$restore_data_selections;
         p_cycle_array_extended_record: pft$p_info_record;
         p_cycle_directory_array: pft$p_cycle_directory_array;
     VAR backup_file_id: put$file_identifier;
     VAR file_position: put$file_position;
     VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??
*copyc pud$backup_file
*copyc pud$hierarchy_list
*copyc ost$status
*copyc pft$cycle_selector
*copyc pft$p_cycle_directory_array
*copyc pft$p_info_record
*copyc put$file_identifier
*copyc put$file_position
*copyc put$restore_data_selections
?? POP ??

