 TYPE
    fdt$get_help_definition = record
      case key: fdt$get_help_key of

      = fdc$get_help_form =
        help_form: ost$name,

      = fdc$get_help_message, fdc$get_system_default_help =
        help_message_length: fdt$help_message_length,

      = fdc$get_no_help_response =
        ,

      casend
    recend;

*copyc fdt$get_help_key
*copyc ost$name
*copyc fdt$help_message_length
