Re: SQL question

[Raul A Jager <raul@xxxxxxxxxx>]

Yuor "function request" sounds like the ideal candidate for a trigger, 
you can write a short program that will update your summary file every 
time a record is deleted from the main file.


Mike Haston ** Data wrote:

> 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.
>