Re: Character to numeric

[Hans Boldt <boldt@xxxxxxxxxx>]

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