Barbara,

if you add the (e) extender, you still can trap the error with the monitor
group?!
monitor;
reade(e) key file;
ok = *on;
on-error 1218: // record lock
// try again
endmon;

I thought you need to check the %Status if the E-Extender is set.
ReadE(e) Key File;
If %Status = '1218'; // Record Lock
//Error lock - Do something
EndIf;

Retry as long as the record is locked
DoU %Status <> 1218;
ReadE(E) Key File;
EndDo;

If the (E) Extender is not set, you need to trap the error with a monitor
group.
Monitor;
ReadE Key File;
On-Error 1218;
//Record Lock - Do something
EndMon;

Mit freundlichen Grüßen / Best regards

Birgitta Hauser

"Shoot for the moon, even if you miss, you'll land among the stars." (Les
Brown)
"If you think education is expensive, try ignorance." (Derek Bok)
"What is worse than training your staff and losing them? Not training them
and keeping them!"
?Train people well enough so they can leave, treat them well enough so they
don't want to.? (Richard Branson)


-----Original Message-----
From: RPG400-L <rpg400-l-bounces@xxxxxxxxxxxx> On Behalf Of Barbara Morris
Sent: Freitag, 26. Oktober 2018 18:03
To: rpg400-l@xxxxxxxxxxxx
Subject: Re: RPGLE SETLL / READE for update getting record lock on different
key (private reply)

On 2018-10-26 11:40 AM, Mohammad Tanveer wrote:
This situation happens once in a while.. I am recommending to change
record wait time from 60 to 120 seconds ... hopefully this will
resolve the issue...


Instead of letting the error go to MSGW, you could add some
exception-handling to your program so you could do the retry in the program
itself.

ok = *off;
dow not ok;
monitor;
reade(e) key file;
ok = *on;
on-error 1218: // record lock
// try again
endmon;
enddo;

--
Barbara

--
This is the RPG programming on the IBM i (AS/400 and iSeries) (RPG400-L)
mailing list To post a message email: RPG400-L@xxxxxxxxxxxx To subscribe,
unsubscribe, or change list options,
visit: https://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives at
https://archive.midrange.com/rpg400-l.

Please contact support@xxxxxxxxxxxx for any subscription related questions.

Help support midrange.com by shopping at amazon.com with our affiliate link:
http://amzn.to/2dEadiD


This thread ...

Follow-Ups:
Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2019 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].