/* Conditional Logic with Macros*/

data nflplayers;
FILENAME webpage URL 'http://people.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;

%MACRO historicalstats(yearsago=,stat=,cutoff=);

%IF &SYSDAY=Monday %THEN %DO;
DATA superior; set nflplayers;
IF &stat GE &cutoff;
PROC PRINT DATA=superior;
WHERE year = YEAR(TODAY())-&yearsago;
VAR firstname lastname team year &stat;
TITLE "Values of &stat higher than &cutoff";
RUN;
%END;

%IF &SYSDAY=Tuesday %THEN %DO;
PROC SORT DATA=nflplayers;
BY team;
PROC MEANS DATA=nflplayers SUM;
WHERE year = YEAR(TODAY())-&yearsago;
BY team;
VAR COMP ATT PassYD PassTD INT rush rushYD rushTD rec recYD recTD;
TITLE "Statistical Totals for NFL teams from &yearsago years ago";
RUN;
%END;

%MEND historicalstats;

%historicalstats(yearsago=20, stat=PassYD, cutoff=2800)