We are fixing the logic where record is locked over 60 seconds.. it should
not happen..

But yes exception handling on error is doable...

On Fri, Oct 26, 2018 at 11:03 AM Barbara Morris <bmorris@xxxxxxxxxx> wrote:

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

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;
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,
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

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

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 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].