RE: Character to numeric

["DeLong, Eric" <EDeLong@xxxxxxxxxxxxxxx>]

Move would work ok if you changed CHAR10 to be right adjusted first...

C                       EvalR           Char10 = %TrimR(Char10)
C                       Move            Char10  Num7

Eric DeLong
Sally Beauty Company
MIS-Project Manager (BSG)
940-898-7863 or ext. 1863



-----Original Message-----
From: Chevalier, Rick [mailto:Rick.Chevalier@xxxxxxxxxxxxxxx]
Sent: Wednesday, September 10, 2003 8:11 AM
To: RPG programming on the AS400 / iSeries
Subject: RE: Character to numeric


Good catch Hans.  I guess the morning caffeine hadn't kicked in yet.  

I'm also a bit rusty on MOVE as I normally code free form now.

Thanks,

Rick

-----Original Message-----
From: Hans Boldt [mailto:boldt@xxxxxxxxxx]
Sent: Wednesday, September 10, 2003 8:03 AM
To: rpg400-l@xxxxxxxxxxxx
Subject: Re: Character to numeric

Chevalier, Rick wrote:

> Use the MOVE operation code instead of MOVEL.
>
> -----Original Message-----
> From: Mahesh Pawar [mailto:mahesh@xxxxxxxxxxxx]
> Sent: Wednesday, September 10, 2003 3:21 AM
> To: RPG programming on the AS400 / iSeries
> Subject: Character to numeric
>
> Hello All,
> I have character field of length 10 (char10) and want to move numeric
field
> of length 7(num7).
> With movel I am achiving this but I am not getting the exact result
what I
> want.For e.g
> Char10 = '3065           ' . after moving to NUM7 it's show  3065000
I do
> not want value like this in NUM7.
> I need value 0003065. I can achive this in CL
> Please advice me to achive this in RPG.
>
> Thanks in Advance
> Mahesh Pawar
>


Using MOVE instead of MOVEL isn't right either. After a MOVE of
CHAR10 to NUM7, NUM7 gets the value 5, not 3065. Don't forget that
MOVE blindly copies bytes right-adjusted, and the right-most 6 bytes
of CHAR10 are blanks.

Code something like this instead (V5R2):

/free
    num7 = %int(char10);
/end-free

(Prior to V5R2, use atoi() or atol() as per many previous
discussions. A search will easily find them.)

Cheers! Hans


_______________________________________________
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.