Re: Character to numeric

And if you use TESTN to verify the numeric validity *before* using MOVE to
populate NUM7...

Steve

----- Original Message ----- 
From: "DeLong, Eric" <EDeLong@xxxxxxxxxxxxxxx>
To: "'RPG programming on the AS400 / iSeries'" <rpg400-l@xxxxxxxxxxxx>
Sent: Wednesday, September 10, 2003 8:30 AM
Subject: RE: Character to numeric


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