Analisando superficialmente o código, se esta *STATIC FUNCTION* `linhaJson()` é chamada muitas vezes, de dentro do mesmo contexto de execução, REMOVA as linhas : `ZX1->(dbGoTop()) e ZX1->(dbCloseArea())`. Você não precisa abrir e fechar o alias `ZX1` a cada *loop*. Isso já vai te dar um com ganho de desempenho, de olhos vendados. E também não precisa posicionar no primeiro registro da ordem para fazer um `DBSeek()`. Agora, para avaliar o tempo gasto por esta função, e pelas chamadas vindas de dentro dela, a melhor alternativa é usar o *Profiler* do **AdvPL**. Por hora, veja na TDN no *link* [Como executar um Profiler][1]. Embora dessa forma o *log* gerado vai gerar informações sobre a rotina inteira, a análise do `console.log` do Protheus Server gerado após a execução da rotina permite identificar quais as funções que foram chamadas de que ponto do fonte, inclusive todas as chamadas da função `LinhaJson()`, e todas as chamadas de funções chamadas de dentro dela. [1]: http://tdn.totvs.com/display/public/PROT/LogProfiler+-+Como+executar