Re: itoa Function examples

[Simon Coulter <shc@xxxxxxxxxxxxxxxxx>]

On Thursday, February 12, 2004, at 07:57  AM, Malchow, Grizzly wrote:

> 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?

Check the archives. I am sure you will find appropriate prototypes and 
examples.

> Finally does anyone have any suggestion, tips, secrets, or anything in
> regards to converting numeric values to binary values?

There is no secret, just assign it!

D binVal     S                  10I  0
D packedVal  S                  10   0   INZ(1234)
D zonedVal   S                  10S  0   INZ(9876)

C               EVAL binVal = packedVal
C               EVAL binVal = zonedVal
C               EVAL binVal = -1234
C               EVAL binVal = %SIZE(packedVal)
C               EVAL binVal = %ELEM(some-array)
C               EVAL binVal = %DECPOS(packedVal)

etc. etc. etc.

You only need atoi() and its ilk when converting a character field to a 
numeric (i.e., trying to extract a usable number from character data).

Regards,
Simon Coulter.
--------------------------------------------------------------------
   FlyByNight Software         AS/400 Technical Specialists

   http://www.flybynight.com.au/
   Phone: +61 3 9419 0175   Mobile: +61 0411 091 400        /"\
   Fax:   +61 3 9419 0175                                   \ /
                                                             X
                 ASCII Ribbon campaign against HTML E-Mail  / \
--------------------------------------------------------------------