xpt格式批量转成sas格式

转换单个数据集

LIBNAME MY "C:\Users\数统部001\Desktop\sas"; 
LIBNAME XP XPORT "C:\Users\数统部001\Desktop\xpt\adae.xpt";
PROC COPY IN=XP OUT=MY; 
RUN;

批量转换多个数据集 

%macro drive(dir,ext,out);                                                                                                                  
  %let filrf=mydir;                                                                                                                     
  %let rc= %sysfunc(filename(filrf,&dir));                                                                                                
  %let did= %sysfunc (dopen(&filrf));                                                                                                      
  %let memcnt= %sysfunc (dnum(&did));                                                                                                      
   %do i = 1 %to &m