%macro mkxpt(dsn=, dslabel=, sortkey=);

	proc sort data=&dsn out=ana.&dsn(label="&dslabel" sortedby=_null_);
		by &sortkey;
	run;

    ** Create the .xpt file **;
   libname xportout xport "./libraries/analysis/&dsn..xpt";
   proc copy in = ana out = xportout memtype = data;
      select &dsn.;
   run;
   libname xportout clear;

%mend mkxpt;