|
|
(* New for LPM/6 *)(obj : id_attribute_select) : identifier;
LOCAL
id_bag : BAG OF id_attribute :=
(USEDIN (obj,
'STRUCTURAL_FRAME_SCHEMA.' +
'ID_ATTRIBUTE.' +
'IDENTIFIED_ITEM'));
END_LOCAL;
IF SIZEOF (id_bag) = 1
THEN RETURN (id_bag[1].attribute_value);
ELSE RETURN (?);
END_IF;
|
|
|