 TYPE
    fdt$object_attribute = record
      put_value_status: {output} fdt$put_value_status ,
      case key: {input} fdt$change_object_key of

      = fdc$object_display =
        display_attribute: {input} fdt$display_attribute_set,

      = fdc$object_height =
        height: {input} fdt$height,

      = fdc$object_line_x_increment =
        x_increment: {input} fdt$x_increment,

      = fdc$object_line_y_increment =
        y_increment: {input} fdt$y_increment,

      = fdc$object_name =
        object_name: {input} ost$name,
        occurrence: {input} fdt$occurrence,

      = fdc$object_position =
        x_position: {input} fdt$x_position,
        y_position: {input} fdt$y_position,

      = fdc$object_text =
        p_text: {input} ^fdt$text,

      = fdc$object_text_processing =
        text_box_processing: {input} fdt$text_box_processing,

      = fdc$object_width =
        width: {input} fdt$width,

      = fdc$unused_object_entry =
        ,

      casend
    recend;

*copyc fdt$put_value_status
*copyc fdt$change_object_key
*copyc fdt$display_attribute_set
*copyc fdt$height
*copyc fdt$width
*copyc fdt$x_increment
*copyc fdt$y_increment
*copyc fdt$occurrence
*copyc fdt$x_position
*copyc fdt$y_position
*copyc fdt$text
*copyc fdt$text_box_processing
*copyc ost$name

