RE: Checking for a record Lock on an Update Primary.

List,
I have had several request for this code. This post is to help out those
who are asking and to keep the archives updated.

Many thanks to Leif Guldbrand who is being good enough to host the code
for this on his site, http://www.think400.dk/. If you are interested,
You can download it at http://www.think400.dk/downloads.htm


Terry Anderson


> >------------------------------
> >
> >message: 9
> >date: Wed, 24 May 2006 11:02:04 -0500
> >from: "Terry Anderson" <terrya@xxxxxxxxxxxx>
> >subject: RE: Checking for a record Lock on an Update Primary.
> >
> >Bruce,
> >When I was first learning about subprocedures I wrote one to 
> >deal with
> >record locks. It will pop up a screen and tell the user who 
> >has a lock
> >on the file. If the status code is not 01218 it pops up a different
> >screen to tell the user that an unknown error has occurred and to
> >contact the IT department. 
> >
> >I know very little about RPGII but if you think that 
> >something like this
> >would help, let me know and I will send you the code.
> >
> >Terry Anderson.
> >