Example 2
dcl X fixed bin(15) littleendian;
dcl Y fixed bin(15) bigendian;
X = 258; /* stored as '0201'B4 */
Y = 258; /* stored as '0102'B4 */
display (hex(X)); /* displays 0102 */
display (hex(Y)); /* displays 0102 */
display (heximage( addr(X), stg(X) )); /* displays 0201 */
display (heximage( addr(Y), stg(Y) )); /* displays 0102 */
Note:
This function does not return an exact image of x in
storage. If an exact image is required, use the HEXIMAGE built-in
function.
|
This information center is powered by Eclipse technology. (http://www.eclipse.org)