/* LockTableWatch.p */
unix silent "rm -f /tmp/LockTableWatch.out".
find first _DbStatus no-lock.
if _DbStatus._DbStatus-NumLocks  > 30000 then
do:
  output to value("/tmp/LockTableWatch.out").
  put unformatted today " " string(time,"HH:MM:SS") skip
    "Entries in use " _DbStatus._DbStatus-NumLocks skip
    "HW mark " _DbStatus._DbStatus-MostLocks skip(1)
    "Suspect Users" skip.
  for each _UserLock where _UserLock-Usr <> ? and
    _UserLock-Type[500] <> ? no-lock:

    find _Connect where _Connect._Connect-usr = _UserLock._UserLock-Usr
       no-lock no-error.

    display
      _UserLock._UserLock-Usr
      _UserLock._UserLock-Name
      _UserLock._UserLock-Type[1]
      substring( _Connect._Connect-Device,6) when available _connect.
  end.
  output close.
end.
quit.