RE: Remove Leading zeros in a string

Steven,

IMHO

I would do away with the DS and dump this all to one eval statement.

something like the following should suffice.

eval insprc = %editc(units:'Z') + '/' + %editc(dollars:'1')

you may or may not want to add the %trim too, depending on this
should look in the end.

HTH

Mark


-----Original Message-----
From: rpg400-l-admin@midrange.com [mailto:rpg400-l-admin@midrange.com]On
Behalf Of Brault, Steve
Sent: Friday, April 19, 2002 10:13 AM
To: 'RPG400-L@midrange.com'
Subject: Remove Leading zeros in a string


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