SQL Question

["Mike Haston ** Data" <MHaston@xxxxxxx>]

Sorry, I tried to change the subject of an old message and this came out with 
the old Excel subject line.

 

I'm trying to roll through a file and create a summary file, then delete the 
record (row) I just read. I'm wondering if I need to do the delete separately 
because it's getting some weird output!

If I comment out the delete code, it creates my summary file just fine. When I 
open the delete code back up it doesn't create the summary file or do the 
delete!

I'm compiling with:

COMMIT *NONE 

CLOSQLCSR *ENDMOD 

 

Here's the snippets:

 

* select records 

c/exec sql 

c+ declare c1 cursor for 

c+ select * from canfil/edislsfc 

c+ where wksea = '8' and wkend <= :purgeDate# 

c+ order by wksol, wkcstj, wksty 

c/end-exec 

* open cursor 

c/exec sql 

c+ open c1 

c/end-exec 

* fetch cursor 

c/exec sql 

c+ fetch c1 into :ediSales 

c/end-exec 

c dow sqlcod >= 0 and sqlcod <> 100 

write or update to the summary file here

c/exec sql 

c+ delete from canfil/edislsfc 

c+ where current of c1 

c/end-exec 

* fetch cursor 

c/exec sql 

c+ fetch next from c1 into :ediSales 

c/end-exec 

c enddo 

* close cursor 

c/exec sql 

c+ close c1 

c/end-exec 

* close cursor 

c/exec sql 

c+ set option closqlcsr = *endmod 

c/end-exec 

c eval *inlr = *on 

_______________________________________________

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.