RE: SQL Issues

[CWilt@xxxxxxxxxxxx]

Dane,

Chris' original post had an example.  See below.

Charles

> -----Original Message-----
> From: Dane Cox [mailto:DCox@xxxxxxxxxxxxx]
> Sent: Tuesday, June 15, 2004 5:53 PM
> To: RPG programming on the AS400 / iSeries
> Subject: RE: SQL Issues
> 
> 
> Charles,
> 
> This worked for me.  I am now getting back both cursor result sets
> through Ops Nav.
> 
> Would you happen to know a way to get data from an array within an RPG
> program into an SQL cursor so that I might return it in the 
> same manner.
> I've only seen cursors declared over files.  Any ideas?
> 
> Thanks!
> Dane 
> 
> 
> > -----Original Message-----
> > From: Chris Wolcott [mailto:CWolcott@xxxxxxxxxxxxxxxxxxxxxx]
> > Sent: Tuesday, June 15, 2004 3:07 PM
> > To: rpg400-l@xxxxxxxxxxxx
> > Subject: SQL Issues
> > Importance: High
> > 
> > 
> >  
> > I am trying to write an RPGLE program with embedded SQL.  If 
> > I create a
> > DS OCCURS() structure, populate it via RPGLE commands and 
> issue a SET
> > RESULT SETS ARRAY :name FOR :nbr ROWS command I get a result set.
> > However, if I DECLARE CURSOR, OPEN CURSOR and SET RESULT SETS 
> > CURSOR, I
> > get NOTHING.  (Not even an empty table)  I am testing it via 
> > OPSNAV Run
> > SQL Scripts.
> > 
> > Any ideas on what I'm doing wrong?
> > 
> > Using a DS:  (This gives me 10 rows, with only the first 
> > having data in
> > it, as expected.)
> > 
> > D OptList         DS           385    OCCURS(1024)
> > D   OptName                     25A               
> > D   OptCode                     10A               
> > D   OptPrms                    350A               
> > 
> > C                   CLEAR     *ALL          OptList
> > C                   EVAL      OptName = 'Test'       
> > C                   EVAL      OptCode = 'Test2'      
> > C                   EVAL      OptPrms = 'Test3'      
> > C/EXEC SQL                            
> > C+ SET RESULT SETS ARRAY :OptList FOR 10 ROWS
> > C/END-EXEC 
> >