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{