Index: vhLock.mac.rou
===================================================================
diff -u -r29059 -r49108
--- vhLock.mac.rou	(.../vhLock.mac.rou)	(revision 29059)
+++ vhLock.mac.rou	(.../vhLock.mac.rou)	(revision 49108)
@@ -1,3 +1,4 @@
+#include vhLib.Macro
 vhLock ;Verwerking van locks [ 12/03/2003  8:16 AM ]
  ;
 LOCKW(BList,T1,T2,T3,T4,T5) ; met waarschuwing
@@ -89,9 +90,9 @@
  If ($IsObject(Process)){
 	 Set ClientInfo = $Piece(Process.ClientNodeName,"/")
 	 If ('$Length(ClientInfo)) Set ClientInfo = Process.ClientIPAddress		
+	 set ClientInfo = ClientInfo _ $$$IfLength(Process.ClientExecutableName," ","")
  }
- Set User = $P($$USER^vhRtn1($$DEVICE^cS(Job)),D,1)
- Set Info = "(Process "_Job_" - "_User
+ Set Info = "(Process "_Job
  If ($Length(ClientInfo)>0){
 	 Set Info = Info_ " op "_ClientInfo_")"
  }Else{
Index: cQZSTART.mac.rou
===================================================================
diff -u -r29059 -r49108
--- cQZSTART.mac.rou	(.../cQZSTART.mac.rou)	(revision 29059)
+++ cQZSTART.mac.rou	(.../cQZSTART.mac.rou)	(revision 49108)
@@ -250,8 +250,17 @@
 ZJOBZ	Q J
 	;
 BGJOB(J)	;Background job ??
-	I $S(($P($P($ZV,")",2),"(",1)[" 4."):$ZU(67,10,$G(J,$J)),($P($P($ZV,")",2),"(",1)[" 5."):##class(%SYSTEM.Process).%OpenId($G(J,$J)).JobTypeGet(),1:##class(%SYS.ProcessQuery).%OpenId($G(J,$J),0).JobTypeGet())=2 Q 1
-BGJOBZ	Q 0
+	new TmpResult Set TmpResult = ""
+	if ($P($P($ZV,")",2),"(",1)[" 4.") {
+		set TmpResult = $ZU(67,10,$G(J,$J))
+	} elseif ($P($P($ZV,")",2),"(",1)[" 5.") {
+		new Process set Process = ##class(%SYSTEM.Process).%OpenId($G(J,$J))
+		if $isObject(Process) set TmpResult = Process.JobTypeGet()
+	} else {
+		new Process set Process = ##class(%SYS.ProcessQuery).%OpenId($G(J,$J),0)
+		if $IsObject(Process) set TmpResult = Process.JobTypeGet()
+	}
+BGJOBZ	quit (TmpResult=2)
 	;
 CNN(X)	N K 
 	I '+$G(X),$G(^["%SYS"]cLOG(0,"NETBIOSNAME"),1) Q ""  ; Modified 12.02.2006