
  TYPE
    pft$queued_catalog = record
      p_next_newest: ^pft$queued_catalog,
      p_next_oldest: ^pft$queued_catalog,
      case valid_catalog: boolean of
      = FALSE =
        ,
      = TRUE =
        set_name: stt$set_name,
        parent_catalog_internal_name: pft$internal_catalog_name,
        external_catalog_name: pft$name,
        internal_catalog_name: pft$internal_catalog_name,
        global_file_name: ost$binary_unique_name,
        recorded_vsn: rmt$recorded_vsn,
        charge_id: pft$charge_id,
        system_file_id: gft$system_file_identifier,
        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$queued_permit_entry,
        casend,
      casend,
    recend;

*copyc gft$system_file_identifier
*copyc ost$binary_unique_name
*copyc pft$charge_id
*copyc pft$internal_catalog_name
*copyc pft$name
*copyc pft$queued_internal_catalog
*copyc pft$queued_permit_entry
*copyc rmt$recorded_vsn
*copyc stt$set_name
