RE: is there a way to let the record lock (R I D C) error stay attheprogram that do the CHAIN

Is there a way to correct the problem without fixing PGMB?

Here is the reason:
We just converted PGMA and all the programs it calls to ILE and run this job 
stream in the same name activation group.  Of cause, PGMA calls lot of programs 
and we are not sure which programs could encounter record lock problem.  In the 
pass the operator will end the job that lock the record and give the error a 
retry.  With this conversion, the job will just end without giving this option.




 

-----Original Message-----
From: Booth Martin [mailto:Booth@xxxxxxxxxxxx]
Sent: Tuesday, December 23, 2003 4:06 PM
To: rpg400-l@xxxxxxxxxxxx
Subject: Re: is there a way to let the record lock (R I D C) error stay
attheprogram that do the CHAIN


This is pet peeve of mine. 
 
Fix PGMB. 
 
There should be no reason at all for any program including PGMB to have a
record locked long enough for the error routine to kick in.
 
If you do not know how to prevent a record lock then read the archives. Its
been discussed regularly and fully. 
 
If you still need an example, look at the last program on http://www
martinvt.com/Code_Samples/FAQ/faq.html 
It shows how to keep a record unlocked, and how to check to be sure the
record wasn't changed between your read and your need to update.
---------------------------------------------------------
Booth Martin http://www.MartinVT.com
Booth@xxxxxxxxxxxx
---------------------------------------------------------
 
-------Original Message-------
 
From: RPG programming on the AS400 / iSeries
Date: 12/23/2003 3:14:01 PM
To: RPG programming on the AS400 / iSeries
Subject: is there a way to let the record lock (R I D C) error stay at
theprogram that do the CHAIN
 
Here is the program flow:
1) PGMA call PGMB.
2) PGMA has *PSSR routine.
3) Both program run in the same name activation group.
 
problem I have:
1) PGMB CHAIN to a file and sometime gets record lock error RNX1218. When I
test run the program, the record lock error is caught by PGMA *pssr routine
and I did not get an option for retry the CHAIN operation.
 
 
Is there a way to do this:
1) Is there a way to get the retry option without removing the *pssr in
PGMA?
 
thanks
_______________________________________________
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.