added LSL2 stored procedures

LSL2/STPROC/MEMBEROF.txt

@@ -0,0 +1,15 @@
+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
+