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

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

Terms of use | Feedback

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