INIT

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

Purpose

Short

Syntax

Syntax

Arguments

ParamX
Param description

Description

Long

Returns

Return

Example

Example

Source

METHOD INIT( uDescription, uDefault, ulShown, udwLevel, udwSeverity ) CLASS TS_ErrorStatus
LOCAL dwSeverity AS DWORD
LOCAL dwLevel AS DWORD
   dwLevel:=TS_SafeDWORD( udwLevel, NULL_PTR )+1U
   _TS_TraceObjectVerifyLifeTime( SELF, _TS_TRACE_ID_INCREATE, 1U )
   IF IsObject( uDescription )
      DO CASE
      CASE IsInstanceOf( uDescription, #_TS_ErrorShared )
         SELF:_ErrorSharedObj:=uDescription
      CASE LOGIC( _CAST, IVarGetInfo( uDescription, #_ErrorShared ) )
         SELF:_ErrorSharedObj:=IVarGet( uDescription, #_ErrorShared  ; ...
        ... )
      OTHERWISE
         SELF:_ErrorSharedObj:=_TS_ErrorShared{ SELF, dwLevel  ; ...
        ... }
      END
      IF IsInstanceOf( uDescription, #Error )
         SELF:_Error:=uDescription
      ELSE
         SELF:_Error:=NULL_OBJECT
      END
   ELSE
      SELF:_ErrorSharedObj:=_TS_ErrorShared{ SELF, dwLevel }
      SELF:_Error:=NULL_OBJECT
   END
   IF IsNumeric( udwSeverity )
      dwSeverity:=udwSeverity
      IF _TS_ErrorSysItemSeverity( SELF, NIL )<dwSeverity
         _TS_ErrorSysItemSeverity( SELF, dwSeverity )
      END
   END
   IF IsLogic( ulShown )
      _TS_ErrorSysItemShown( SELF, ulShown )
   END
   SELF:_ShortDescription:=TS_ErrorStatusString( uDescription ; ...
  ... , uDefault, dwLevel )
   SELF:__HLName:=String2Symbol( TS_ErrorSysSeverity2String(  ; ...
  ... SELF ) )
   SELF:__HLCaption:=TS_ErrorSysSeverity2String( SELF )
   SELF:__HLDescription:=SELF:_ShortDescription ; ...
  ... +TS_S_GLUON+TS_ProcInfoC( dwLevel, TRUE )
   SELF:_IsValidObject:=TRUE
   IF IsDynPtr( PTR( _CAST, SELF ) )
      RegisterAxit( SELF )
   END
RETURN SELF