 TYPE
    fdt$form_names = array [1 .. * ] of fdt$form_name;

*copyc fdt$form_name
