
  PROCEDURE [XREF] pup$compare_item_descriptor ALIAS 'puxcid' (put_entry_a:
    put$entry;
        cat_header_a: put$catalog_header;
        put_entry_b: put$entry;
        cat_header_b: put$catalog_header;
    VAR a_equals_b: boolean;
    VAR a_subset_of_b: boolean);

?? PUSH (LISTEXT := ON) ??
*copyc PUD$HIERARCHY_LIST
?? POP ??
