PostInit

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

Purpose

Short

Syntax

Arguments

ParamX

Param description

Description

Long

Returns

Return

Example

Source

METHOD PostInit( udwSeverity, udwLevel ) CLASS TS_Error
LOCAL oGlobalData AS _TS_GlobalData
LOCAL dwSeverity AS DWORD
LOCAL dwLevel AS DWORD
   oGlobalData:=_TS_ModuleGetGlobalData( )
   dwLevel:=TS_SafeDWORD( udwLevel, NULL_PTR )+1U
   IF IsNumeric( udwSeverity )
      dwSeverity:=udwSeverity
      IF _TS_ErrorSysItemSeverity( SELF, NIL )<dwSeverity
         _TS_ErrorSysItemSeverity( SELF, dwSeverity )
      END
   END
RETURN SELF