 TYPE
    fdt$error_header = record
      case key: fdt$form_definition_error_key of
      = fdc$no_variable_object, fdc$no_table_object, fdc$no_table_variable,
        fdc$unequal_tbl_obj_width, fdc$no_variable_definition,
        fdc$error_input_conversion, fdc$error_output_conversion,
        fdc$error_invalid_value =
        ,
      casend
    recend;

*copyc fdt$form_definition_error_key
