Definir que as funções JSON separem as linhas com \r\n.
SET LINEBREK [ ON | OFF ]
Quando ON indica que as partes da cadeia JSON são separadas por \r\n" para melhor leitura.
prog
func fj(s)
dynamic vol
struct {ret(s)} stsai
private sai{stsai}
sai->ret=fj()
? jsons(sai) && 10 linhas
set linebreak on
@11,0
sai->ret=fj()
? jsons(sai) && 12 linhas
quit
func fj(s)
struct {logr(y), loca(y), nume(n)} stend
struct {numt(y)} sttel
struct {nome(y), ende(s), telv(v)} dados
private endi{stend}
endi->logr="Rua"
endi->loca="da Poesia"
endi->nume=84
decl tele[]{sttel}
tele[1]->numt="2123-4567"
tele[2]->numt="92222-3333"
private volt{dados}
volt->nome="Carlos"
volt->ende=jsons(endi)
volt->telv=jsonv(tele)
dynamic ret
ret=jsons(volt)
return ret