INT _CMP_Greater = 0
INT _CMP_GEqual = 1
INT _CMP_Less = 2
INT _CMP_LEqual = 3
INT _CMP_Equal = 4
INT _CMP_NotEqual = 5
BEGIN
TIME _bt = %TimeFromItems(2015, 1, 1, 0, 0, 0, 0)
RECORD NOALIAS (SD.EDA_Arr_Obj) _a
REAL _value
INT _errorCode, _i
REDIM _a[24]
FOR _i RANGE _a DO_LOOP
_a[_i]^val := 1.0 * _i TIME (_bt + 3600 * (_i - 1))
END_LOOP
; porovna hodnoty vektora s konstantou a vynuluje tie, ktore nesplnaju podmienku
_value := 12.0
CALL %EDA_CompareVector(_CMP_GEqual, _a, 1, _value, _errorCode)
IF _errorCode != 0 THEN
RETURN
ENDIF
END |