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

  dcl cb(128*1024) char(1);
  dcl wb(128*1024) widechar(1);
  dcl pos fixed bin(31);

  /* 128K bytes searched from the left for a numeric */
  pos = memsearch( addr(cb), stg(cb), '012345789' );

  /* 256K bytes searched from the left for a widechar '0' or '1' */
  pos = memsearch( addr(wb), stg(wb), '0030_0031'wx );

Terms of use | Feedback

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