INT %GetRPCCallerProcess()

  ; Volanie s prenosom HOBJ volajúceho procesu
 INT _hbj
 _hbj := %GetParentProcessHBJ()
 CALL [E.Service] Service(1, _hbj)

  ; *****************************************
 ; _callerProcess - HOBJ volajúceho procesu
 RPC PROCEDURE Service (IN INT _anyParams, IN INT _callerProcess)
 END Service

  ; Volanie bez nutnosti prenášať HOBJ parametrom
 CALL [E.Service] Service(1)

  ;
 RPC PROCEDURE Service (IN INT _anyParams, IN INT _callerProcess)
   INT _callerProcess
   _callerProcess := %GetRPCCallerProcess()
  END Service