%let name=bar2;
filename odsout '.';

data a;
input CATEGORY SERIES $ 3-11 AMOUNT;
cards;
1 Series A  5
2 Series A  7.8
1 Series B  9.5
2 Series B  5.9
;
run;

data a; set a;
length htmlvar $500;
htmlvar='title='||quote( 
 'Category: '|| trim(left(category)) ||'0D'x||
 'Series: '|| trim(left(series)) ||'0D'x||
 'Amount: '|| trim(left(amount))  
)
||' '||
 'href="bar3.htm"';
run;

run;

 GOPTIONS DEVICE=gif;
 
 ODS LISTING CLOSE;
 ODS HTML path=odsout body="&name..htm" (title="Clustered Bar (3D)") style=minimal;
 goptions noborder;

goptions gunit=pct htitle=6 ftitle="albany amt/bold" htext=4.25 ftext="albany amt/bold";

axis1 label=none value=none;  
axis2 label=('AMOUNT') order=(0 to 10 by 2) minor=(number=1) offset=(0,0);
axis3 label=('CATEGORY') offset=(5,5);

pattern1 v=solid color=cx9999ff;  /* light blue */
pattern2 v=solid color=cx993366;  /* purplish */
pattern3 v=solid color=cxffffcc;  /* pale yellow */

title "Clustered Bar";
title2 "With 3D Visual Effect";
proc gchart data=a; 
hbar3d series / discrete 
 nostats
 cframe=white
 type=sum sumvar=amount 
 group=category
 space=0
 gspace=3
 subgroup=series /* this controls the coloring */
 maxis=axis1 /* midpoint axis */
 raxis=axis2 /* response/numeric axis */
 gaxis=axis3 /* group axis */
 autoref clipref cref=graycc
 nolegend
 coutline=black 
 html=htmlvar
 des="" name="&name" ;  
run;


 quit;
 ODS HTML CLOSE;
 ODS LISTING;