data work.disper7b;
        set zone7b.pollen;
        length BarDrill $ 40;
        if pollentype='GRASS' then bardrill='HREF="grass7b.html"';
        if pollentype='WEED' then bardrill='HREF="weed7b.html"';
        if pollentype='TREE' then bardrill='HREF="tree7b.html"';
     run;

     ods listing close;
     ods html path='c:\data\pollen\html' body='sources.html';
     goptions device=gif xpixels=360 ypixels=240;
     title 'Pollen Counts by Type';
     proc gchart data=work.disper7b;
        hbar month / sumvar=count group=pollentype
             html=bardrill discrete;
     run;

     ods html body='typetables.html';
     title 'Pollen Sources by Month';
     proc tabulate data=work.disper7b;
        class month pollentype;
        var count;
        table month*pollentype, sum*count;
     run;

     ods html 
     title 'Grass Pollen by Week';
     proc tabulate data=work.disper7b;
        class week;
        var count;
        table week, sum*count;
        where pollentype='GRASS';
     run;

     quit;
     ods html close;
     ods listing;