Deze class doet de eigenlijke error afhandeling. Bouwt het ErrorInfo dataobject, stuurt een email of logged de fout. De erroinfo is toegankelijk na afhandeling van de de fout via %ErrorObject TECH.Error 1 %RegisteredObject 62154,39102.635211 62025,48050.831801 0 1 Label:%String,Options:%String 1 Label:%String,Options:%String 1 Label:%String " Error.ErrorCode2=$ECODE ;Set $ECODE = "" // $ECODE op leeg zetten anders gaat hij verder den boom in :) Set Error.TrapHandler=$ETrap Set:$G(%objlasterror)'="" Error.ObjectLastError=$$ParseStatus^vhLib(%objlasterror) Set Error.StackTrace=..StackTrace(3) Set Error.Device=$I Set Error.Job=$J Set Error.Server=$ZU(110) Set Error.NameSpace=$ZU(5) Do ..SetRemoteIP(Error) Do ..UserText(Error) Quit Error ]]> 1 Error:TECH.Error.dto.ErrorInfo 1 1 Error:TECH.Error.dto.ErrorInfo 1 Error:TECH.Error.dto.ErrorInfo 1 Error:TECH.Error.dto.ErrorInfo 1 Error:TECH.Error.dto.ErrorInfo %String 1 sc:%Status 1 From:%Integer=1 "_$STACK($STACK-i,"MCODE") Quit Txt ]]>