diff --git a/LSL2/STPROC/SERVICE_SERVICES.txt b/LSL2/STPROC/SERVICE_SERVICES.txt index 34cbea8..af5dbe3 100644 --- a/LSL2/STPROC/SERVICE_SERVICES.txt +++ b/LSL2/STPROC/SERVICE_SERVICES.txt @@ -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 //////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// - diff --git a/LSL2/STPROCINS/IFX_EQUATES.txt b/LSL2/STPROCINS/IFX_EQUATES.txt index e887826..8aaa858 100644 --- a/LSL2/STPROCINS/IFX_EQUATES.txt +++ b/LSL2/STPROCINS/IFX_EQUATES.txt @@ -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\ +