Error

(Available in 00 TS Base(Base) - TS_Base_5_ErrorSysErrorStatus)

Purpose

Short

Syntax

Arguments

ParamX

Param description

Description

Long

Returns

Return

Example

Source

METHOD Error( uxError, usymMethod ) CLASS TS_ErrorStatus
LOCAL dwSeverity AS DWORD
LOCAL dwLevel AS DWORD
LOCAL oError AS Error
   dwLevel:=1U
   IF IsInstanceOfUsual( uxError, #Error )
      dwSeverity:=_TS_ErrorSysItemSeverity( uxError, NIL )
   ELSE
      dwSeverity:=ES_ERROR
   END
   oError:=_TS_TraceErrorCreate( SELF
// oSelf
   , TS_TRACESUBCODE_TEXT
// ucSubCodeText
   , TS_TRACESUBCODE_ID
// udwSubCode
   , NIL
// udwTries
   , NIL
// udwGenCode
   , __APPLICATION__
// cApplication
   , __MODULE__
// cModule
   , __ENTITY__
// cEntity
   , __LINE__
// dwLine
   , uxError
// uxError
   , dwSeverity
// dwSeverity
   , FALSE
// lNeedShow
// dwLevel
   , dwLevel )
   IF TS_UsualAccessType( usymMethod )<>SYMBOL
      oError:FuncSym:=#Unknown
   ELSE
      oError:FuncSym:=UsualVal( usymMethod )
   END
   SELF:_ErrorObj:=oError
RETURN NIL