
  PROCEDURE [XREF] pup$build_new_catalog_header (pfu_entry: put$entry;
        pf_utility_catalog_header: put$catalog_header;
    VAR pf_util_new_catalog_header: put$catalog_header);
?? PUSH (LISTEXT := ON) ??
*copyc PUD$HIERARCHY_LIST
?? POP ??
