Pesquisa de conjunto de valores em uma tabela

Código:

Def var par as char initial "0,10,20,30,40,50".
Def var i     as int.

Def Temp-table tmp-numero
   Fields numeros as int.

Do i = 1 to 100:
   Create tmp-numeros.
   Assign tmp-numeros.numeros = i.
End.

For each tmp-numeros where lookup(String(tmp-numeros.numeros),par > 0:

   disp tmp-numeros.numeros lookup(string(tmp-numeros.numeros),par).

END.