RPC PROCEDURE Question
; identifikácia volajúceho procesu
INT _callerProcess, _callerObject
_callerObject := %GetRPCallerProcess()
_callerProcess := %GetRPCCallerObject()
; Odpoveď!!! NUTNÉ ASYNC, ak je procedúra Question volaná synchrónne - lebo vznikne DeadLock!!!
IF %GetRPCCallerIsJava() THEN
CALLJ [(_callerObject)] QuestionReply ASYNC ON (_callerProcess)
ELSE
CALL [(_callerObject)] QuestionReply ASYNC ON (_callerProcess)
ENDIF
END Question
Pridať komentár