Re: Using SQL Fetch with an unknown number of columns

[Russell Conerly <rconerly@xxxxxxxxxxx>]

Mike,

You need to investigate the DESCRIBE function.  It will return into
the SQLDA the format of the fields in your dynamically prepared SQL
Statement.  I found it a little cumbersome but it can be done.  

I'm under time contraints right now and I don't have time to figure
out exactly how I did it.  But I hope this helps.

Regards,
Russell Conerly
Tupelo, MS


Here's an example

D  sql_num        c                   const(100)   

C                   eval      sqln = sql_num                       
C                   eval      sqldabc = (sqln * %len(SQLVAR)) + 16 

  C/EXEC SQL                                  
  C+ INCLUDE SQLDA                             
  C/END-EXEC          
 
  C/EXEC SQL                                   
  C+ PREPARE SQLSTMNT FROM :statement          
  C/END-EXEC  
                            
  C/EXEC SQL                                   
  C+ DESCRIBE SQLSTMNT INTO :SQLDA USING ALL   
  C/END-EXEC  
                          
  C/EXEC SQL                                   
  C+ DECLARE A1 CURSOR FOR SQLSTMNT            
  C/END-EXEC                                   
                                               
-------------------
> We have an app that uses a dynamically generated SQL statement to
query out
> a set of records.  Files, fields, sorts, etc. are stored in a file,
so we
> have no way of knowing what the recordset will look like at compile
time.
> Because of this, we're having problems using Fetch in any sort of
> meaningful way.  We know how to Fetch into a DS or a bunch of
variables,
> but both seem to require knowing what the recordset looks like at
compile
> time.  If we have more variables in the Fetch Cursor Into statement
than we
> have in the recordset, will this be a problem?
> 
> All we want to do is dump the recordset into a work file so we can
export
> that out to a PC file.  Unfortunately we're still on V5R1, so we
don't have
> Create Table As.
> 
> Mike E.
> 
> 
> 
> _______________________________________________
> 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.
> 
>