data one;
   input date date7. value;
   cards;
01jan93 5
01feb93 3
01mar93 6
01apr93 2
01may93 4
01jun93 7
;

proc gchart data=one;
   vbar date / sumvar=value discrete;
   format date date7.;
   pattern1 v=solid c=black;
run;
quit;