话不多说，直接上代码：

*for merge domain and supp;
%macro merge_supp(sdtm=,supp=y);  
*transpose supp;  
data supp&sdtm.;set sdtm.supp&sdtm.;&sdtm.seq=input(idvarval,best.);run;  
proc sort data=supp&sdtm.;by usubjid &sdtm.seq;quit;  
proc transpose data=supp&sdtm. out=supp&sdtm.(drop=_:);  
by usubjid &sdtm.seq;  
id qnam;  
idlabel qlabel;  
var qval;  
quit;  
*merge supp;  
data &sdtm.;set sdtm.&sdtm;%if %upcase(&sdtm.)=DM %then %do; &sdtm.seq=.;%end;run;  
proc sort data=sdtm.&sdtm out=&sdtm;by usubjid &sdtm.seq;run;
data &sdtm.;  
merge &sdtm. supp&sdtm.(where=(usubjid ne ''));  
by usubjid &sdtm.seq;  
run;  
%mend merge_supp;  

%merge_supp(sdtm=ae);