Re: Convert Binary to Decimal

Your data looks like a packed (decimal) field missing the sign. if it is realy that, you can convert it in a DS like this: (put it in the right column)

long 1 4 - 1 byte for each pair of hex digits.
field 1 3
sign 4 4
packed 1 4 0 p
do:
sign = x'0f'
field = %subst (....
data = packed / 10
______________________________________

Michael Ryan wrote:

Thanks Dennis...what are the rules for a longer hex field? Like x'199900' -
3 bytes of hex, and I need to convert it to 199900.

On Tue, Mar 30, 2010 at 10:53 AM, Dennis Lovelady <iseries@xxxxxxxxxxxx>wrote:

certain point contains a binary value...like x'08'. I need to convert
that
to decimal. I want a variable to have the value 8. I was playing around
with
a DS and overlaying an alpha and binary field, but it doesn't seem very
flexible. What's a non-SQL way of doing this in ILE. Thanks.

D MyDS DS
D charField 1
D unsigned 3U 0 Overlay(charField)
D signed 3I 0 Overlay(charField)

/Free
charField = x'08' ;
// At this point, signed = 8 and unsigned = 8
charField = x'FF' ;
// At this poinnt, signed = -1 and unsigned = 255.

Dennis Lovelady
http://www.linkedin.com/in/dennislovelady
--
"I would give my right arm to be ambidextrous."
-- Yogi Berra

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