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を参照してください。