 TYPE
    fdt$valid_integer_ranges = record
      active_number: fdt$number_valid_integers,
      p_valid_integer_ranges: REL (fdt$form_module) ^array [1 .. * ] of
        fdt$valid_integer_range,
      total_number: fdt$number_valid_integers,
    recend;

*copyc fdt$form_module
*copyc fdt$number_valid_integers
*copyc fdt$valid_integer_range
