Re: Char to hex

"RPG400-L" <rpg400-l-bounces@xxxxxxxxxxxx> wrote on 06/24/2016 12:07:38
PM:

I have a non-blank char field that shows up as blanks in an e-mail.
I'm thinking the field could contain unprintable characters, so I'd
like to include the hex value as well in the e-mail. How do I go
about getting the hex value?

I think this will work for calling the C routines.

dcl-pr c2x extproc('cvthc');
c2x_Hex pointer value;
c2x_Char pointer value;
c2x_CLen int(10:0) value;
end-pr;

dcl-pr x2c extproc('cvtch');
x2c_Char pointer value;
x2c_Hex pointer value;
x2c_CLen int(10:0) value;
end-pr;

dcl-s cString varchar(256);
dcl-s xString char(512);

callp c2x(%addr(xString):%addr(cString:*DATA):%len(cString));
callp c2x(%addr(cString:*DATA):%addr(xString):%len(cString));


Sincerely,

Dave Clark