RE: Character to Numeric can it be cleaned up

Thanks Bob,

I believe we went in a circle on this :)

quote:
No. Not using the code you posted.
You'll need to call C's atoi() or atoll() routine to do the conversion.


Bob Cozzi
Cozzi Consulting
www.rpgiv.com







"Bob cozzi" <cozzi@xxxxxxxxx>
Sent by: rpg400-l-bounces+bhopkins=libertyhardware.com@xxxxxxxxxxxx
08/18/2003 10:11 AM
Please respond to RPG programming on the AS400 / iSeries

 
        To:     "'RPG programming on the AS400 / iSeries'" 
<rpg400-l@xxxxxxxxxxxx>
        cc: 
        Subject:        RE: Character to Numeric can it be cleaned up


Actually, the ATOLL and ATOI functions (in lower case) have been posted to
this list a million times, so check the archives if that's all you need is
simply '1234' to X'01234F' functionatlity.


Bob Cozzi
Cozzi Consulting
www.rpgiv.com


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of Christen, Duane J.
Sent: Monday, August 18, 2003 7:55 AM
To: 'RPG programming on the AS400 / iSeries'
Subject: RE: Character to Numeric can it be cleaned up

For you cheapos out there, like me, the C library has several conversion
functions/APIs. They may not be quite as easy to use as APIs created for 
RPG
IV but they are portable to other iSeries no mater the version. The C
library is on every iSeries/AS-400 weather or not you have compiler, as 
long
as you have another ILE compiler (RPG, COBOL), you can use these 
functions.

Duane


-----Original Message-----
From: Bob cozzi [mailto:cozzi@xxxxxxxxx]
Sent: Saturday, August 16, 2003 11:18 AM
To: 'RPG programming on the AS400 / iSeries'
Subject: RE: Character to Numeric can it be cleaned up


You do NOT have to use MOVE to get a character value into a numeric field 
or
vis versa.
My RPG ToolKit (www.rpgiv.com/toolkit) uses an MI instruction to provide 
the
CharToNum() function that works at V4R4 and alter levels. There are also a
few other routines posted on the web to do the same thing (including one
that I wrote). IBM can't do everything at once (although I wish they would
<g>)) so you may either (A) have to create your own routines or (B) buy a
3rd party add-on library for RPG. So I don't see a problem here.


Bob Cozzi
Cozzi Consulting
www.rpgiv.com


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of Carel Teijgeler
Sent: Saturday, August 16, 2003 10:54 AM
To: rpg400-l@xxxxxxxxxxxx
Subject: Re: Character to Numeric can it be cleaned up

Hans, 

I know that.

But I think the work was half done, as those BIFs only worked with values
known at compile time (literals, constants) and not with values from 
fields
in database files.

So a statement like "Eval     MyNumber = %DEC(MyCharacterField)" will not
compile on V5R1 and older OS releases. This can be done at V5R2 (I hope). 
To
get a numeric value in a character field into a numeric field you have to
use MOVE. At V5R1 with /free at my disposal. (Joe Pluta's arguments are
still standing!)

So, I still consider those BIFs useless at those OS levels. I would have
been better, if IBM had not introduced them at that time.

Regards,
Carel Teijgeler

*********** REPLY SEPARATOR  ***********

On 16-8-03 at 9:37 Hans Boldt wrote:

>> Unfortunately, %DEC is not fully matured on V5R1 and only accept values
>> known at compilte time (read: hard coded values). This BIF is therefore
rather useless at this OS level.
>> 
>> And to think of it: this BIF (and its cousins) were developed to dump
MOVE in /free. (sic!)
>
>Sorry for the nitpicking, but %DEC, %INT, %UNS, etc. were added to the
language several releases before /FREE.



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



NOTICE: This electronic mail transmission may contain confidential
information and is intended only for the person(s) named.  Any use, 
copying
or disclosure by any other person is strictly prohibited. If you have
received this transmission in error, please notify the sender via e-mail.



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