 TYPE
    fdt$get_error_definition = record
      case key: fdt$get_error_key of

      = fdc$get_error_form =
        error_form: ost$name,

      = fdc$get_error_message, fdc$get_system_default_error =
        error_message_length: fdt$error_message_length,

      = fdc$get_no_error_response =
        ,

      casend
    recend;

*copyc fdt$get_error_key
*copyc ost$name
*copyc fdt$error_message_length
