View

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

Purpose

Short

Syntax

Syntax

Arguments

ParamX
Param description

Description

Long

Returns

Return

Example

Example

Source

METHOD View( udwSeverity, udwLevel, ucError, ucBlockDescription ) CLASS TS_Error
LOCAL cBlockDescription AS STRING
LOCAL oGlobalData AS _TS_GlobalData
LOCAL dwSeverity AS DWORD
LOCAL dwLevel AS DWORD
LOCAL cError AS STRING
   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
   _TS_ErrorSysItemViewed( SELF, TRUE, FALSE )
   DO CASE
   CASE IsString( ucError ) .AND. !Empty( ucError )
      cError:=ucError
   CASE TS_ErrorSysInErrorHandler( )
      cError:=_TS_ErrorSysError2String( SELF, CRLF, NULL_STRING )
   OTHERWISE
      cError:=_TS_TraceError2String( SELF, CRLF, NULL_STRING )
   END
   IF IsString( ucBlockDescription )
      cBlockDescription:=AllTrim( ucBlockDescription )
      IF !Empty( cBlockDescription )
         cBlockDescription+=TS_C_COLON
      END
   ELSE
      cBlockDescription:=TS_S_EMPTY
   END
   cBlockDescription+=TS_ErrorSysSeverity2String( SELF )
   _TS_TraceDebOutCmdC( _TS_TRACE_DEBOUT_CMD_HEADER1, cBlockDescription, dwLevel  ; ...
  ... )
   _TS_TraceOnOffNL( TRUE, TRUE, 0U )
   _TS_TraceDebOutMLSC( cError, dwLevel )
   _TS_TraceOnOffNL( TRUE, TRUE, 0U )
   _TS_TraceDebOutMLSC( _TS_ErrorSysItemCallStack( SELF, NIL ), dwLevel )
   _TS_TraceOnOffNL( TRUE, TRUE, 0U )
   _TS_TraceDebOutCmdC( _TS_TRACE_DEBOUT_CMD_FOOTER1, cBlockDescription, dwLevel  ; ...
  ... )
RETURN NIL