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


