title; options nodate pageno=1 linesize=80 pagesize=60 fmtsearch=(proclib); proc chart data=profit; block sector / sumvar=profit; format sector $sctrfmt.; format profit dollar7.2; run;