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.

> >message: 3
> >date: Tue, 23 May 2006 17:04:52 -0500
> >from: "Bruce Collins" <bruce.collins@xxxxxxxxxxxxx>
> >subject: Checking for a record Lock on an Update Primary.
> >
> >I have looked through the archives but I have not found 
> >exactly what I need. (I hate RPGII). We have a very very 
> >very very old RPG program that has had the CVTRPGSRC run on 
> >it so it is a type RPGLE but the contents are still RPGII. I 
> >am needing to trap when the Primary file encounters a record 
> >lock. I have tried a INFDS but it does not trap it. I have 
> >attempted a *PSSR but I think I have it wrong. Does some 
> >have an example, preferably in free of how to trap a record 
> >lock on a file described as Update Primary.
> >
> >Thanks in Advance.
> >
> >Bruce "Hoss" Collins
> >IBM Certified Specialist - eServer i5 iSeries System 
> >Administrator V5R3 Cisco Certified Network Associate AAA 
> >Cooper Transportation Dothan, AL 36303 (334)793-2284 x2434
> >
> >
> >
> >
> >
> > 
> ><http://446360.sigclick.mailinfo.com/sigclick/05070707/07044D
> >03/044F0321
> >314141.jpg>  
> >
> >
> >------------------------------