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