 TYPE
    fdt$program_variable_length = 0 .. fdc$maximum_variable_length;

*copyc fdc$maximum_variable_length
