
  TYPE
    fdt$form_object_status = record
      display_attribute_set: fdt$display_attribute_set,
      case key: fdt$form_object_status_key of

      = fdc$graphic_identifier =
        graphic_identifier: cst$graphic_identifier,

      = fdc$field_identifier, fdc$unused_identifier =
        changed_by_read_forms_index: fdt$read_forms_index,
        character_position: fdt$text_length,
        data_length: fdt$text_length,
        field_number: cst$field_number,
        user_changed_field: boolean,
        user_entered_field: boolean,
        variable_output_status: fdt$variable_status,
        variable_input_status: fdt$variable_status,

      casend
    recend;

*copyc fdt$display_attribute_set
*copyc fdt$form_object_status_key
*copyc fdt$read_forms_index
*copyc fdt$variable_length
*copyc fdt$variable_status
*copyc cst$graphic_identifier
*copyc cst$field_number
