RE: Leading Zeros

["Joel R. Cochran" <jrc@xxxxxxxxxxxxx>]

If you use %editc( field1 : 'X' ) the leading zeros will not be suppressed,
looks like exactly what you want...

Joel R. Cochran
Director of Internet Services
VamaNet.com
(800)480-8810
mailto:custservice@vamanet.com

> -----Original Message-----
> From: Bartell, Aaron L. (TC) [mailto:ALBartell@taylorcorp.com]
> Sent: Monday, February 25, 2002 4: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.
>