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



