cwlock ;Verwerking van locks [ 12/02/2003  3:56 PM ]
 ;
 ;Geeft de job welke een bepaalde referentie gelockt heeft
LOCKJOB(sT) 
 New LockTab,LockItem,Length,Root,LockRef,Char,UCI,VOL,Job,LockJob,I
 If $E(sT)'="^",$D(^DD("R",sT)) Set sT=$P(^(sT),"`",1)
 If $E(sT)="^" Set sT=$D(@sT),sT=$ZR
 Set sT=$TR(sT,"()""",",")
 Do:$ZV["Cache"
 .New DDB,FreeSpace,LockData,Context,Index,ownerflag
 .If $$GATHER^%LM(0,1)
 .If $$LIST^%LM(.FreeSpace,.LockData,.Context,.Index,0,1)
 .Set LockJob=""
 .For Index=1:1:Index Do  Quit:LockJob
 ..Xecute "Set LockRef=$LI($LI($LI(LockData,Index),2),1)"
 ..Set LockRef=$P(LockRef,"[")_$P(LockRef,"]",2)
 ..Set LockRef=$TR(LockRef,"()""",",")
 ..Xecute:LockRef=sT "Set LockJob=$LI($LI($LI($LI($LI(LockData,Index),2),2)))"
 Set:'LockJob LockJob="" ;Locktable bevat geen lock op sT
 Quit LockJob
 ;