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

Sure, providing that the fetch is done from a single file or an updatable view.

You need to define the cursor as being SELECT <...> FOR UPDATE <...>

The update clause is
UPDATE myfile
set field1 = '01'
WHERE CURRENT OF :myCusor


However, having said that.  Have you considered journaling or a trigger?

Journaling in particular is designed to provide the audit report you are 
looking for.

Charles Wilt
--
iSeries Systems Administrator / Developer
Mitsubishi Electric Automotive America
ph: 513-573-4343
fax: 513-398-1121
 

> -----Original Message-----
> From: rpg400-l-bounces@xxxxxxxxxxxx
> [mailto:rpg400-l-bounces@xxxxxxxxxxxx]On Behalf Of Dan
> Sent: Wednesday, July 13, 2005 1: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
> 
> -- 
> 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/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.
> 
>