 TYPE

    fdt$variable_attribute = record
      put_value_status: {output} fdt$put_value_status ,
      case key: {input} fdt$change_variable_key {input} of

      = fdc$add_valid_integer_range, fdc$delete_valid_integer_range =
        maximum_integer: integer,
        minimum_integer: integer,

      = fdc$add_valid_real_range, fdc$delete_valid_real_range =
        maximum_real: real,
        minimum_real: real,

      = fdc$add_valid_string, fdc$delete_valid_string =
        p_valid_string: ^fdt$valid_string,

      = fdc$add_var_comment =
        p_var_comment: ^fdt$comment,

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

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

      = fdc$delete_var_comments =
        ,

      = fdc$input_format =
        input_format: fdt$input_format,

      = fdc$io_mode =
        io_mode: fdt$io_mode,

      = fdc$new_variable_name =
        new_variable_name: ost$name,

      = fdc$error_display =
        display_attribute: fdt$display_attribute_set,

      = fdc$output_format =
        output_format: fdt$output_format,

      = fdc$program_data_type =
        program_data_type: fdt$program_data_type,

      = fdc$process_as_event =
        process_as_event: boolean, { If true, the value of the variable is
        {treated as an }
        { event rather than a data item to be transferred to and from    a
        {program. }

      = fdc$string_compare_rules =
        compare_in_upper_case: boolean,
        compare_to_unique_substring: boolean,

      = fdc$terminal_user_entry =
        terminal_user_entry: fdt$terminal_user_entry,

      = fdc$unknown_entry_character =
        unknown_entry_character: string (1),

      = fdc$unused_variable_entry =
        ,

      = fdc$variable_error =
        variable_error: fdt$error_definition,

      = fdc$variable_help =
        variable_help: fdt$help_definition,

      = fdc$variable_length =
        variable_length: fdt$variable_length,
      casend
    recend;

*copyc fdt$change_variable_key
*copyc fdt$cobol_display_clause
*copyc fdt$cobol_program_clause
*copyc fdt$comment
*copyc fdt$display_attribute_set
*copyc fdt$error_definition
*copyc fdt$help_definition
*copyc fdt$input_format
*copyc fdt$io_mode
*copyc fdt$output_format
*copyc fdt$program_data_type
*copyc fdt$put_value_status
*copyc fdt$terminal_user_entry
*copyc fdt$valid_string
*copyc fdt$variable_length
*copyc ost$name
