RE: ...along the embedded SQL path - Question and Comment

Correct.

Now for what may be TMI at this point....but

The precompiler doesn't understand variable scope.  You'll need to make sure 
that the variable names you use in embedded SQL aren't defined multiple times 
with different attributes.

Now, this doesn't mean you can use a local procedure variable.  That works.  
But even though the variable is local to the procedure, the precompiler will 
choke if the same variable name is used someplace else in the source, another 
procedure or global, and has different attributes.


Additionally, at v5r2, you could pass a MODS but not a DS array.  v5r3 added 
support for DS arrays.

for instance:

c/exec sql
c+  fetch from myCursor for 30 rows into :hostDS
c/end-exec

In v5r2, hostDS had to be a MODS.  In v5r3, hostDS could be a MODS [OCCUR(30)] 
or an array [DIM(30)].

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 Douglas W. Palme
> Sent: Tuesday, July 12, 2005 10:20 AM
> To: RPG programming on the AS400 / iSeries
> Subject: RE: ...along the embedded SQL path - Question and Comment
> 
> 
> Thanks, I had actually already done that and then somehow 
> typed an extra 
> character in the sql line.
> 
> If I might ask one additional question.... I am assuming that 
> the : in the 
> line :DEMO is to tell the sql precompiler that it is to place 
> the value of 
> the count(*) statement into that variable correct? 
> 
> 
> On Tue, 12 Jul 2005 09:14:36 -0500, Holden Tommy wrote
> > move the + over one byte to the right.  The compiler is looking at 
> > the plus sign & thinks it's a spec type...not a SQL 
> continuation line...
> > 
> > Thanks,
> > Tommy Holden
> > 
> > -----Original Message-----
> > From: rpg400-l-bounces@xxxxxxxxxxxx
> > [mailto:rpg400-l-bounces@xxxxxxxxxxxx]On Behalf Of Douglas W. Palme
> > Sent: Tuesday, July 12, 2005 9:10 AM
> > To: RPG programming on the AS400 / iSeries
> > Subject: RE: ...along the embedded SQL path - Question and Comment
> > 
> > Well at least now the precompiler is recgnizing the sql commands,
> >  but the compiler keeps erroring, saying that the End-Exec is 
> > expected but not found.....even though I have it there with 
> the /End-
> > Exec statement......
> > 
> > On Tue, 12 Jul 2005 09:58:54 -0400, Wilt, Charles wrote
> > > The source type must be SQLRPGLE not RPGLE.
> > > 
> > > 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 
> Douglas W. Palme
> > > > Sent: Tuesday, July 12, 2005 9:53 AM
> > > > To: RPG programming on the AS400 / iSeries
> > > > Subject: ...along the embedded SQL path - Question and Comment
> > > > 
> > > > 
> > > > First I would like to thank everyone for the helpful 
> > > > suggestions, books, 
> > > > url's, etc.  They were all appreciated and certainly have 
> > > > helped answer some 
> > > > questions.
> > > > 
> > > > however I am having one slight problem, I figured I would try 
> > > > a simple count 
> > > > test and see what happens, but whenever I enter the /Exec SQL 
> > > > or /End-Exec I 
> > > > keep getting a compiler directive not recognized, ignored error.
> > > > 
> > > > Here is how I coded the lines:
> > > > 
> > > > 0043.01 C/Exec SQL                                
> > > > 0043.02 + SELECT COUNT(*) INTO :DEMO FROM IMPITN00
> > > > 0043.03 C/End-Exec                                
> > > > 0043.04 C                   EVAL      FLD01 = DEMO
> > > > 0043.05 C                   EXFMT     MAIN        
> > > > 0043.06 C                   EVAL      *INLR = *ON 
> > > > 0043.07 C                   RETURN                
> > > > 
> > > > Any help would be appreciatd.
> > > > 
> > > > Douglas
> > > > 
> > > > -- 
> > > > 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.
> > 
> > If you bought, it was hauled by a truck - somewhere, sometime.
> > 
> > -- 
> > 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.
> 
> 
> If you bought, it was hauled by a truck - somewhere, sometime.
> 
> -- 
> 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.
> 
>