Essa SP retorna uma lista (cursor)
A função retorna uma HashTable
oConexao := ADO():New()
cPLSQL := "asaprev.Busca"
aVarS := { { "p_sCodigo", '20735', "V", "I" }, ;
{ "p_sErro", Space(100), "V", "O" } ;
}
aVarS := {}
aNmCampo := { "CODIGO", "NOME", "ENDERECO" }
aDados := {}
IF oConexao:AdoPLSQL( @oRecordSet, cPLSQL, @aVarS, "P", @cErro, .T., @aDados, aNmCampo ) != 0
ENDIF