Navigation

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;