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

["Bob Cozzi" <cozzi@xxxxxxxxx>]

Yes

-----Original Message-----
From: rpg400-l-bounces@midrange.com
[mailto:rpg400-l-bounces@midrange.com] On Behalf Of Richard B Baird
Sent: Monday, January 06, 2003 5:35 PM
To: RPG programming on the AS400 / iSeries
Subject: RE: Eval FileName = 'PRMMTD' + %EditC((*Year-1):'X')



Bob,

does the %Char() bif trim the leading zero? that was the original
problem, he didn't want the leading zero.

I'm nowhere I can test right now.

Rick

-----original message----------
Wouldn't...

 FileName = 'PRMMTD' + %Char(*YEAR-1)

Be more clear?

Bob Cozzi


-----Original Message-----
From: rpg400-l-bounces@midrange.com
[mailto:rpg400-l-bounces@midrange.com] On Behalf Of Richard B Baird
Sent: Monday, January 06, 2003 10:13 AM
To: RPG programming on the AS400 / iSeries
Subject: RE: Eval FileName = 'PRMMTD' + %EditC((*Year-1):'X')



simply changing your edit code to 'z' and adding a trim would also work:

Eval    FileName = 'PRMMTD' + %trim(%EditC((*Year-1):'Z'))



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