Index: vhRES.mac.rou
===================================================================
diff -u -r2162 -r2163
--- vhRES.mac.rou	(.../vhRES.mac.rou)	(revision 2162)
+++ vhRES.mac.rou	(.../vhRES.mac.rou)	(revision 2163)
@@ -104,9 +104,10 @@
  Quit
  
 ExecTrap
+ set $ztrap=""
  New msg,Exception
  set Exception = ##class(TECH.ExceptionHandler).Catch()
- Set msg="EXECUTE FOUT: "_sTyp_"`"_sExecTxt_"`"_$G(sParList)_$char(13,10)_Exception.ToString()
+ Set msg="EXECUTE FOUT: "_sTyp_"`"_sExecTxt_"`"_$G(sParList)_$char(13,10)_Exception.ToString()_$char(13,10)_$$GetJobInfo^vhLib.System()
  do ##class(vhLib.Logger).%New("ADMIN-ERROR").ErrorMail("ExecTrap^vhRES : "_Exception.GeefOmschrijving(),msg)
  Do:($D(MApplication)) MApplication.MessageBox(msg)   ; Foutmelding voor Makova
  Set:$L(sRet) @sRet=""