 TYPE
    fdt$valid_real_ranges = record
      active_number: fdt$number_valid_reals,
      p_valid_real_ranges: REL (fdt$form_module) ^array [1 .. * ] of
        fdt$valid_real_range,
      total_number: fdt$number_valid_reals,
    recend;

*copyc fdt$form_module
*copyc fdt$number_valid_reals
*copyc fdt$valid_real_range
