
  TYPE
    put$excluded_item_entry = record
      p_next_excluded_entry: ^put$excluded_item_entry,
      entry: put$entry,
      catalog_header: put$catalog_header,
    recend,

    put$excluded_item_list = array [put$entry_type] of
      ^put$excluded_item_entry;

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