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

Jerry,

Is *Year defined as Decimal(5,0)?  That's odd.  On V5R1, *Year defines as
S(4,0).  I don't see why the year had a leading zero.


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



-----Original Message-----
From: Feador, Jerry [mailto:JFeador@Kiausa.com]
Sent: Friday, January 03, 2003 3:54 PM
To: 'rpg400-l@midrange.com'
Subject: RE: Eval FileName = 'PRMMTD' + %EditC((*Year-1):'X')


Booth,

        The length of your field: FileName, isn't long enough to handle the
11 character string....

Capt.j

-----Original Message-----
From: Booth Martin [mailto:Booth@MartinVT.com]
Sent: Friday, January 03, 2003 1:50 PM
To: rpg400-l@midrange.com
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"


---------------------------------------------------------
Booth Martin   http://www.MartinVT.com
Booth@MartinVT.com
---------------------------------------------------------


_______________________________________________
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/cgi-bin/listinfo/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.
_______________________________________________
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/cgi-bin/listinfo/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.