This should get you pointed in the right direction...
data foo;
input day colorvar $ 3-3 value;
datalines;
1 A 4
1 B 5
2 A 7
2 B 8
3 A 1
3 B 2
;
run;
pattern1 v=s c=green;
pattern2 v=s c=red;
axis1 label=none order=(0 to 10 by 2) minor=none offset=(0,0);
axis2 label=('Day') offset=(3,3);
axis3 label=none value=none;
legend1 label=(position=top 'Legend:') position=(right middle)
across=1 shape=bar(.15in,.15in) offset=(-5,0);
title1 "Here is your graph...";
proc gchart data=foo;
vbar colorvar / discrete type=sum sumvar=value
group=day subgroup=colorvar
space=0 raxis=axis1 gaxis=axis2 maxis=axis3 legend=legend1
autoref cref=graydd clipref
;
run;