function %%SignifTag signif
type integer %%SignifTag
type real signif
*
if signif<.001
   compute %%SignifTag=%choice("THREE")
else
if signif<.01
   compute %%SignifTag=%choice("TWO")
else
if signif<.05
   compute %%SignifTag=%choice("ONE")
else
   compute %%SignifTag=%choice("NONE")
end
*
report(action=define)
report(atrow=1,atcol=1) 13.33
report(atrow=1,atcol=1,action=format,special=%%signiftag(.03))
report(atrow=2,atcol=1) 11.33
report(atrow=2,atcol=1,action=format,special=%%signiftag(.10)) 11.33
report(atrow=3,atcol=1) 17.33
report(atrow=3,atcol=1,action=format,special=%%signiftag(.0001)) 17.33
report(atrow=4,atcol=1) 19.33
report(atrow=4,atcol=1,action=format,special=%%signiftag(.002)) 19.33
report(action=format,align=decimal,picture="*.###")
report(action=show)