• Subject: Re:SQL RPG
  • From: Jromeh <Jromeh@xxxxxxx>
  • Date: Sun, 11 Jan 1998 15:44:42 EST
  • Organization: AOL (http://www.aol.com)

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


As an Amazon Associate we earn from qualifying purchases.

This thread ...


Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2021 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.