Oi Edson,

Você pode conseguir uma redução do tamanho do XML resultante, gerando um documento baseado em atributos, ao invés de baseado em elementos. A linha abaixo adapta a chamada à função CURSORTOXML() do seu exemplo para gerar um XML baseado em atributos. Somene é necessário alterar o valor do terceiro parâmetro de 1 para 2.

CursorToXML( Alias(), "cRetorno", 2, 1+8, 0, "1" )

Um abraço!