RE: Can SQL recognize a nested data structure?

I missed it in the other post. Which version of OS400? I was hoping that
support for data structure arrays was coming.

Thanks,

Mark

Mark D. Walter
Senior Programmer/Analyst
CCX, Inc.
mwalter@xxxxxxxxxx
http://www.ccxinc.com


                                                                                
                                                        
                      "Guy Henza"                                               
                                                        
                      <guyhenza@hotmail.        To:       rpg400-l@xxxxxxxxxxxx 
                                                        
                      com>                      cc:                             
                                                        
                      Sent by:                  Subject:  RE: Can SQL recognize 
a nested data structure?                                
                      rpg400-l-bounces@m                                        
                                                        
                      idrange.com                                               
                                                        
                                                                                
                                                        
                                                                                
                                                        
                      08/18/2004 09:35                                          
                                                        
                      AM                                                        
                                                        
                      Please respond to                                         
                                                        
                      RPG programming on                                        
                                                        
                      the AS400 /                                               
                                                        
                      iSeries                                                   
                                                        
                                                                                
                                                        
                                                                                
                                                        




This is the code I got to work.

D iimds         e Ds                  extname(iim)
D                                     occurs(10) qualified
D  rrn                          10s 0

C/EXEC SQL
C+ Declare C1 cursor for
C+ select a.*, rrn(a)
C+   from iim a
C+   where iprod like 'I%'
C/END-EXEC

C/EXEC SQL
C+ Open C1
C/END-EXEC

C/EXEC SQL
C+ fetch from C1 for 10 rows into :iimds
C/END-EXEC

C/EXEC SQL
C+ Close C1
C/END-EXEC
C                   seton                                        lr

Thanks to all,

Guy

_________________________________________________________________
Express yourself instantly with MSN Messenger! Download today - it's FREE!
http://messenger.msn.click-url.com/go/onm00200471ave/direct/01/

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