|
|
(* New for LPM/6 *)(obj : name_attribute_select) : label;
LOCAL
name_bag : BAG OF name_attribute :=
(USEDIN (obj,
'STRUCTURAL_FRAME_SCHEMA.' +
'NAME_ATTRIBUTE.' +
'NAMED_ITEM'));
END_LOCAL;
IF SIZEOF (name_bag) = 1
THEN RETURN (name_bag[1].attribute_value);
ELSE RETURN (?);
END_IF;
|
|
|