RPC PROCEDURE Question
; identification of calling process
INT _callerProcess, _callerObject
_callerObject := %GetRPCallerProcess()
_callerProcess := %GetRPCCallerObject()
; Response!!! ASYNC required, if the Question procedure is called synchronously - otherwise DeadLock occurs!!!
IF %GetRPCCallerIsJava() THEN
CALLJ [(_callerObject)] QuestionReply ASYNC ON (_callerProcess)
ELSE
CALL [(_callerObject)] QuestionReply ASYNC ON (_callerProcess)
ENDIF
END Question
0 komentárov