
  TYPE
    pft$queued_internal_catalog = record
      { The parent catalog name is needed for internal catalogs because of the
      { possibility of multiple nested internal catalogs.
      parent_catalog_name: pft$internal_catalog_name,
      external_catalog_name: pft$name,
      internal_catalog_name: pft$internal_catalog_name,
      charge_id: pft$charge_id,
      permit: pft$permit_entry,
      p_next_internal_catalog: ^pft$queued_internal_catalog,
    recend;

*copyc pft$charge_id
*copyc pft$internal_catalog_name
*copyc pft$name
*copyc pft$permit_entry
