Executar procedure no xHarbour

[volp]

Olá pessoal,

Estou com problemas para executar uma procedure de MySql dentro do xHarbour. Fizemos uma procedure que retorna o valor "11" para fazer um teste, tentamos dar a "call procedure1" usando a lib sqlrdd, Segue abaixo o codigo fonte da função teste

Código: Selecionar todos

STATIC FUNCTION TESTE2
	LOCAL vRet:={}	

	alert("TESTE")
	sr_getconnection():exec("call procedure1 ;",,.T.,@vRet)
	sr_getconnection():commit()
	
	alert(vRet[1,1])
	return nil

No caso de um select o comando funciona perfeitamente, se baseamos nele mas da erro

Código: Selecionar todos

sr_getconnection():exec("select * minhatabela;",,.T.,@vRet)

Alguém da um help ? algum comando ou algo assim.
Att, Abraços