RE: Leading Zeros

["Bartell, Aaron L. (TC)" <ALBartell@xxxxxxxxxxxxxx>]

I am too lazy to do a MOVE because then I have to create another variable;-)

What Joel said worked perfect - %editc( field1 : 'X' ).  Thanks a ton Joel!
That 'X' wasn't on my list of EDTCDE's.  Looks like it is time to update my
EDTCDE list!

Aaron Bartell

-----Original Message-----
From: Brad Stone [mailto:brad@bvstools.com]
Sent: Monday, February 25, 2002 3:37 PM
To: rpg400-l@midrange.com
Subject: Re: Leading Zeros


I'm pretty sure if you just MOVE the field into a string the
zeros will be retained.

Brad

On Mon, 25 Feb 2002 15:12:22 -0600
 "Bartell, Aaron L. (TC)" <ALBartell@taylorcorp.com> wrote:
> 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. . .

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