Role create_role ( in RelatedObject related_object ) 
   raises ( NilRelatedObject, RelatedObjectTypeError )

struct NamedRole { RoleName name; Role aRole; } ; 
typedef sequence <NamedRole> NamedRoles; 

Relationship create ( in NamedRoles named_roles ) 
   raises ( RoleType Error, MaxCardinalityExceeded, 
            DegreeError, DuplicateRoleName, UnknownRoleName)

RelatedObject get_other_related_object ( 
        in RelationshipHandle rel, in RoleName target_name ) 
    raises ( UnknownRoleName, UnknownRelationship )