Re: Triggered Embedded SQL Update Releasing Native Record Lock in Caller

The source of your problem...
"not interfere with a native RPG record lock"

There's no such thing. The lock is done in and by the DB, not the RPG code.

ProgramA should not be doing anything between a read-for-update and the
update itself.

I'd change ProgramA
- existing read should be with no-lock
- add a new read with lock, just before the update.

Charles




On Fri, Sep 30, 2022 at 10:05 AM Stephen Coyle <stephenfcoyle@xxxxxxxxx>
wrote:

Hi Everyone,

I am getting the message "Operation sequence for member xxxxx not valid".
That in itself is a little strange as I would have expected something
along the lines of "Update without a prior read".
No matter....the sequence of events that leads up to this...

RPG Program A has File X and File Z defined as Update Full
Program A reads File X
Program A Chains and Updates File Z
Trigger Program on File Z runs SQL Update on the same File X record
read prior by Program A
Program A attempts Update of File X record.....BOOM!

Looks like the SQL update being done in the trigger has released the
record that Program A had locked.
I've seen in the archive the same situation but the solution to move
some code around will be a problem due to some of my code being
executed in a trigger.

I was hoping someone might know of a way for the SQL update in the
trigger to not interfere with a native RPG record lock in the caller?

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

Please contact support@xxxxxxxxxxxxxxxxxxxx for any subscription related
questions.

Help support midrange.com by shopping at amazon.com with our affiliate
link: https://amazon.midrange.com