>Rand(-1) >Create Cursor test1 (Id i) >Create Cursor test2 (Id i, f1 c(1)) > >For ix=1 To 10 > Insert Into test1 Values (m.ix) > For jx=1 To 5 > Insert Into test2 Values (m.ix,Chr(Asc('A')+Rand()*26)) > Endfor >Endfor > >lnCalled = 0 >Select * from test1 ; > where id in (select id from test2 where f1 == "H" and HowManyTimes()) >? m.lnCalled > >Function HowManyTimes >lnCalled = m.lnCalled + 1 >Cetin