
  PROCEDURE [XREF] pup$output_cycle
    (    lfn: amt$local_file_name;
         cycle_entry: put$entry;
         pf_utility_catalog_header: put$catalog_header;
         cycle_info: put$backup_item_info;
         cycle_array_entry: pft$cycle_array_entry_version_2;
         cycle_label_exists: boolean;
         cycle_label: SEQ ( * );
         pf_utility_hierarchy_list: put$hierarchy_list;
         cycle_length: amt$file_length;
         data_exists: boolean;
     VAR pf_backup_file_id: put$file_identifier;
     VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??
*copyc osd$virtual_address
*copyc pud$backup_file
*copyc pud$hierarchy_list
*copyc amt$file_length
*copyc amt$local_file_name
*copyc ost$status
*copyc pft$cycle_array_entry_version_2
*copyc put$file_identifier
?? POP ??
