proc sort data=sashelp.shoes out=have;
by Region Product Subsidiary;
run;
data have;
set have;
if mod(_n_,11)=1 then group+1;
run;
proc report data=have nowd;
column group ('region' region ) ('Product' Product) ('Subsidiary' Subsidiary);
define group/group noprint;
define Region / '' order=data;
define Product / '' order=data;
define Subsidiary / '' order=data;
compute before group/style={just=l fontweight=bold};
temp=cats('report',group);
line temp $20.;
endcomp;
run;
