RE: Sample Free Form RPG program w/embedded SQL

Mike,

That was a quick & dirty example.  So don't use it a gospel <grin>

For a 'select *' you'd most likely use a cursor along with a 'fetch into'.  The 
'select into' is only useful when the select returns only one row.

As far as how :someDS would be defined...it's simply a regular RPG IV data 
structure.

HTH,

Charles Wilt
--
iSeries Systems Administrator / Developer
Mitsubishi Electric Automotive America
ph: 513-573-4343
fax: 513-398-1121
 

> -----Original Message-----
> From: rpg400-l-bounces@xxxxxxxxxxxx
> [mailto:rpg400-l-bounces@xxxxxxxxxxxx]On Behalf Of Condon, Mike
> Sent: Thursday, September 08, 2005 3:22 PM
> To: RPG programming on the AS400 / iSeries
> Subject: RE: Sample Free Form RPG program w/embedded SQL
> 
> 
> Excuse my lack of knowledge about this, but our shop is (so far) Old
> School RPG, and my specialty is systems administration, with very
> limited RPG App development. 
> How is :someDS defined?
> 
> -----Original Message-----
> From: rpg400-l-bounces@xxxxxxxxxxxx
> [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Wilt, Charles
> Sent: Thursday, September 08, 2005 2:10 PM
> To: RPG programming on the AS400 / iSeries
> Subject: RE: Sample Free Form RPG program w/embedded SQL
> 
> 
> Nope,
> 
> As you can't use embedded SQL in free form.
> 
> You have to exit free form to use embedded SQL.
> 
>  /end-free
> c/exec SQL
> c+ select * from myFile into :someDS
> c+  where field = 1
> c/end-exec
> 
> HTH,
> 
> Charles Wilt
> --
> iSeries Systems Administrator / Developer
> Mitsubishi Electric Automotive America
> ph: 513-573-4343
> fax: 513-398-1121
>  
> 
> > -----Original Message-----
> > From: rpg400-l-bounces@xxxxxxxxxxxx
> > [mailto:rpg400-l-bounces@xxxxxxxxxxxx]On Behalf Of Condon, Mike
> > Sent: Thursday, September 08, 2005 2:37 PM
> > To: RPG programming on the AS400 / iSeries
> > Subject: Sample Free Form RPG program w/embedded SQL
> > 
> > 
> > Can someone send me a short, simple Free Form RPG program w/embedded
> > SQL?
> > 
> > -- 
> > 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.
> > 
> > 
> 
> -- 
> 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.
> 
> 
> -- 
> 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.
> 
>