Re: Remove Leading zeros in a string

[dmosley@xxxxxxxxxx]

How about

d  InsPrc s    9a  inz

d Units     s     3S 0
d Slash     s     1A
d Dollars   s     5S 0


c    eval      InsPrc = %trim(%editc(Units:'3'))
c          + '/'
c          + %trim(%editc(Dollars:'3'))

One question, how did you get field Dollars to show decimals without
defining it with Decmial places..

David L. Mosley, Jr.
Systems Analyst
2000 CentreGreen Way
Suite 250
Cary, NC 27513



                    "Brault, Steve"
                    <sbrault@mbi-inc.        To:     "'RPG400-L@midrange.com'" 
<RPG400-L@midrange.com>
                    com>                     cc:
                    Sent by:                 Subject:     Remove Leading zeros 
in a string
                    rpg400-l-admin@mi
                    drange.com


                    04/19/02 11:13 AM
                    Please respond to
                    rpg400-l






This message is in MIME format. Since your mail reader does not understand
this format, some or all of this message may not be legible.
--
[ Picked text/plain from multipart/alternative ]
Any Ideas??

D InsPrc          DS             9    INZ
D  Units                         3S 0
D  Slash                         1A
D  Dollars                       5S 0

If I output INSPRC to the screen.... I get 005/100.00

What I want is 5/100.00

Any ideas as to how to remove the leading zeros??

Thanks


Steven S. Brault


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