libname data 'c:/home/';

FILENAME ODSOUT 'c:/home/';

PROC FORMAT;
  VALUE $TEAM (MAX=32)
  'ANAHEIM ANGELS' = 'ANA'
  'OAKLAND ATHLETICS' = 'OAK'
  'SEATTLE MARINERS' = 'SEA'
  'TEXAS RANGERS' = 'TXS'
  'BALTIMORE ORIOLES' ='BLT'
  'BOSTON RED SOX'   ='BST'
  'NEW YORK YANKEES'  ='NYY'
  'TAMPA BAY DEVIL RAYS'= 'TPB'
  'TORONTO BLUE JAYS'   = 'TOR'
  'CHICAGO WHITE SOX'  ='CHI'
  'CLEVELAND INDIANS' = 'CLV'
  'DETROIT TIGERS'   = 'DET'
  'KANSAS CITY ROYALS' = 'KSC'
  'MINNESOTA TWINS' = 'MIN'
  'ATLANTA BRAVES'  = 'ATL'
  'FLORIDA MARLINS'  = 'FLM'
  'MONTREAL EXPOS' = 'MON'
  'NEW YORK METS'  = 'NYM'
  'PHILADELPHIA PHILLIES' ='PHI'
  'CHICAGO CUBS'  ='CHC'
  'CINCINNATI REDS'  = 'CIN'
  'HOUSTON ASTROS' = 'HOU'
  'MILWAUKEE BREWERS' = 'MLW'
  'PITTSBURGH PIRATES' = 'PIT'
  'ST LOUIS CARDINALS'  = 'STL'
  'ARIZONA DIAMONDBACKS' = 'AZD'
  'COLORADO ROCKIES' =  'COL'
  'LOS ANGELES DODGERS' ='LAD'
  'SAN DIEGO PADRES' ='SDP'
  'SAN FRANCISCO GIANTS' ='SFN'
;
/* CREATE A VARIABLE TO BUILD DRILL DOWN */
DATA BASEBALL;
  SET DATA.BASEBALL;
  LENGTH DIVISIONDRILL $40;
  IF LEAGUE = 'AMERICAN' AND DIVISION EQ 'WEST' THEN
     DIVISIONDRILL = 'HREF="divisionALwest_body.html"';
  ELSE IF LEAGUE = 'AMERICAN' AND DIVISION EQ 'EAST' THEN
     DIVISIONDRILL = 'HREF="divisionALeast_body.html"';
  ELSE IF LEAGUE = 'NATIONAL' AND DIVISION EQ 'EAST' THEN
     DIVISIONDRILL = 'HREF="divisionNLeast_body.html"';
  ELSE IF LEAGUE = 'NATIONAL' AND DIVISION EQ 'WEST' THEN
     DIVISIONDRILL = 'HREF="divisionNLwest_body.html"';
  ELSE IF LEAGUE = 'AMERICAN' AND DIVISION EQ 'CENTRAL' THEN
     DIVISIONDRILL = 'HREF="divisionALcentral_body.html"';
  ELSE IF LEAGUE = 'NATIONAL' AND DIVISION EQ 'CENTRAL' THEN
     DIVISIONDRILL = 'HREF="divisionNLcentral_body.html"';

RUN;
ODS LISTING CLOSE;
GOPTIONS DEVICE=HTML NOBORDER;

ODS HTML BODY='baseball_body.html'
              (TITLE="ODS Drill-Down Chart")
         FRAME='baseball_frame.html'
         CONTENTS='baseball_contents.html'
         PATH=ODSOUT
         GTITLE GFOOTNOTE STYLE=STATDOC GPATH = 'c:\home\'
         PARAMETERS=("ddlevel1"
                     "disabledrilldown" = "true");

TITLE1 'Major League Baseball Home Run Statistics';
TITLE2 '2003 Season';

