 TYPE
    fdt$variable_index = 1 .. fdc$maximum_variables;

*copyc fdc$maximum_variables
