data nflplayers;
FILENAME webpage URL 'http://www.stat.sc.edu/~hitchcock/nfl_season_data.txt';
infile webpage DLM=',' DSD;
INPUT idcode $ lastname :$20. firstname :$20. year team $ position $ G GS COMP ATT 
PassYD PassTD INT rush rushYD rushTD rec recYD recTD;
run;

/* Just rushing yards */
/* Get rid of most other variables */

data rushing;
set nflplayers (DROP=idcode G GS COMP ATT PassYD PassTD INT rush rushTD rec recYD recTD);
run;

/* Defining a macro to pick out and print the top ten rushers */

%MACRO toptenrush;
 PROC SORT DATA = myrushing OUT=rushingsorted;
 BY descending rushYD;
 PROC PRINT data=rushingsorted (OBS=10);
 VAR firstname lastname team year rushYD;
 TITLE 'Top Ten Rushers';
 RUN;
%MEND toptenrush;

/* Getting the top ten rushers from 1994 */

data myrushing;
set rushing;
if year=1994;
run;

%toptenrush

/* Getting the top ten rushers from the decade of the 1990s */

data myrushing;
set rushing;
if year >=1990 and year <=1999;
run;

%toptenrush


/* Getting the top ten rushers from the Kansas City Chiefs team */

data myrushing;
set rushing;
if team='kan';
run;

%toptenrush