Example 1
dcl Sweet char(5) init('Sweet');
dcl Sixteen fixed bin(31) init(16) littleendian;
dcl XSweet char(size(Sweet)*2+(size(Sweet)-1)/4);
dcl XSixteen char(size(Sixteen)*2+(size(Sixteen)-1)/4);
XSweet = hex(Sweet,'-');
/* '53776565-74' */
XSweet = heximage(addr(Sweet),length(Sweet),'-');
/* '53776565-74' */
XSixteen = hex(Sixteen,'-');
/* '00000010' - bytes reversed */
XSixteen = heximage(addr(Sixteen),stg(Sixteen),'-');
/* '10000000' - bytes NOT reversed */
|
This information center is powered by Eclipse technology. (http://www.eclipse.org)