Re: RPGLE SETLL / READE for update getting record lock on different key (private reply)

On 2018-10-26 2:28 PM, Jon Paris wrote:

If you have used (E) Birgitta you should be checking %Error if anything,

I thought - but Barbara will know better - that the use f (E) will cause the error to be considered handled and so the monitor would not catch it.

You're right, Jon, you should check %ERROR after using (E).

Here's the code I meant to recommend, without any (E). (E) would handle all errors, and this code is only intended to loop for lock errors.

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