I’m a little confused. 70 would be X’46’. Do you want to convert the ASCII character to the EBCDIC equivalent in hex?
If so, look in the NATURAL Library SYSEXT. There is a subprogram that will convert ASCII characters to EBCDIC characters. Sorry, but I don’t remember which USR module it is and I don’t have access to NATURAL today.
When questions like this are asked, such as how to convert ASCII decimal values to hexadecimal or vice versa on a Natural for Mainframes (implying EBCDIC environment) forum, it would be helpful to understand the business reason driving the requirements to do so. So many integration methods take care of ASCII->EBCDIC and EBCDIC->ASCII conversion, and it is extremely rare that one would ever have to write Natural code to manipulate or convert decimal or hexadecimal values, so understanding the actual need behind the question might actually lead to a more holistic answer than the simple answer to the question provides.
There are cases in which this would be the proper approach, and as Steve mentions, there was really easy ways to render data in different formats. I’m just concerned that it may not be the best approach for the underlying problem.