Rational Developer for System z
Enterprise PL/I for z/OS, Version 3.8, Language Reference Manual

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 */

Terms of use | Feedback

This information center is powered by Eclipse technology. (http://www.eclipse.org)