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

      = fdc$error_form =
        error_form: ost$name,

      = fdc$error_message =
        p_error_message: REL (fdt$form_module) ^fdt$error_message,

      = fdc$no_error_response, fdc$system_default_error =
        ,

      casend
    recend;

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