Rational Developer for System z
Enterprise PL/I for z/OS, Version 3.8, 言語解説書

  dcl 1 Str1,
        2 B  fixed bin(31),
        2 C  pointer,
        2 * union,
          3 D  char(4),
          3 E  fixed bin(31),
          3 *,
            4 * char(3),
            4 F fixed bin(8) unsigned,
        2 * char(0);
  dcl 1 Template nonasgn static,
        2 * fixed bin(31) init(200),
        2 * pointer init(null()),
        2 * char(4) init(''),
        2 * char(0);

  call plimove(addr(Str1), addr(Template), stg(Str1));

Terms of use | Feedback

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