Example
dcl 1 Str1 nonasgn static,
2 * fixed bin(15) littleendian init(16), /* '1000'X */
2 * char init('33'x),
2 * bit init('1'b),
2 Ba(4) bit init('1'b, '0'b, '1'b, '0'b),
2 B3 bit(3) init('111'b),
2 * char(0);
dcl Bit_Str1 bit(size(Str1)*8);
dcl Bit_Ba bit(dim(Ba)*length(Ba(1)));
dcl Bit_B3 bit(length(B3));
Bit_Ba = unspec(Ba); /* result is scalar '1010'B not an array */
Bit_B3 = unspec(B3); /* '111'B */
Bit_Str1 = unspec(Str1); /* '100033D7'B4 or
'100033'B4 || '11010111'B */
|
This information center is powered by Eclipse technology. (http://www.eclipse.org)