 TYPE
    fdt$work_area_length = 1 .. fdc$maximum_record_length;

*copyc fdc$maximum_record_length
