
  TYPE
    pft$shared_queue_info = packed record
      case defined: boolean of
      = FALSE =
        ,
      = TRUE =
        shared_queue: pft$shared_queue,
      casend,
    recend;

*copyc pft$shared_queue
