Re: Split hex half-bytes to character

On 7/8/24 5:09 PM, Dan Bale wrote:

I'm positive I'm using the wrong terminology in trying to explain what I am trying to do, and that is likely the reason why google was not my friend.

I'm using SQL to calculate an MD5 checksum, and it returns a 16-byte hex value. I would like to convert that into a 32-byte character value that "splits" the hex half-bytes to characters. E.g.:

As I recall, it's not difficult to do in MI, but I don't have any examples handy.

In ILE RPG, one crude method would be to do something like this for each byte:

with HEXDIGITS defined CONST('0123456789ABCDEF')

EVAL %SUBST(CONTHEX:1:1) =
%SUBST(HEXDIGITS:%DIV(INTNUM:16) + 1: 1)
EVAL %SUBST(CONTHEX:2:1) =
%SUBST(HEXDIGITS:%REM(INTNUM:16) + 1: 1)

--
JHHL