Page History
...
Code Block |
---|
// Call the TEST_SERVER function, returning the value in ReturnValue, running on a previously created queue.
// Four parameters are passed.
Error = CreateEngine(Engine, "\\.\REVCAPI_TEST", "SYSPROG",CREATE_ENGINE_OPEN_ALWAYS$, 1)
// error processing for CreateEngine
Error = CreateQueue(Queue, Engine, "", "", "SYSPROG")
// error processing for CreateQueue
ReturnValue = 0
Error = CallFunction(Queue, ReturnValue, "TEST_SERVER", a:"", b, c:"", d) |