get_description_value

EXPRESS specification:

FUNCTION get_description_value
(* New for LPM/6 *)(obj : description_attribute_select) : text; LOCAL description_bag : BAG OF description_attribute := (USEDIN (obj, 'STRUCTURAL_FRAME_SCHEMA.' + 'DESCRIPTION_ATTRIBUTE.' + 'DESCRIBED_ITEM')); END_LOCAL; IF SIZEOF (description_bag) = 1 THEN RETURN (description_bag[1].attribute_value); ELSE RETURN (?); END_IF;
END_FUNCTION;