PROC GCHART DATA=BASEBALL;
  VBAR3D DIVISION / DISCRETE
         SUMVAR=NO_HOME GROUP=LEAGUE SUBGROUP=DIVISION  SPACE=0 WIDTH=5 GSPACE=5
         COUTLINE=BLACK CFRAME=PINK HTML=divisiondrill
         HTML_LEGEND=divisiondrill NAME='MASTER_GRAPH'
         DES='Home Run Statistics';
RUN;

ODS HTML BODY='divisionALwest_body.html' PATH=odsout;
TITLE1 'American West';
FORMAT TEAM $team.;
WHERE LEAGUE='AMERICAN' and DIVISION='WEST';
VBAR3D TEAM / SUMVAR=NO_HOME TYPE=SUM GROUP=DIVISION SUBGROUP = TEAM AUTOREF SPACE=3 SHAPE=PRISM PATTERNiD=SUBGROUP
COUTLINE=BLACK CFRAME=PINK NAME='ALWGRAPH' des = 'American League West 2003 Home Runs';
RUN;

ODS HTML BODY='divisionALeast_body.html' PATH=odsout;
TITLE1 'American East';
FORMAT TEAM $TEAM.;
WHERE LEAGUE='AMERICAN' and DIVISION='EAST';
VBAR3D TEAM / SUMVAR=NO_HOME TYPE=SUM GROUP=DIVISION SUBGROUP = TEAM AUTOREF SPACE=3 SHAPE=PRISM PATTERNiD=SUBGROUP
COUTLINE=BLACK CFRAME=PINK NAME='ALEGRAPH' des = 'American League East 2003 Home Runs';
RUN;

ODS HTML BODY='divisionALcentral_body.html' PATH=odsout;
TITLE1 'American Central';
FORMAT TEAM $TEAM.;
WHERE LEAGUE='AMERICAN' and DIVISION='CENTRAL';
VBAR3D TEAM / SUMVAR=NO_HOME TYPE=SUM GROUP=DIVISION SUBGROUP = TEAM AUTOREF SPACE=3 SHAPE=PRISM PATTERNiD=SUBGROUP
COUTLINE=BLACK CFRAME=PINK NAME='ALCGRAPH' des = 'American League Central 2003 Home Runs';
RUN;

ODS HTML BODY='divisionNLeast_body.html' PATH=odsout;
TITLE1 'National East';
FORMAT TEAM $TEAM.;
WHERE LEAGUE='NATIONAL' and DIVISION='EAST';
VBAR3D TEAM / SUMVAR=NO_HOME TYPE=SUM GROUP=DIVISION SUBGROUP = TEAM AUTOREF SPACE=3 SHAPE=PRISM PATTERNiD=SUBGROUP
COUTLINE=BLACK CFRAME=PINK NAME='NLEGRAPH' des = 'National League East 2003 Home Runs';
RUN;

ODS HTML BODY='divisionNLwest_body.html' PATH=odsout;
TITLE1 'National West';
FORMAT TEAM $TEAM.;
WHERE LEAGUE='NATIONAL' and DIVISION='WEST';
VBAR3D TEAM / SUMVAR=NO_HOME TYPE=SUM GROUP=DIVISION SUBGROUP = TEAM AUTOREF SPACE=3 SHAPE=PRISM PATTERNiD=SUBGROUP
COUTLINE=BLACK CFRAME=PINK NAME='NLWGRAPH' des = 'National League West 2003 Home Runs';
RUN;

ODS HTML BODY='divisionNLcentral_body.html' PATH=odsout;
TITLE1 'National Central';
FORMAT TEAM $TEAM.;
WHERE LEAGUE='NATIONAL' and DIVISION='CENTRAL';
VBAR3D TEAM / SUMVAR=NO_HOME TYPE=SUM GROUP=DIVISION SUBGROUP = TEAM AUTOREF SPACE=3 SHAPE=PRISM PATTERNiD=SUBGROUP
COUTLINE=BLACK CFRAME=PINK NAME='NLCGRAPH' des = 'National League Central 2003 Home Runs';
RUN;
QUIT;

ODS HTML CLOSE;
ODS LISTING;