example role resolve

method process

proc
	begin
		data lAction,	string,		Parameter('action')
		data lAllowed,	boolean,	false

		if (lAction == 'GET')
		begin
			; Boss
			lAllowed = Role.resolveRole('boss', Session.context)

			; SalesManager
			lAllowed = Role.resolveRole('salesManager', Session.context)

			; Salesman
			lAllowed = Role.resolveRole('sales', Session.context)

			if (!lAllowed)
				throw new NotAllowedError() ; or whatever we have
			else
				.. return data
		else if (lAction == 'POST')
		begin
			; Boss
			lAllowed = Role.resolveRole('boss', Session.context)

			if (!lAllowed)
				throw new NotAllowedError() ; or whatever we have
			else
				.. write data
		end

	end
endmethod