RE: Leading Zeros

Isn't this an FAQ?
Anyway, use the "X" edit code with %EDITC and it'll do what you need it
to do.

Bob Cozzi
cozzi@rpgiv.com
Visit the on-line  Midrange  Developer  forum at: http://www.rpgiv.com


> -----Original Message-----
> From: rpg400-l-admin@midrange.com [mailto:rpg400-l-admin@midrange.com]
On
> Behalf Of Bartell, Aaron L. (TC)
> Sent: Monday, February 25, 2002 3:12 PM
> To: 'rpg400-l@midrange.com'
> Subject: Leading Zeros
>
> Hi all,
>
> I am developing a string that is used for the name of a file that I am
> creating in the IFS.  I am using numeric values in the string and I
don't
> want the leading zeros to be suppressed.  For example:
>
> field1 = 0000001
> field2 = 0000012
>
> eval filename = field1 + field2 + '.txt'
>
> 00000010000012.txt -vs- 112.txt
>
> The file names are much more involved than the above and I don't want
to do
> a move because I am guessing that there is something else that can be
used.
> I have looked at %char, %editc, and %editw and none of them appear to
do
> what I am asking.
>
> help. . .
> Aaron Bartell
> _______________________________________________
> 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.