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

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