|
|
(* New for LPM/6 *)(obj : role_select) : object_role;
LOCAL
role_bag : BAG OF role_association:=
(USEDIN (obj,
'STRUCTURAL_FRAME_SCHEMA.' +
'ROLE_ASSOCIATION.' +
'ITEM_WITH_ROLE'));
END_LOCAL;
IF SIZEOF (role_bag) = 1
THEN RETURN (role_bag[1].role);
ELSE RETURN (?);
END_IF;
|
|
|