Versions Compared

Key

  • This line was added.
  • This line was removed.
  • Formatting was changed.

...

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)