RE: Leading Zeros

Pull out an old O spec sheet, if you still have them.  It's there but the
description 'Remove Plus Sign' didn't help me.  It was just last week on
this list that this angel cracked me over the head as to what it is used
for.

Rob Berendt
--
"They that can give up essential liberty to obtain a little temporary
safety deserve neither liberty nor safety."
Benjamin Franklin



                    "Bartell, Aaron
                    L. (TC)"                To:     "'rpg400-l@midrange.com'" 
<rpg400-l@midrange.com>
                    <ALBartell@taylor       cc:
                    corp.com>               Fax to:
                    Sent by:                Subject:     RE: Leading Zeros
                    rpg400-l-admin@mi
                    drange.com


                    02/25/2002 04:48
                    PM
                    Please respond to
                    rpg400-l






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