As I'm not sure what you mean by 'dead' locks, I'll just show simple code for looking all locks in current namespace
set lockName=""
for {
set lockName=$order(^$LOCK(lockName))
quit:lockName=""
set mode=^$LOCK(lockName,"MODE")
set owner=^$LOCK(lockName,"OWNER")
write !,mode,?4,owner,?12,lockName
}
- Log in to post comments



