{ DECK: DFT$POLL_FAMILY_LIST

  TYPE
    dft$poll_family_list = record
      families: array [1 .. * ] of dft$family_verification,
    recend;

  TYPE
    dft$family_verification = record
      family: ost$name,
      valid: boolean,
      family_access: dft$family_access,
    recend;

*copyc dft$family_access
*copyc ost$name
