%macro proccontents(din=, dout=);

	proc contents data=&din. out=&dout.;		
	run;

%mend proccontents;



%proccontents(din=adam.adsl, dout=pc1);