;*********************************************************
; DESCRIPT: Unit Caller
;
;
; AUTHOR: Programmer
; LAST CHANGE:
;*********************************************************
UNIT (E.Unit1) _unit1
UNIT (E.Unit1) _unit12
UNIT (E.Unit2) _unit2
RPC PROCEDURE CheckValue(BOOL _bOk)
INT _iValue
INT _iValue2
CALL [_unit1] GetValue(_iValue)
CALL [_unit12] GetValue(_iValue2)
_bOk := _iValue # _iValue2
END CheckValue
BEGIN
CALL [_unit1] Make
CALL [_unit12] Make
CALL [_unit12] Make
END
Pridať komentár