Try something like this at the end of your loop:
exec sql update edi856wk
set prcflg = 'E'
where current of mycsr856wk;
-----Original Message-----
From: RPG400-L [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of JRusling@xxxxxxxxxxx
Sent: Tuesday, April 26, 2016 9:53 AM
To: Discussion RPG (RPG Discussion) <RPG400-L@xxxxxxxxxxxx>
Subject: Read file in RPG using embedded SQL, and update a field in same file.
Hello,
I'm trying to/would like to loop thru records in a file using an sql cursor in an rpg program.
For each record I do some processing, then at the bottom of the loop, mark the record as having processed successfully or not, using the cursor/sql by setting the prcflg value
If anyone has an example or links to an example, it would be much appreciated.
We are at v7r2 and I'm fetching into an ext desc DS based on the input file
d edi856wkds e ds extname(edi856wk)
Thanks for any help or examples,
John
What i've sorted out so far:
exec sql declare mycsr856wk cursor for
select *
from edi856wk
where prcflg = ' '
and elcust in (4106,21710,22948)
order by edocn,elline
for update of prcflg;
exec sql open mycsr856wk;
//---
dou ('6' = '9');
clear edi856wkds;
exec sql fetch mycsr856wk into :edi856wkds;
if (SqlCod = 100);
leave;
endif;
exsr @doStuff;
if gErrSw = 'Y'
// Error, set prcflg='E';
else;
// NO error, set prcflg='Y';
endif;
enddo;
//----
exec sql close mycsr856wk;
<br />
The information in this email is confidential and may be legally privileged.
It is intended solely for the addressee. Access to this email by anyone else is unauthorized. If you are not the intended recipient, any disclosure, copying, distribution or any action taken or omitted to be taken in reliance on it, is prohibited and may be unlawful.
--
This is the RPG programming on the IBM i (AS/400 and 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.
Please contact support@xxxxxxxxxxxx for any subscription related questions.
midrange.com
