  TYPE
    fdt$read_forms_index = 0 .. fdc$maximum_read_forms_index;

*copyc fdc$maximum_read_forms_index
