48 lines
2.3 KiB
Plaintext
48 lines
2.3 KiB
Plaintext
Compile function OEngineServer_Dispatcher(FuncName, Param1, Param2, Param3, Param4, Param5, Param6)
|
|
* #pragma precomp SRP_PreCompiler
|
|
*
|
|
* $Insert LOGICAL
|
|
* $Insert REVCAPI_EQUATES
|
|
Declare subroutine RTI_Set_Debugger
|
|
|
|
// CreateEngine Constants
|
|
* equ CREATE_ENGINE_OPEN_EXISTING$ to 0x000
|
|
* equ CREATE_ENGINE_CREATE_NEW$ to 0x001
|
|
* equ CREATE_ENGINE_OPEN_ALWAYS$ to 0x002
|
|
* equ CREATE_ENGINE_INDEXER$ to 0x010
|
|
* equ CREATE_ENGINE_WAIT_ON_CLOSE$ to 0x020
|
|
*
|
|
* equ UNPROCESSED$ to 0 ;*Server has not begun request.
|
|
* equ PROCESSING$ to 1 ;* Server is processing request.
|
|
* equ DATA_AVAILABLE$ to 2 ;* Server has data available.
|
|
* equ COMPLETED$ to 3 ;* Server has completed request, status information is available.
|
|
* equ PROC_ERROR$ to 4 ;* Server process failed, status information is available.
|
|
* equ INFO_AVAILABLE$ to 5 ;* Server has intermediate status information available.
|
|
* equ INFO_REQUEST$ to 10 ;* Server is requesting information from client.
|
|
*
|
|
* declare function CreateEngine ;* Error = CreateEngine(Engine, ServerSpec, DatabaseName, Flags, ShutdownSessions)
|
|
* declare function CreateQueue ;* Error = CreateQueue(Queue, Engine, QueueName, DatabaseName, UserName, Password)
|
|
* declare function CreateRequest ;* Error = CreateRequest(Request, Queue, Script, Arg1, Arg2, ...)
|
|
* declare function PollForReply ;* Error = PollForReply(Request, Status[, Reply])
|
|
* declare function WaitForReply ;* Error = WaitForReply(Request, Status[, Reply])
|
|
* declare function GetReply ;* Error = GetReply(Request, Reply)
|
|
* declare function SendResponse ;* Error = SendResponse(Request, Response)
|
|
* declare function GetStatusText ;* Error = GetStatusText(Request, Delimiter, Text)
|
|
* declare function CloseRequest ;* Error = CloseRequest(Request)
|
|
* declare subroutine CloseRequest ;* Error = CloseRequest(Request)
|
|
* declare function CallSubroutine ;* Error = CallSubroutine(Queue, Procedure, Arg1, Arg2, ...)
|
|
* declare function CallFunction ;* Error = CallFunction(Queue, ReturnValue, Procedure, Arg1, Arg2,...)
|
|
* declare function CloseQueue ;* Error = CloseQueue(Queue)
|
|
* declare subroutine CloseQueue
|
|
* declare function CloseEngine ;* Error = CloseEngine(Engine)
|
|
* declare subroutine CloseEngine
|
|
|
|
* Main:
|
|
* RTI_Set_Debugger(1, '')
|
|
* debug
|
|
|
|
Results = Function(@FuncName)
|
|
|
|
return Results
|
|
|