RE: Converting char to numeric for editing

["Dennis Lovelady" <iseries@xxxxxxxxxxxx>]

There was a recent discussion about this.  One should search the archives
before posting.  :)

Having said that, this should work.

V3 = %EditC(%dec(%Subst(rpltxt:1:11):11:2):'J');

Dennis Lovelady
http://www.linkedin.com/in/dennislovelady
--
"...Yes, the lectures are optional.  Graduation is also optional."
        -- Professor Brian Quinn 


> I need to edit a char value that resides in rpltxt which is a 80 char
> field left justified that looks lik this 00000012566.
>
> I need it to end up in V3 edited to look like this 125.66
>
> This is what I'm getting using the code below: '     12,566.00
>
> This is what I'm currently using that isn't working.
> I know this is going the long way around, but got frustrated with my
> original attempts.
>
> appreciate your help.
>
> ALP11  = %subst(rpltxt:1:11);
> Num11  = %dec(alp11:11:2);
> V3  = %EDITC(Num11:'J');
>
> d rpltxt                s             80
> d Num11                 S             11  2
> d Alp11                  S             11
> d v3                    s             50    varying
>
> Regards,
>
>
>
> SWBC
> 9311 San Pedro Ave., Suite 600
> San Antonio, TX 78216
>
>  Visit our website at www.swbc.com