
  TYPE
    pft$catalog_queueing_info = record
      set_catalog_alarm: boolean,
      case attach_queued: boolean of
      = FALSE =
        ,
      = TRUE =
        parent_catalog_internal_name: pft$internal_catalog_name,
        external_catalog_name: pft$name,
        charge_id: pft$charge_id,
        case access_queued: boolean of
        = FALSE =
          ,
        = TRUE =
          { The following points to the list of all queued internal catalogs.
          p_internal_catalog_list: ^pft$queued_internal_catalog,
          { The following is the direct permit for the job.
          permit: pft$permit_entry,
        casend,
      casend,
    recend;

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