COMPILE FUNCTION MemberOf(User,Group)

$INSERT LOGICAL
$INSERT LSL_USERS_EQU

UserGroups = XLATE( 'LSL_USERS', User, LSL_USERS_GROUPS$, 'X' )

LOCATE Group IN UserGroups USING @VM SETTING Dummy THEN
	Valid = TRUE$
END ELSE
	Valid = FALSE$
END

RETURN Valid