 TYPE
    fdt$get_object_attribute = record
      get_value_status: fdt$get_value_status {output} ,
      case key: {input} fdt$get_object_key of

      = fdc$get_object_definition =
        get_object_definition: {output} fdt$get_object_definition,

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

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

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

      = fdc$get_object_text_length =
        text_length: {output} fdt$text_length,

      = fdc$get_unused_object_entry =
        ,

      casend
    recend;

*copyc fdt$get_value_status
*copyc fdt$get_object_key
*copyc fdt$get_object_definition
*copyc fdt$display_attribute_set
*copyc fdt$occurrence
*copyc ost$name
*copyc fdt$text

