added LSL2 stored procedures

LSL2/STPROC/OENGINESERVER_DISPATCHER.txt

@@ -0,0 +1,47 @@
+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
+