Re: Converting Decimal to Hex

Nope.

cvthc converts the raw bits into a hexadecimal string.

At that level, there's no difference between 4 bytes used to store a
character value and 4 bytes used to store an integer.

You want the hexadecimal value of an integer, so pass the integer.

Your prototype for cvthc can do one of two things:

//Useable for any type
d ConvertToHexString...
d pr extproc('cvthc')
d hexString * value
d bytes * value
d nbrBytes 10i 0 value

In which case you'd have
d string8 s 8a
d intValue s 10i 0
/free
ConvertToHexSting = (%addr(string8):%addr(intValue):%size(string8));
/end-free

or something like so:
d ConvertInt4ToHexString...
d pr extproc('cvthc')
d hexString 8a
d int4 10i 0 const
d nbrBytes 10i 0 value

d ConvertInt1ToHexString...
d pr extproc('cvthc')
d hexString 2a
d int1 3i 0 const
d nbrBytes 10i 0 value


d ConvertCharToHexString...
d pr extproc('cvthc')
d hexString 2a
d char 1a const
d nbrBytes 10i 0 value

// others?

The second option is easier to use, but you need to prototype cvthc
multiple ways.

HTH,
Charles





On Tue, Jun 16, 2009 at 9:09 AM, Michael Ryan<michaelrtr@xxxxxxxxx> wrote:

I thought it had to be character!

On Tue, Jun 16, 2009 at 8:35 AM, Charles Wilt <charles.wilt@xxxxxxxxx
wrote:

Use cvthc on the actual integer field.

Charles




On Tue, Jun 16, 2009 at 8:16 AM, Michael Ryan <michaelrtr@xxxxxxxxx>
wrote:

Hmmm...I'm confused. I have a packed number (or zoned), and I move it

to

an

integer field (5U 0). I then take the %Char of the integer to get it

into

character format. Then I use cvthc to get the hex. However, when I

start

with the number 140, I get F1F4F0. I want 8C. If I use a DS overlay, I

get

what I want, but that doesn't seem to me to be the 'right' way.

D SomeDS ds qualified
D SomeChar 2A
D SomeInt 5U 0 overlay(SomeChar:1)

On Mon, Jun 15, 2009 at 7:00 PM, David Gibbs <david@xxxxxxxxxxxx>

wrote:

Michael Ryan wrote:

I've checked the archives and FAQ, but wondered if someone has a

more

elegant solution. I need to convert an unknown decimal number

(probably

can

limit the number of digits though) to hex. Is the overlay solution

the

best?

cvthc?

I think cvthc is the most straight forward way.

david

--
IBM i on Power -- For when you can't afford to be out of business.
--
This is the RPG programming on the IBM i / System i (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 IBM i / System i (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 IBM i / System i (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 IBM i / System i (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 IBM i / System i (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.