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

Merged PR 20879: Initial commit.

Browse Source 
Initial commit.
This commit is contained in:
Ouellette Jonathan (CSC FI SPS MESLEO)
2025-07-14 20:55:07 +02:00
parent 804b590773
commit b53e805929
9 changed files with 339 additions and 223 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
LSL2/STPROC/SERVICE_SERVICES.txt
View File

@ -34,6 +34,7 @@ $Insert RLIST_EQUATES
$Insert SQL_REQUESTS_EQUATES
$Insert PROC_QUEUE_EQUATES
$Insert PROC_QUEUE_FAILED_EQUATES
$Insert IFX_EQUATES
Equ Comma$ to ','
@ -210,7 +211,7 @@ end service
Service ProcessRequest(RequestKeyID)
If RequestKeyID NE '' then
Server = Environment_Services('GetServer')
InvalidRequest = False$
@ -227,10 +228,11 @@ Service ProcessRequest(RequestKeyID)
SysprogKey = '$':Procedure
If RowExists('SYSOBJ', LSL2Key) or RowExists('SYSOBJ', FrameworksKey) or RowExists('SYSOBJ', SysprogKey) then
Dim ProcParams(11)
For each Param in Params using @VM setting pPos
swap SD$ with @FM in Params
For each Param in Params using @FM setting pPos
ProcParams(pPos) = Param
Next Param
NumArguments = DCount(Params, @VM)
NumArguments = DCount(Params, @FM)
Begin Case
Case NumArguments EQ 0 ; Call @Procedure()
Case NumArguments EQ 1 ; Call @Procedure(ProcParams(1))
@ -451,3 +453,4 @@ end service
/// Internal GoSubs
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////