 TYPE
    fdt$event_form_definition = record
      case key: fdt$event_form_key of
      = fdc$no_event_form =
        ,
      = fdc$system_default_event_form =
        ,
      = fdc$user_event_form =
        event_form_name: ost$name,
      casend
    recend;

*copyc fdt$event_form_key
*copyc ost$name
