
  PROCEDURE [XREF] pup$initialize_restore_listing ALIAS 'puxinrl'
    (    descriptor: string ( * );
         old_catalog_header: put$catalog_header;
         old_entry: put$entry;
         new_catalog_path: pft$path;
         new_cycle_selector: pft$cycle_selector;
     VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??
*copyc pud$hierarchy_list
*copyc ost$status
*copyc pft$cycle_selector
*copyc pft$path
?? POP ??
