I realize that Progress ABL has a natural tendency to do this:
By default, Progress displays the message: in use by on . Wait or choose CANCEL to stop. (2624)
This 2624 message provides information, but it is not usually what is wanted because users do not have a chance to commit changes or proceed without the STOP condition. Then they are returned to the startup procedure.
However, I want to be able to display which is locking the record after an if ______ locked then do: display and specific record locked
I did find information in the article at the bottom of this post about using the VST _Lock, but Progress documents state this verbatim, "Note: Use caution querying the _Lock table; frequent access can consume large quantities of system resources and negatively impact performance." Is there a alternative approach or best practice to this? Any help would be greatly appreciated.
I am sympathetic to the desire to provide the user with a nice message about who is holding the lock. But the kbase is not kidding. It is a very bad idea to use _LOCK in this way.
11.4+ makes it less bad but it is still a very painful thing to do on a large production system.
It will appear to be "ok" on a small system with a default lock table size (-L 8192). On a large active system with a large lock table (values of -L north of 1M are common) and lots of locks being used you will have a very, very different and very negative experience.
A better solution might be to look at "blocked users":
for each dictdb._Connect no-lock
where _Connect-usr <> ?
and _Connect-wait <> " -- ": /* there are spaces around the '--' */
display _Connect.
end.
This will be much faster and might tell you everything you need to know.
If you are going to scan _LOCK regardless of the kbase's warning at least put some logic in your loop to track how long it is taking and bail out if it gets to be too long. Something like this might be a good start:
etime( yes ).
for each dictdb._Lock where _Lock._Lock-usr <> ? and _Lock._Lock-recid <> ?:
if etime > 500 then leave.
/* whatever ... */
end.