contact image


Who Locked this Record?
Download Programs/Display in text

 
 

Trapping error message for a locked record

Everyone has at one time experienced a record lock. We have put together an example of a program that when it incounters a record lock it displays in a window who is locking the record. You could mod this window to allow for sending a message to the user that has the record locked. Calling program LOCKIT will cause a record lock. fLOCKFILE UF E DISK c Read LOCKFILE c 'Locked' DSPLY Rply 1 c Eval *Inlr = *On c Return



Then call program LOCKPR
This program will attempt to read the locked record. When the default
wait time for the file has expired a record lock error message will be
generated. We will capture this message and pop up a window showing it.