added LSL2 stored procedures

LSL2/STPROC/SEC_GROUP_SERVICES.txt

@@ -0,0 +1,34 @@
+Compile function SEC_GROUP_Services(@Service, @Params)
+#pragma precomp SRP_PreCompiler
+$insert LOGICAL
+
+Declare subroutine RList
+
+GoToService
+
+Return Response or ""
+
+//-----------------------------------------------------------------------------
+// SERVICES
+//-----------------------------------------------------------------------------
+
+Service GetAllSecGroups()
+    EQU TARGET_ACTIVELIST$ to 5
+    //Get List of Security Groups
+    Statement               = 'SELECT SEC_GROUPS BY GROUP'
+    rlist(Statement, target_activelist$, '', '', '' )
+    GroupList               = ''
+    IF @RecCount then
+        EoF = 0
+        NumKeys = @RecCount
+        Cnt = 0
+        Loop
+            ReadNext GroupID Else EoF = 1
+        until EoF
+            GroupList<-1> = GroupID
+        Repeat
+    end
+Response = GroupList
+end service
+
+