%let name=sugimap;

libname here '.';

 filename odsout '.';
 GOPTIONS DEVICE=png;
 ODS LISTING CLOSE;
 ODS HTML path=odsout body="&name..htm" (title="SUGI 30 Demo Room") style=minimal;

%let station=Tech Support;

goptions cback=white;
goptions ftitle="arial/bo" ftext="arial" gunit=pct htitle=3.5 htext=2.25;
goptions xpixels=594 ypixels=924;


proc sql noprint;
create table interest as select *
 from here.sugi_stations where station eq "&station";
quit; run;

title link='http://sww.sas.com/sww-bin/broker9?_service=appdev9&_program=ctntest.sugimap_driver.sas'
  "SUGI 30 Demo Station Locator";
pattern1 v=s c=white;
proc gmap data=here.sugi_map map=here.sugi_map anno=interest;
 id idnum;
 choro idnum / nolegend anno=here.sugi_pic coutline=white 
 des="" name="&name";
run;

 quit;
 ODS HTML CLOSE;
 ODS LISTING;