INT %GetRPCCallerProcess() |
; Calling with transmission of HOBJ of calling process INT _hbj _hbj := %GetParentProcessHBJ() CALL [E.Service] Service(1, _hbj) |
; ***************************************** ; _callerProcess - HOBJ of calling process RPC PROCEDURE Service (IN INT _anyParams, IN INT _callerProcess) END Service |
; Calling without transmission of HOBJ by means of parameter CALL [E.Service] Service(1) |
; RPC PROCEDURE Service (IN INT _anyParams, IN INT _callerProcess) INT _callerProcess _callerProcess := %GetRPCCallerProcess() END Service |