relrec调取对应domain数据

/*sdtm为需要调用变量的domain；relid为两个domain组合做成的relid需要确认顺序；var为需要调用的变量；adam为正在做的adam数据集*/
%macro relrec(sdtm=,relid=,var=,adam= );
data rel;
	set sdtm.relrec;
	where find(relid,&relid.) ;
	IDVARVAL_=input(IDVARVAL,best.);
proc sort;by usubjid relid;
run;
proc transpose data=rel out=rel1;
	by usubjid relid;
	id idvar  ;
	var idvarval_;
run; 
data rel2;
	merge rel1(in=a ) sdtm.&sdtm.;
	by usubjid &sdtm.seq;
	if a;
	keep usubjid aeseq &var.;
	proc sort;by usubjid &adam.seq;
run;
data rel3;
	set rel2;
	retain ord;
	by usubjid &adam.seq;
	if first.&adam.seq then ord=1;
		else ord+1;
	call symputx('maxn',max(ord));
run;
%put &maxn.;
proc transpose data=rel3 out=rel4 prefix=col;
	by usubjid &adam.seq;
	id ord;
	var &var.;
run;
data rel_;
	length RELAE $200;
	set rel4;
	array rel[&maxn.] col:;
	do i= 1 to &maxn.;
	if rel[i] ne "" and i>1 then rel[i]="/"||rel[i];
	if rel[i] ne "" then RELAE=compress(RELAE||strip(rel[i]));
	end;
run;
%mend;
%relrec(sdtm=cm,relid="CMAE",var=cmtrt,adam=ae);