SQL question

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

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