RE: ready to pull my hair out final SQL question of the day

I will try it and see what happens.....thanks Charles


On Thu, 14 Jul 2005 12:26:11 -0400, Wilt, Charles wrote
> Doug,
> 
> Don't think it's related, but I'd normally use:
>  sum(ilneprice - ilneuavcst) as margin
> 
> As far as the error.  Most times, that error means you've got 
> DMARGIN defined in multiple places in your RPG program.
> 
> Remember how I said the pre-compiler couldn't handle that?
> 
> Go ahead and post the code if this doesn't help.
> 
> 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: Thursday, July 14, 2005 12:18 PM
> > To: RPG Group
> > Subject: ready to pull my hair out final SQL question of the day
> > 
> > 
> > after this I am going to go home, throw the phone out the 
> > back door, fill 
> > the ice bucket with ice, grab a tumbler and a bottle of 
> > single malt and park 
> > my carcus on the sofa and not move for the rest of the day......
> > 
> > I started expanding my select statement, which includes a 
> > calculated field :
> > 
> > sum(ilneprice) - sum(ilneuavcst) as margin
> > 
> > I have declared a variable dmargin as a type S length of 8 with two 
> > decimals.....so far so good....
> > 
> > In my fetch statement I have the following:
> > 
> > 
> > C/EXEC SQL                                                    
> >          
> > C+ FETCH DETAILCURSOR                                         
> >          
> > C+ INTO :ALPHA, :CUSTNO, :DNAME, :STKNO, :DESC, :PRICE, 
> > :COST, :DMARGIN
> > C/END-EXEC
> > 
> > When I go to compile the sql precompiler balks and tells me that the 
> > variable DMARGIN is not defined or usable.....nothing else.
> > 
> > Its declared properly and everything else seems to work.  I 
> > checked the 
> > order of the select fields and that is ok as well.
> > 
> > I would post the relevant code but I did not want the message 
> > to be too long.
> > 
> > Ideas?
> > 
> > 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.