RE: Leading Zeros

["Smith, Mike" <Mike_Smith@xxxxxxxxxxxxxxxx>]

try
eval filename = editc(field1:'X') + editc(field1:'X') + '.txt'

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