 TYPE
    fdt$get_form_attribute = record
      get_value_status: fdt$get_value_status,
      {output}
      case key: {input} fdt$get_form_key of

      = fdc$get_error_message_form =
        error_message_form: {output} ost$name,

      = fdc$get_event_command =
        event_command_name: {input} ost$name,
        p_event_command: {output} ^fdt$event_command,

      = fdc$get_event_form =
        event_form_definition: {output} fdt$event_form_definition,

      = fdc$get_event_form_identifier =
        event_form_identifier: {output} fdt$form_identifier,

      = fdc$get_form_area =
        form_area: {output} fdt$form_area,

      = fdc$get_form_comment_length =
        form_comment_length: {output}  fdt$comment_length,

      = fdc$get_form_display_attribute =
        form_display_attribute: {output}  fdt$display_attribute_set,

      = fdc$get_form_help =
        form_help: {output} fdt$get_help_definition,

      = fdc$get_form_help_message =
        p_form_help_message: {input} ^fdt$help_message,

      = fdc$get_form_language =
        form_language: {output} ost$natural_language,

      = fdc$get_form_name =
        form_name: {output} ost$name,

      = fdc$get_form_processor =
        form_processor: {output} fdt$form_processor,

      = fdc$get_help_message_form =
        help_message_form: {output} ost$name,

      = fdc$get_hidden_editing =
        hidden_editing: {output} boolean,

      = fdc$get_invalid_data_character =
        invalid_data_character: {output} fdt$invalid_data_character,

      = fdc$get_message_form = {Same as fdc$get_error_message_form}
        message_form: {output} ost$name,

      = fdc$get_next_event =
        event_action: {output} fdt$event_action,
        event_label: {output} ost$name,
        event_name: {output} ost$name,
        event_command_length: {output} integer,
        event_trigger: {output} fdt$event_trigger,

      = fdc$get_next_event_v1 =
        event_action_v1: {output} fdt$event_action,
        event_label_v1: {output} fdt$event_label_v1,
        event_name_v1: {output} ost$name,
        event_command_length_v1: {output} integer,
        event_trigger_v1: {output} fdt$event_trigger,
        event_trigger_reassignment_v1: {output} boolean,

      = fdc$get_next_form_comment =
        p_form_comment: {input} ^fdt$comment,

      = fdc$get_next_display =
        display_attribute: {output} fdt$display_attribute_set,
        display_name: {output} ost$name,

      = fdc$get_number_events =
        number_events: {output} fdt$number_events,

      = fdc$get_number_form_comments =
        number_form_comments: {output} fdt$number_comments,

      = fdc$get_number_displays =
        number_form_displays: {output} fdt$number_object_displays,

      = fdc$get_number_objects =
        number_objects: {output} fdt$number_objects,

      = fdc$get_number_tables =
        number_tables: {output} fdt$number_tables,

      = fdc$get_number_variables =
        number_variables: {output} fdt$number_variables,

      = fdc$get_unused_form_entry =
        ,

      casend
    recend;

*copyc fdt$comment
*copyc fdt$comment_length
*copyc fdt$event_action
*copyc fdt$event_command
*copyc fdt$event_label_v1
*copyc fdt$event_form_definition
*copyc fdt$event_trigger
*copyc fdt$display_attribute_set
*copyc fdt$form_area
*copyc fdt$form_identifier
*copyc fdt$form_processor
*copyc fdt$get_form_key
*copyc fdt$get_help_definition
*copyc fdt$get_value_status
*copyc fdt$invalid_data_character
*copyc fdt$help_message
*copyc fdt$number_comments
*copyc fdt$number_events
*copyc fdt$number_object_displays
*copyc fdt$number_objects
*copyc fdt$number_tables
*copyc fdt$number_variables
*copyc ost$name
*copyc ost$natural_language
