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

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

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

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

Mit freundlichen Grüßen / Best regards

Birgitta Hauser

"Shoot for the moon, even if you miss, you'll land among the stars." (Les
"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

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


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,
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives at

Please contact support@xxxxxxxxxxxx for any subscription related questions.

Help support by shopping at with our affiliate link:

This thread ...


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

This mailing list archive is Copyright 1997-2020 by 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].