Welcome to Code400.com    Okay...We all like to get free stuff..Right?!? Well thats what we are offering here....Free Stuff Free storage for your source code. Post Your Source Free access to code samples. (site search) Free place to ask questions or just say what you want.  Share your thoughts We are interested in what you have to say. If you can’t find what your’e looking for on this site....   Tell us  We will add it. The small print says: We provide the source code on this site as only a guide. We do not recommend that anyone run any of the code provided on this site without first testing it. If you choose to download source from this site directly onto your production box without testing....Well, YOU are completely to blame and we don’t want to hear about it. Random Quote In the spring I asked the daisies If his words were true, And the clever, clear-eyed daisies Always knew. Now the fields are brown and barren, Bitter autumn blows, And of all the stupid asters Not one knows. --Sara Teasdale

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