RE: Controlling a fetch loop

Larry,

Isn't it redundant?

Personally I prefer something like this:

d Success         c                   '00000'
Successful SQL oper
d EmptySet        c                   '02000'
No records returned

    // Retrieve first set of records                    
    csr1Fetch() ;                                       
                                                        
    Select;                                             
                                                        
    // Fetch returned an empty set                      
    When SQLStt = EmptySet;                             
                                                        
    // Fetch returned a good record set                 
    When SQLStt = Success;                              
                                                        
       // Fetch records until end of file               
       DoW SQLStt = Success;                            
                                                        
          // Read through returned records              
          For RowCnt = 1 to SQLER3 by 1;                
                                                        
             // --------------------------------------- 
             // Insert record processing logic here     
             // --------------------------------------- 
                                                        
             // Move to next record                     
          EndFor;   // RowCnt = 1 to SQLER3 by 1        
                                                        
          // If end of table reached exit loop          
          If SQLER5 = 100;                              
             Leave;                                     
          EndIf;                                        
                                                        
          // Reset to beginning of data structure       
                                                        
          // Retrieve next set of records               
          csr1Fetch();                                  
       EndDo;  // SQLStt = Success                      
                                                        
    EndSl;                                               

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Eckenrod, Larry
Sent: Monday, June 19, 2006 3:35 PM
To: rpg400-l@xxxxxxxxxxxx
Subject: Controlling a fetch loop

Does anyone see a problem with controlling the loop like this:

/EXEC SQL                                                       
+ fetch Wcostcsr into :WUwhs, :WUsku, :WUonhand, :WUlrcpt,      
+     :WUlpocst, :WUfifocst, :WUcount, :WUvendor, :WUavgcost,   
+     :WUcat                                                    
/END-EXEC                                                       
                                                                
                   dow       sqlstt <> '02000'                  
                             and sqlstt < '20000'               

                              code.......


/EXEC SQL                                                       
+ fetch Wcostcsr into :WUwhs, :WUsku, :WUonhand, :WUlrcpt,      
+     :WUlpocst, :WUfifocst, :WUcount, :WUvendor, :WUavgcost,   
+     :WUcat                                                    
/END-EXEC 
                         enddo


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

Privileged and Confidential.  This e-mail, and any attachments there to, is 
intended only for use by the addressee(s) named herein and may contain 
privileged or confidential information.  If you have received this e-mail in 
error, please notify me immediately by a return e-mail and delete this e-mail.  
You are hereby notified that any dissemination, distribution or copying of this 
e-mail and/or any attachments thereto, is strictly prohibited.