Re:SQL RPG

[Jromeh <Jromeh@xxxxxxx>]

Buck wrote...

>C* For the SQL access path, FETCH is the equivalent of READ  
>C/EXEC SQL                                                   
>C+ FETCH NEXT FROM DYNFIL INTO :KWD,:TT,:INIT,:TTDATE,:TTDESC
>C/END-EXEC                                                   

For larger files where all fields are wanted, might try using 'SELECT 
*...' and then doing

FETCH... INTO :DSNAME

where DSNAME is an externally described data structure pulling in the 
record format. This tends to make old RPG hands comfortable.

For joins, SELECT * FROM FIL1, FIL2... can use a fetch like 

FETCH... INTO :DSFIL1, :DSFIL2

HTH, 

Jerome

/* -=- -=- -=- -=- -=- -=- -=- -=- -=- -=- -=- -=- -=- -=- -=- -=- -=- */
/* Jerome Hughes                        jromeh@aol.com                 */
/* InterPro Consulting Services         www.interproinc.com            */ 
/* Rosemont IL USA                      these are my own opinions only */
/* OMNI User Communications Director    www.omniuser.org               */
/* -=- -=- -=- -=- -=- -=- -=- -=- -=- -=- -=- -=- -=- -=- -=- -=- -=- */
We try to solve the problem by rushing through the design process so that
enough time is left at the end of the project to uncover the errors that
were made because we rushed through the design process. -- Glenford Myers


* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* This is the RPG/400 Discussion Mailing List!  To submit a new         *
* message, send your mail to "RPG400-L@midrange.com".  To unsubscribe   *
* from this list send email to MAJORDOMO@midrange.com and specify       *
* 'unsubscribe RPG400-L' in the body of your message.  Questions should *
* be directed to the list owner / operator: david@midrange.com          *
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *