RE: Roll back the changes without commitment control

Sure! ...

Before the update read every record you're going to update and stash the old
values somewhere (each field, each row). Then do your update as planned.
During the update make sure another user hasn't changed the row (compare the
values to the ones you saved -- if changed, die.) and then proceed to update
the row -- you'll have to hold the new values in a temp space too. If you
determine you need to "rollback" then read all the rows you changed
replacing the values with the stashed before, again making sure no user has
made a new change since you updated that row (that's why you stashed the old
values and the new values.) If another user has changed the row, die.

-OR-...

Journal the darn files that aren't jourlned and use commitment control!!! I
doubt there is a good reason for not journaling them.

-Walden

------------
Walden H Leverich III
President
Tech Software
(516) 627-3800 x11
(208) 692-3308 eFax
WaldenL@xxxxxxxxxxxxxxx
http://www.TechSoftInc.com 

Quiquid latine dictum sit altum viditur.
(Whatever is said in Latin seems profound.)
 

-----Original Message-----
From: Manoj S.T. , Gurgaon [mailto:Manojst@xxxxxxxxxxxxxxx] 
Sent: Monday, April 21, 2003 2:00 PM
To: RPG400-L@xxxxxxxxxxxx
Subject: Roll back the changes without commitment control


Hi All,
  I have program which updates 2 files & write in to other 3 files. Same
program is calling another program, if call is successful( we can know it by
the return parameter). we need to commit the changes else we need to roll
back. Is there any method other than Commitment control to do this(some of
the files are not journaled).

with regards
Manoj S.T 
  
_______________________________________________
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo.cgi/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.