"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

This thread ...

Follow-Ups:
Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2020 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].