Thanks Antonio.. your solution is best. I can't to migrate for Harbour now because I use SQLRDD. I use this code for this solution...
oScript := __hrbLoad( cArquivo )
__hrbDo( oScript,aPar[1],aPar[2],aPar[3],aPar[4],aPar[5],aPar[6],aPar[7],aPar[8],aPar[9] )