RE: How to Undo an SQL Insert

X2. If anyone knows how to get the RRN for certain, that would solve my issue.

The legacy ERP does not have ANYTHING journaled... the transaction files do not have a unique key on the PF or LF.

I understand what everyone is saying about journaling. No convincing needed. But I cannot simply "turn it on" and risk messages all over the given all the other programs that touch this file.

I'm also concerned about service program procedures (in the same module even) that have COMMIT=*NONE. I'm not sure how to handle that.

If I was certain I could turn journaling on for this file, without creating a host of other issues, I would.

Open to suggestions

-----Original Message-----
From: RPG400-L <rpg400-l-bounces@xxxxxxxxxxxxxxxxxx> On Behalf Of John Rusling via RPG400-L
Sent: Monday, May 16, 2022 8:42 AM
To: RPG programming on IBM i <rpg400-l@xxxxxxxxxxxxxxxxxx>
Cc: John Rusling <JRusling@xxxxxxxxxxx>
Subject: RE: How to Undo an SQL Insert

I find that interesting Gad, thanks.

If -anyone- on the list knows, I for one would appreciate 2 things -
1. -IF- it is possible . . .
2. An example (syntax) of getting the just-inserted record RRN or Row Number.

Here's the syntax to get the just added Id Column for a record, immediately after insert or write, from an rpg program -

exec sql set :gOBFTKey = Identity_Val_Local() ;

Just to get the sharing juices flowing on Monday morning.
(heh heh I had to search source to find MY example. . . which I got from someone else :--)

Thanks,
John

I believe it is possible to get the RRN (or is it Row Number) of the just-inserted
record using get diagnostics immediately following the 1st insert.

You can then delete that record, if needed, using the RRN

HTH
Gad