Carpenter's Complete Guide to the SAS REPORT Procedure

Appendix 1: Exercise Solutions 407

define percent/ computed 'Product*Percentage'

format=percent10.2;

break after year/ summarize suppress skip;

compute before year;

total = profit.sum;

endcomp;

compute percent;

percent = profit.sum/total;

endcomp;

compute yeartxt / char length=7;

if _break_ = ' ' and year ne . then yeartxt = put(year,4.);

else if _break_ = ' ' and year = . then yeartxt = ' ';

else if _break_='_RBREAK_' then yeartxt = 'Overall';

else yeartxt = 'Total';

endcomp;

compute after;

line ' ';

line @5 'Total Profits in US dollars was ' profit.sum dollar14.2;

endcomp;

run;

The last few lines of the report show ...