Re: Converting Alpha left justified to numeric

["Eric A. Wolf" <eric_a_wolf@xxxxxxxxxxx>]

V4R5 OS

Eric

----- Original Message -----
From: <MWalter@xxxxxxxxxxxxxxx>
To: "RPG programming on the AS400 / iSeries" <rpg400-l@xxxxxxxxxxxx>
Sent: Tuesday, May 20, 2003 1:53 PM
Subject: Re: Converting Alpha left justified to numeric


>
> Eric,
>
> Which version of the OS?
>
> If you are on V5R2, you could use %DEC. Otherwise, look at the atoi() c
> function. I have a dirty example if you want.
>
> Thanks,
>
> Mark
>
> Mark D. Walter
> Senior Programmer/Analyst
> CCX, Inc.
> mwalter@xxxxxxxxxx
> http://www.ccxinc.com
>
>
>
>                     "Eric A. Wolf"
>                     <eric_a_wolf@xxxxxx        To:
<rpg400-l@xxxxxxxxxxxx>
>                     l.com>                     cc:
>                     Sent by:                   Subject:     Converting
Alpha left justified to numeric
>                     rpg400-l-bounces@xx
>                     drange.com
>
>
>                     05/20/2003 04:39 PM

>                     Please respond to
>                     RPG programming on
>                     the AS400 / iSeries
>
>
>
>
>
>
> 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
> _______________________________________________
> This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
> To post a message email: RPG400-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: RPG400-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.
>
>
>
>
>
> _______________________________________________
> This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
> To post a message email: RPG400-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: RPG400-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.
>
>