%let name=sugi31;

/*
I decided not to use the SUGI 31 floorplan map in my static examples, 
but rather, I did a sas/intrnet interface ... it depends on some of
the sugi31 files in this folder, so I'm leaving them here...
*/

libname here '.';

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

%let station=Tech Support;

goptions cback=white;
goptions ftitle="albany amt/bold" ftext="albany amt" htitle=5pct htext=3;
goptions xpixels=594 ypixels=924;


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

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

 quit;
 ODS HTML CLOSE;
 ODS LISTING;