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

  X = 'a  b  ';         /* Two blanks in each space */
  Y = ' ';              /* One blank                */
  N = length(X);        /* N = 6                 */
  I = verifyr(X,Y,N);   /* I = 4                 */

  do while (I > 0);
    display ( 'Nonblank at position ' || trim(I) );
    N = I - 1;
    I = verifyr(X,Y,N);
  end;

DO ループの最初のパススルーのあとで、N=3 および VERIFYR(X,Y,N) は 1 を戻します。2 回目のパスのあとで、N=0 で VERIFYR(X,Y,N) は 0 を戻し、ループが終了します。 別の例については、SEARCHRを参照してください。


Terms of use | Feedback

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