 TYPE
    fdt$text_length = 0 .. fdc$maximum_text_length;

*copyc fdc$maximum_text_length
