 TYPE
    fdt$error_definition = record
      case key: fdt$error_key of


      = fdc$error_form =
        error_form: ost$name,

      = fdc$error_message =
        p_error_message: ^fdt$error_message,

      = fdc$no_error_response =
        ,
      = fdc$system_default_error =
        ,
      casend
    recend;

*copyc ost$name
*copyc fdt$error_message
*copyc fdt$error_key
