phares3757/open-insight
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

pre cutover push

Browse Source
This commit is contained in:
Infineon\StieberD
2024-09-04 20:33:41 -07:00
parent 6ea6969f4b
commit 7762b129af
2072 changed files with 130000 additions and 95295 deletions
Download Patch File Download Diff File Expand all files Collapse all files

27
LSL2/STPROC/SERVICE_SERVICES.txt
View File

@ -106,6 +106,32 @@ Service GetServices(Server)
end service
//----------------------------------------------------------------------------------------------------------------------
// GetServices
//
// Returns an array of active services for the indicated server.
//----------------------------------------------------------------------------------------------------------------------
Service GetServiceKeys()
Services = ''
Sentence = 'SELECT SERVICES BY NAME'
rv = Set_Status(0)
RList(Sentence, TARGET_ACTIVELIST$, '', '', '')
If (@List_Active EQ 3) AND (@RecCount GT 0) then
EOF = False$
Loop
Readnext ServiceKeyID else EOF = True$
Until EOF EQ True$
Services := ServiceKeyID : @FM
Repeat
end
Services[-1, 1] = ''
Response = Services
end service
//----------------------------------------------------------------------------------------------------------------------
// GetService
//
@ -221,4 +247,3 @@ return
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////