Index: vhLock.mac.rou
===================================================================
diff -u -r50914 -r54016
--- vhLock.mac.rou	(.../vhLock.mac.rou)	(revision 50914)
+++ vhLock.mac.rou	(.../vhLock.mac.rou)	(revision 54016)
@@ -143,6 +143,7 @@
  ;
  ;Geeft de job welke een bepaalde referentie gelockt heeft
 LOCKJOB(LockNaam) 
+ New ResultSet,Status,LockJob,Temp
  Set ResultSet=##class(%ResultSet).%New("%SYS.LockQuery:List")
  Set Status = ResultSet.Execute()
  If 'Status w "Fout Rset.Execute()" 
@@ -164,6 +165,18 @@
  } 
  Do ResultSet.Close()
  Quit LockJob
- ;
  
+ // Schrijft de Lock-lijst naar device 
+LOCKLIST() 
+	New ResultSet,Status
+	Set ResultSet=##class(%ResultSet).%New("%SYS.LockQuery:List")
+	Set Status = ResultSet.Execute()
+	If 'Status w "Fout Rset.Execute() : "_$$ParseStatus^vhLib(Status)
 
+	While (ResultSet.Next()) {
+		Write !, ResultSet.Data("LockString")," job: ", ResultSet.Data("Owner")
+	} 
+	Quit
+	;
+ 
+