[pft]if s(mpu,v5006^m,mpl) = 'ON' then[/pft]
[pft]else[/pft]
[pft]fi[/pft]
Presentación del resultado
[pft]if a(v1002) then[/pft]
Mostrar hasta referencias por página
[pft]else[/pft]
[pft]fi[/pft]
[pft]if nocc(v5005) > 2 then[/pft]
[pft]
/* procedimento que marca o texto a ser apresentado como label ^L para as opções de formato de apresentação */
proc('d5005',('a5005!',replace(v5005,s('^'v9022[1]),'^L'),'!')),
[/pft]
Formato de presentación
[pft]else[/pft]
[pft]v5005^p[/pft]
[pft]fi[/pft]