


  PROCEDURE [XREF] pup$build_new_online_cat_head ALIAS 'puxbnoc'
    (catalog_header: put$catalog_header;
        new_catalog_header: put$catalog_header;
        found_catalog_header: put$catalog_header;
    VAR new_online_catalog_header: put$catalog_header);
?? PUSH (LISTEXT := ON) ??
*copyc PUD$HIERARCHY_LIST
?? POP ??
