Navigation

get_role

EXPRESS specification:

FUNCTION get_role
(* 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;
END_FUNCTION;