Re: Converting char to numeric for editing

[Robert Mullis <robertmullis99@xxxxxxxxxxx>]

Dennis,

I don't think that will work, because the OP's example did not have a 
decimal point in the character field.  I believe he would still get 
"              12.566.00".

On 12/9/2010 10:10 AM, Dennis Lovelady wrote:
> 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