 TYPE
    fdt$number_tables = 0 .. fdc$maximum_tables;

*copyc fdc$maximum_tables
