 TYPE
    fdt$forms_status = array [1 .. * ] of fdt$form_status;

*copyc fdt$form_status
