RE: Eval FileName = 'PRMMTD' + %EditC((*Year-1):'X')

D'oh! (slapping head)

Good catch.... 

Eric DeLong
Sally Beauty Company
MIS-Project Manager (BSG)
940-898-7863 or ext. 1863



-----Original Message-----
From: Joep Beckeringh [mailto:joep.beckeringh@wanadoo.nl]
Sent: Saturday, January 04, 2003 4:57 PM
To: rpg400-l@midrange.com
Subject: Re: Eval FileName = 'PRMMTD' + %EditC((*Year-1):'X')


Booth,

The compiler creates a temporary field for the expression '*YEAR - 1'.
Because *YEAR is 4 digits long, the temporary is 5 (so the result will
always fit).

Solutions:
1. Create your own field as 4 long and use that one.
2. C    Eval    FileName = 'PRMMTD' + %EditC(%decimal((*Year-1):4:0):'X')

You decide which one is ugliest :-)

Joep Beckeringh

----- Original Message -----
From: "Booth Martin" <Booth@MartinVT.com>
To: <rpg400-l@midrange.com>
Sent: Friday, January 03, 2003 10:50 PM
Subject: Eval FileName = 'PRMMTD' + %EditC((*Year-1):'X')


> D FileName        S             10
>  C    Eval    FileName = 'PRMMTD' + %EditC((*Year-1):'X')
>
> What would your expectation be for the value of Filename?
>
> The value I got was "PRMMTD0200"
>
> I expected "PRMMTD2002"

_______________________________________________
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@midrange.com
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo.cgi/rpg400-l
or email: RPG400-L-request@midrange.com
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.