Re: Best way to convert numeric with Decimals

As said one line evalr Alpha7 = %Editc(Number7 : 'Z') (removes leading zeros and no decimal points, 'X' if you want leading zeros)
 
most are over killing the process with scans and replaces.

 Good Luck
Bill
(All in favour of saving gas, raise your right foot!)



----- Original Message ----
From: Adam West <adamster@xxxxxxxxx>
To: RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>
Sent: Thursday, August 21, 2008 11:29:59 AM
Subject: Re: Best way to convert numeric with Decimals

Does this go on an Eval statement? I like this way to remove the leading zeros,

--- On Thu, 8/21/08, jdavis@xxxxxxxx <jdavis@xxxxxxxx> wrote:

From: jdavis@xxxxxxxx <jdavis@xxxxxxxx>
Subject: Re: Best way to convert numeric with Decimals
To: "RPG programming on the AS400 / iSeries" <rpg400-l@xxxxxxxxxxxx>
Date: Thursday, August 21, 2008, 3:02 PM

I would code it the following way...

No leading zeros

PriceChar = %Replace('' :'.' :%Dec(Price))

Leading Zeros

PriceChar = %Replace('' :'.' :%EditC(Price :'X'))



Jeff Davis



**********

The information contained in this communication is confidential, private,
proprietary, or otherwise privileged and is intended only for the use of the
addressee.  Unauthorized use, disclosure, distribution or copying is strictly
prohibited and may be unlawful.  If you have received this communication in
error, please notify the sender immediately at (312)653-6000 in Illinois;
(800)835-8699 in New Mexico; (918)560-3500 in Oklahoma; or (972)766-6900 in
Texas.

**********