RE: itoa Function examples

["Bob Cozzi" <cozzi@xxxxxxxxx>]

Gosh that's an easy one:
First, here's the prototype:
.....DName+++++++++++EUDS.......Length+TDc.Functions++++++++++++++++++++
     D  ltoa           PR              *   ExtProc('__ltoa')
     D  nUINT                        10I 0 VALUE
     D  szRtnBuffer                    *   Value
     D  nRadix                       10I 0 Value


Note that there are two underscore characters in front of the ltoa name in
the ExtProc keyword.
I also used the long version since it works with 8 byte ints instead of just
the 4-byte ints of itoa.
To use it to convert to 1010101100 etc.

     D myValue         S             30A
     D SomeNumber      S              7P 0 Inz(3741)
     C                   callp     ltoa(someNumber : %addr(myValue) : 2)

You might have to strip off a trailing null terminated string X'00' but I
don't remember off hand if that's necessary.

Hope this helps.
Bob Cozzi


-----Original Message-----
From: rpg400-l-bounces+cozzi=rpgiv.com@xxxxxxxxxxxx
[mailto:rpg400-l-bounces+cozzi=rpgiv.com@xxxxxxxxxxxx] On Behalf Of Malchow,
Grizzly
Sent: Wednesday, February 11, 2004 2:57 PM
To: rpg400-l@xxxxxxxxxxxx
Subject: itoa Function examples

I'm trying to convert a numeric value to a binary value and I stress the
word trying.  I'm using the itoa function to try this. First can anyone
tell me if this is possible? Second can anyone tell me where I could
find some good information on the itoa function as it relates to RPGIV?
Finally does anyone have any suggestion, tips, secrets, or anything in
regards to converting numeric values to binary values?

 

Thanks  

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