INIT
(Available in 00 TS Base(Base) - TS_Base_2_ErrorSysError)
Purpose
Short
Syntax
Syntax
Arguments
Description
Long
Returns
Return
Example
Example
Source
METHOD INIT( udwSubCode, udwSeverity, uDescription, udwLevel, ucApplication, ucModule ; ...
..., ucEntity, udwLine ) CLASS TS_Error
LOCAL oGlobalData AS _TS_GlobalData
LOCAL dwSeverity AS DWORD
LOCAL dwLevel AS DWORD
LOCAL oError AS Error
oGlobalData:=_TS_ModuleGetGlobalData( )
dwLevel:=TS_SafeDWORD( udwLevel, NULL_PTR )+1U
IF LOGIC( _CAST, oGlobalData:_ErrorSysFirstErrorEnable ) .AND. oGlobalData:_ErrorSysFirstErrorObject ; ...
... ==NULL_OBJECT
oGlobalData:_ErrorSysFirstErrorObject:=SELF
END
_TS_TraceObjectVerifyLifeTime( SELF, _TS_TRACE_ID_INCREATE, 1U )
IF IsObject( uDescription )
DO CASE
CASE IsInstanceOf( uDescription, #_TS_ErrorShared )
SELF:_ErrorSharedObj:=uDescription
CASE LOGIC( _CAST