|
(* 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;
|
|