 TYPE
    fdt$number_objects = 0 .. fdc$maximum_objects;

*copyc fdc$maximum_objects
