Re: Converting Alpha left justified to numeric

[Tom <tomh@xxxxxxxxx>]

You might try something like this:
d zeros   s   15a inz('000000000000000')
d num     s   15a inz('123')
c         if   %len(%trim(num)) < %len(num)
c*   num equals '123            '
c         eval num = %subst(zeros:1:
c                    %len(num) - %len(%trim(num))) +
c                    %trim(num)
c*   num now equals '000000000000123'
c         endif

Eric A. Wolf wrote:

> To the list,
> 
> I need to convert an alpha field into numeric - I used to do it with a
> loop but was wondering if there was an easier way.
> 
> Scenario - the field is 15 Alpha and the number is left justified with
> leading zeros removed (0000001 is 1 + 6 blanks).  I want to convert it to
> a numeric field to be 0000001.
> 
> Any suggestions or do I stay with the loop - reading from right to left
> looking for the first non-blank character and moving it into another array
> starting with the 7th position and counting backward?
> 
> TIA...
> Eric A. Wolf