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 |