Vidíte historickú verziu tejto stránky. Pozrite si aktuálnu verziu.

Porovnať s aktuálnou verziou Zobraziť históriu stránky

« Predchádzajúce Verzia 2 Ďalej »

CALL action - Public procedure call


Declaration
CALL [_unitIdent] ProcName [(paramIdent1  [,paramIdent2]...)]
Parameters
ProcNameinName of procedure (it must conform to the rules for object name).
_unitIdentinName of local variable that represents UNIT.
paramIdent1, paramIdent2, ..., paramIdentNinIdentifier of value for the first (second, third, ..., N-th) parameter.
Number of parameters must correspond with number of parameters of the called procedure.
Description
CALL action is used for calling the procedure ProcName. In front of the procedure name, there must be a recipient (UNIT, from which the particular procedure is going to be executed). The parameters, in the square brackets and separated by comma, follow after the name of procedure. The number of parameters must be equal with the number of parameters of the called procedure. If some of the parameters is an input/output in the declaration of procedure, the equivalent parameter must not be a constant when calling the procedure.
Example
 ;*********************************************************
 ; 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
  • Žiadne štítky