1 Voce pode chamar o FORM de pesquisa assim
LOCAL lc_cod
DO FORM PESQUISA TO lc_cod

2 Então faça o retorno no UNLOAD do form de pesquisa
* VAMOS SUPOR QUE O SEU FORM TENHA UM CURSOR
RETURN T_CURSOR.CODIGO

a partir dai voce usa a variavel lc_cod que devera conter o resultado

Teste e veja se funciona!

Falou!

Roverson