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

Example

  dcl Result fixed bin;
  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(16),     /* ''X */
        2 * pointer init(null()),
        2 * char(4) init(''),
        2 * char(0);

  call plimove(addr(Str1), addr(Template), stg(Str1));
  Result = compare(addr(Str1), addr(Template), stg(Str1));   /*  0 */
  D = 'DSA ';
  Result = compare(addr(Str1), addr(Template), stg(Str1));   /*  1 */
  B = 15;      /* '00000F00'X */
  D = 'DSA ';
  Result = compare(addr(Str1), addr(Template), stg(Str1));   /* -1 */

Terms of use | Feedback

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