RE: SQLRPGLE example of Fetch, use data for report, then Update

basic template...

c/exec sql
c+ declare c1 cursor for select * from mylib/myfile for update of 
field1,field2,etc
c/end-exec
c/exec sql
c+ open c1
c/end-exec
 /free
    dou sqlcod=100;
 /end-free
c/exec sql
c+  fetch c1 into :myDS
c/end-exec
 ***** more processing code
c/exec sql
c+ update mylib/myfile set field1=:field1, field2=:field2 where current of C1
c/end-exec
 /free
    enddo;
 /end-free


Thanks,
Tommy Holden


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx]On Behalf Of Dan
Sent: Wednesday, July 13, 2005 12:32 PM
To: RPG400-L@xxxxxxxxxxxx
Subject: SQLRPGLE example of Fetch, use data for report, then Update


Major brain fade here...  Is it possible to use embedded SQL that will
fetch data, let RPG use the fetched data, then modify & update the
data with SQL Update?  I need to print an audit report of the records
being updated with the original values before updating them.  If
someone has an example, I'd love to see it.

BTW, I found the reference to the redbook "Modernizing IBM eServer
iSeries Application Data Access - A Roadmap Cornerstone" from a post
few weeks ago -- excellent resource!  (But didn't answer this question
that I could see.)

And I just now discovered the Accelerator Keys in the archives!!! 
AWESOME!  Now I can keep my fingers on the keyboard!!!

TIA,
Dan