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



   Hi Brian,

   Here's a bit of code which you could use:

   C                   ExSR      SelC1                  
   C                   ExSR      OpenC1                 
   C                   ExSR      ReadC1                 
                                                        
   C                   DoW       SQLCOD   =
   0                                                            
                       ** Do something here with the record read **
                                 
   C                   ExSR      ReadC1                 
   C                   EndDo                            
                                                        
   C                   ExSR      CloseC1   
   C                   Eval      *InLR = *On

   *=====================================================================
   * SUBROUTINES                                                         
   *=====================================================================
                                                                         
   *---------------------------------------------------------------------
   * SelC1      : SQL - Declare Cursor C1                                
   *---------------------------------------------------------------------
        SelC1         BegSR                                              
                                                                         
   /Exec SQL Declare C1 Cursor For                                       
                                                                         
   +   Select     Field1, Field2                                        
   +   From       YourFileName                                  
                                                                         
   /End-Exec                                                             
                                                                         
                      EndSR   
    *---------------------------------------------------------------------
    * OpenC1     : SQL - Open Cursor C1                                  
    *---------------------------------------------------------------------
   C     OpenC1        BegSR                                             
                                                                         
   C/Exec SQL                                                            
   C+                  Open  C1                                          
   C/End-Exec                                                            
                                                                         
   C                   EndSR                                             
                                                                         
    *---------------------------------------------------------------------
    * ReadC1     : SQL - Fetch Cursor C1                                 
    *---------------------------------------------------------------------
   C     ReadC1        BegSR                                             
                                                                         
   C/Exec SQL                                     
   C+                  Fetch C1 into :SQL_Buffer                         
   C/End-Exec                                                            
                                                                         
   C                   EndSR                                             
                                                                         
    *---------------------------------------------------------------------
    * CloseC1    : SQL - Close Cursor C1                                 
    *---------------------------------------------------------------------
   C     CloseC1       BegSR                                             
                                                                         
   C/Exec SQL                                                            
   C+                  Close C1                                          
   C/End-Exec                                                            
                                                                         
   C                   EndSR      

   I hope this helps,

   G4!                                    
                                            

         

   Brian Piotrowski wrote:

 Thanks.  My only question is how do you move forward in the recordset?
 I'm assuming if you are writing the results, you would need to be able
 to go through the results one by one, correct?

 Brian.

 -----Original Message-----
 From: Geeky400 [mailto:Geeky400@xxxxxxxxxxx]
 Sent: Thursday, September 15, 2005 8:34 AM
 To: RPG programming on the AS400 / iSeries
 Subject: Re: Filling a Subfile with an SQL statement / Writing a CSV

 Hi Brian,

 ...and for the first question you can test SQLCOD, ie, DoW SQLCOD = 0

 Hope this helps,

 G4!


 Peter.Colpaert@xxxxxxxxxx wrote:

  

 Brian,

 regarding your second question,  you could always use the Jakarta POI
 classes to output a "real" excel sheet, and have the user pick it up
    

 from
  

 the IFS, or mail it to him/her.

 Alternatively, you could output to a workfile, and have the user import
    

 it
  

 into excel using the iSeries Access data transfer add-in.

 HTH,

 Peter Colpaert
 Application Developer
 Massive - Kontich, Belgium
 -----
 Yoda of Borg are we.  Futile is resistance, assimilated will you be.
 -----




 "Brian Piotrowski" <bpiotrowski@xxxxxxxxxxxxxxx>
 Sent by: rpg400-l-bounces@xxxxxxxxxxxx
 15/09/2005 14:10
 Please respond to RPG programming on the AS400 / iSeries


        To:     "RPG programming on the AS400 / iSeries"
    

 <rpg400-l@xxxxxxxxxxxx>
  

        cc:
        Subject:        Filling a Subfile with an SQL statement /
    

 Writing a CSV
  

 Hi All,



 When I use an SQL statement to obtain information to a database, do I
 need to create a cursor in order to write the data to a subfile?  Is
 there a way to do something like a DoW not %eof(SQL returned records)?



 The other question I have regards writing a CSV file.  Right now, we
 have a null device where all of our "scratch" data is written (PRT01).
 One of the users on our system needs to have the results of a query
 written to a file that will be exported to an Excel spreadsheet.  I was
 planning on simply writing the file to our scratch drive and have them
 grab the print file using Navigator.  Does anyone know if there is a
 better way to do this?



 Thanks!



 Brian.



 -=-=-=-=-=-=-=-=-=-=-=-=-=-

 Brian Piotrowski

 Specialist - I.T.

 Simcoe Parts Service, Inc.

 Ph: 705-435-7814 x343

 Fx: 705-435-6746

 bpiotrowski@xxxxxxxxxxxxxxx

 -=-=-=-=-=-=-=-=-=-=-=-=-=-



 

    



                
 ___________________________________________________________
 To help you stay safe and secure online, we've developed the all new
 Yahoo! Security Centre. http://uk.security.yahoo.com
  

   ___________________________________________________________ Yahoo!
   Messenger - NEW crystal clear PC to PC calling worldwide with voicemail
   http://uk.messenger.yahoo.com

As an Amazon Associate we earn from qualifying purchases.

This thread ...

Follow-Ups:
Replies:

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.