/*
GOPTIONS
reset=global border ftext=swissb
VSIZE=4IN HSIZE=6.5IN ;
*/
LIBNAME c 'c:\consult\ynp\figs';

FILENAME grafout 'c:\consult\ynp\figs\b00501s.eps';

GOPTIONS DEVICE=psepsf GSFNAME=grafout GSFMODE=replace
         RESET=global BORDER FTEXT=swissb
         HSIZE=5IN VSIZE=3.1IN; 

*** Use NOLEGEND with VSIZE=2.8, include legend with VSIZE=3.1IN;

PATTERN1 color=black value=solid;
PATTERN2 color=black value=r1;
PATTERN3 color=white value=empty;

AXIS1 label = ('hab'  justify=r);
AXIS2 label = ('hact' justify=r);
AXIS3 label =   none  order=(0 to 100 by 10);

PROC GCHART DATA=in;

     VBAR hact / DISCRETE SUMVAR=p  
                 SUBGROUP=wresp 
                 GROUP=hab
                 COUTLINE=black
                 MAXIS=AXIS2 RAXIS=AXIS3 GAXIS=AXIS1 
                 NOFRAME ; 
                 * NOLEGEND;

  TITLE  H=.4CM F=SWISSB '(A) Start of Season';
* TITLE  H=.4CM F=SWISSB '(B) January 31';
* TITLE  H=.4CM F=SWISSB '(C) February 28';

RUN;