RE: Sample Free Form RPG program w/embedded SQL

someDS is the name of the DS.  The colon in front tells the SQL
precompiler that this is a host variable & not a part of the static SQL
string. 


Thanks,
Tommy Holden


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Wilt, Charles
Sent: Thursday, September 08, 2005 2:38 PM
To: RPG programming on the AS400 / iSeries
Subject: 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.
> 
>