35 lines
860 B
Plaintext
35 lines
860 B
Plaintext
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
|
|
|
|
|