BEGIN
INT _errorCode, _dbErrorCode
TEXT _function, _dbErrorMsg
RECORD NOALIAS (SD.EDA_CalcFunction_Params_V1) _calcParams
RECORD NOALIAS (SD.EDA_Arr_Obj) _values
; pokusi sa nacitat data z neexistujucej tabulky
_function := "VEKTOR _v;" + %Chr(10)
_function := _function + "_v := %LoadData(""SELECT CURRENT_DATE, Count(*) FROM UNKNOWN_TABLE"");" + %Chr(10)
_function := _function + "RETURN _v;"
_calcParams[1]^structVersion := 1
CALL %EDA_CalcFunctionRec(10, _function, SysTime, SysTime, 0, _calcParams, _values, 1, _errorCode)
; ocakavam databazovu chybu
IF _errorCode != 4 THEN
RETURN
ENDIF
CALL %EDA_GetLastDBError(_dbErrorMsg, _dbErrorCode)
; ocakavam ORA-00942: table or view does not exist
IF _dbErrorCode != 942 THEN
RETURN
ENDIF
END |