× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



Guy,

Try this link 
http://publib.boulder.ibm.com/infocenter/iseries/v5r3/ic2924/index.htm.  SQLSTT 
is the RPG equivalent of SQLSTATE.  The possible values are listed here.

Here's an example of how I use it.

     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                    
                  RtnDtaSet@ = RtnDtaSet@ + %Size(RtnDtaSet);
               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      
               RtnDtaSet@ = Mem@;                           
                                                            
               // Retrieve next set of records              
               csr1Fetch();                                 
            EndDo;  // SQLStt = Success                     
                                                            
         EndSl;                                             

Rick

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx]On Behalf Of Guy Henza
Sent: Tuesday, June 14, 2005 6:04 AM
To: rpg400-l@xxxxxxxxxxxx
Subject: RE: Selecting records using SQLRPGLE


Rick,

OK, I was looking at the IBM web page:

http://publib.boulder.ibm.com/iseries/v5r2/ic2924/index.htm

for the example that I use.  They use SQLCOD.  Where do I find a good
example of using SQLSST?

Guy

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.


As an Amazon Associate we earn from qualifying purchases.

This thread ...

Follow-Ups:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.