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

0043.01 C/Exec SQL                                
0043.02 + SELECT COUNT(*) INTO :DEMO FROM IMPITN00
0043.03 C/End-Exec                                

Is that really what you have? 
Is the Plus sign in column 6?
I should be in column 7.
I usually code:

....C+ SELECT COUNT(*) ...

To insure I get the C in there.


-Bob Cozzi
www.RPGxTools.com
If everything is under control, you are going too slow.
- Mario Andretti


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