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

changed delimiter used for the background process queue so that all native delimiters are protected

Browse Source
This commit is contained in:
Infineon\StieberD
2025-07-18 12:08:09 -07:00
parent c890a25d46
commit e1a44a7687
2 changed files with 7 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
LSL2/STPROC/SERVICE_SERVICES.txt
View File

@ -226,13 +226,12 @@ Service ProcessRequest(RequestKeyID)
LSL2Key = '$':Procedure:'*LSL2'
FrameworksKey = '$':Procedure:'*FRAMEWORKS'
SysprogKey = '$':Procedure
If RowExists('SYSOBJ', LSL2Key) or RowExists('SYSOBJ', FrameworksKey) or RowExists('SYSOBJ', SysprogKey) then
If ( RowExists('SYSOBJ', LSL2Key) or RowExists('SYSOBJ', FrameworksKey) or RowExists('SYSOBJ', SysprogKey) ) then
Dim ProcParams(11)
swap SD$ with @FM in Params
For each Param in Params using @FM setting pPos
For each Param in Params using SD$ setting pPos
ProcParams(pPos) = Param
Next Param
NumArguments = DCount(Params, @FM)
NumArguments = DCount(Params, SD$)
Begin Case
Case NumArguments EQ 0 ; Call @Procedure()
Case NumArguments EQ 1 ; Call @Procedure(ProcParams(1))
@ -258,7 +257,7 @@ Service ProcessRequest(RequestKeyID)
Error_Services('Add', 'Error in ':Service:' service. Null PROC_NAME posted to queue.')
end
Swap @VM with ',' in Params
Swap SD$ with ',' in Params
LogData = LoggingDTM
LogData<2> = Server
LogData<3> = RequestKeyId
@ -453,4 +452,3 @@ end service
/// Internal GoSubs
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////

4
LSL2/STPROCINS/IFX_EQUATES.txt
View File

@ -1,3 +1,5 @@
Compile insert IFX_EQUATES
EQU SD$ TO '%SERVICECALLDELIM%'
// This is an unused ASCII character and should be safe for use as a delimiter
EQU SD$ TO \9D\