Re: Character to numeric -- RPG400-L

× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.

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 mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.