
  PROCEDURE [XREF] pup$display_subset_found_header ALIAS 'puxdsfh'
    (catalog_header: put$catalog_header;
        found_entry: put$entry;
        new_catalog_header: put$catalog_header;
        new_entry: put$entry;
    VAR status: ost$status);
?? PUSH (LISTEXT := ON) ??
*copyc OST$STATUS
*copyc PUD$HIERARCHY_LIST
?? POP ??
