
  PROCEDURE [XREF] pup$restore_sub_levels
    (    entry: put$entry;
         catalog_header: put$catalog_header;
         password_specified: boolean;
         password: pft$password;
         new_catalog_header: put$catalog_header;
         restore_n_levels: boolean;
         p_selected_cycles: {i/o} ^array [1 .. *] of put$selected_cycle_info;
     VAR backup_file_id: put$file_identifier;
     VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??
*copyc ost$status
*copyc pft$password
*copyc pud$hierarchy_list
*copyc put$file_identifier
*copyc put$selected_cycle_info
?? POP ??
