 TYPE
    fdt$get_variable_attribute = record
      get_value_status: {output} fdt$get_value_status,
      case key: {input} fdt$get_variable_key of

      = fdc$get_cobol_display_clause =
        p_cobol_display_clause: ^fdt$cobol_display_clause,

      = fdc$get_cobol_program_clause =
        p_cobol_program_clause: ^fdt$cobol_program_clause,

      = fdc$get_error_display =
        display_attribute: {output} fdt$display_attribute_set,

      = fdc$get_input_format =
        input_format: {output} fdt$input_format,

      = fdc$get_io_mode =
        io_mode: {output} fdt$io_mode,

      = fdc$get_next_valid_real_range =
        minimum_real: {output} real,
        maximum_real: {output} real,

      = fdc$get_next_valid_string =
        p_valid_string: {input} ^fdt$valid_string,

      = fdc$get_next_var_comment =
        p_var_comment: {input} ^fdt$comment,

      = fdc$get_number_valid_integers =
        number_valid_integers: {output} fdt$number_valid_integers,

      = fdc$get_number_valid_reals =
        number_valid_reals: {output} fdt$number_valid_reals,

      = fdc$get_number_valid_strings =
        number_valid_strings: {output} fdt$number_valid_strings,

      = fdc$get_number_var_comments =
        number_var_comments: {output} fdt$number_comments,

      = fdc$get_output_format =
        output_format: {output} fdt$output_format,

      = fdc$get_process_as_event =
        process_as_event: {output} boolean,

      = fdc$get_program_data_type =
        program_data_type: {output} fdt$program_data_type,

      = fdc$get_string_compare_rules =
        compare_in_upper_case: {output} boolean,
        compare_to_unique_substring: {output} boolean,

      = fdc$get_terminal_user_entry =
        terminal_user_entry: {output} fdt$terminal_user_entry,

      = fdc$get_unknown_entry_character =
        unknown_entry_character: {output} string (1),

      = fdc$get_unused_variable_entry =
        ,

      = fdc$get_valid_integer_range =
        minimum_integer: {output} integer,
        maximum_integer: {output} integer,

      = fdc$get_valid_string_length =
        valid_string_length: {output} fdt$valid_string_length,

      = fdc$get_var_comment_length =
        var_comment_length: {output} fdt$comment_length,

      = fdc$get_var_error_message =
        p_error_message: {input} ^fdt$error_message,

      = fdc$get_var_help_message =
        p_help_message: {input} ^fdt$help_message,

      = fdc$get_variable_error =
        variable_error: {output} fdt$get_error_definition,

      = fdc$get_variable_help =
        variable_help: {output} fdt$get_help_definition,

      = fdc$get_variable_length =
        variable_length: {output} fdt$variable_length,

      casend
    recend;

*copyc fdt$cobol_display_clause
*copyc fdt$cobol_program_clause
*copyc fdt$get_value_status
*copyc fdt$get_variable_key
*copyc fdt$get_variable_attributes
*copyc fdt$input_format
*copyc fdt$io_mode
*copyc fdt$display_attribute_set
*copyc fdt$valid_string
*copyc fdt$comment
*copyc fdt$number_valid_integers
*copyc fdt$number_valid_reals
*copyc fdt$number_valid_strings
*copyc fdt$number_comments
*copyc fdt$output_format
*copyc fdt$program_data_type
*copyc fdt$terminal_user_entry
*copyc fdt$valid_string_length
*copyc fdt$comment_length
*copyc fdt$error_message
*copyc fdt$help_message
*copyc fdt$get_error_definition
*copyc fdt$get_help_definition
*copyc fdt$variable_length
