 TYPE
    dft$family_info_list = array [1 .. * ] of dft$family_info_record;

*copyc dft$family_info_record
