libname mypc "C:\Documents and Settings\Owner\My Documents\Research\";


%let wrds = wrds-cloud.wharton.upenn.edu 4016;
signon wrds username=_prompt_; rsubmit; 

/*Get data from CRSP monthly*/
Data crsp1; 
	set crsp.msf; 
	keep permno date ret prc;
	where date >'31dec2000'd;
run;

/*downloads crsp1 from wrds unix server to my PC*/
Proc download data=crsp1 out=mypc.crsp1; run;

/*End wrds submission*/
endrsubmit;


/*Count average returns per month*/
Proc sort data=mypc.crsp1; by date permno; run;
Proc means data=mypc.crsp1 noprint; 
	var ret; 
	by date;
	output out=mypc.crsp2(drop=_freq_ _type_) mean=avgret n=numfirms;
run;