Hi All, I have around 34 datasets in one library and out of 34 , 15 datasets containing variables ending with "TESTCD" or "TEST".I have other library where in one dataset i have corresponding information .I want to merge datasets variables from one library with corresponding information . Below is my code and i have to execute the code manually by passing all dataset and variable names.My requirement is to do it dynamically. The Variable name example is LBTESTCD/LBTEST where first two letters is the source dataset name. /**/ /*proc import datafile="Z:\Novella\TG_Therapeutics\UTX-IB-104_NV100609_SDTM\Biostatistics\Documentation\Specifications\SDTM\SDTM Terminology.xls"*/ /* out=check dbms=xls replace;*/ /*run;*/ OPTIONS SYMBOLGEN MPRINT MLOGIC; %macro try(domain= , var= ); proc sql; create table x as select distinct &var. as &var. from sdtm.&domain. where &var. ne " "; quit; proc sql NOPRINT; select code into : codelist_code from check where cdisc_submission_value="&VAR."; quit; %let codelist_code=&codelist_code; /*%put &code;*/ data y; set x; cdisc_submission_value="&VAR"; codelist_code="&codelist_code."; run; PROC SQL; CREATE TABLE FINAL AS SELECT a.&var. , b.* FROM Y A LEFT JOIN CHECK B ON A.codelist_code=B.CODELIST_CODE AND a.&var.=B.CDISC_SUBMISSION_VALUE ORDER BY 1; QUIT; data &var.; length term $40; set final; id="&VAR."; name=codelist_name; nci_codelist_code=codelist_code; data_type="text"; order=_n_; term=&var.; nci_term_code=code; decoded_value=NCI_PREFERRED_TERM; KEEP ID NAME NCI_CODELIST_CODE DATA_TYPE ORDER TERM NCI_TERM_CODE DECODED_VALUE; run; %mend; %try(domain=EG , var=EGTESTCD ); %try(domain=EG , var=EGTEST ); %try(domain=VS , var=VSTESTCD ); %try(domain=VS , var=VSTEST ); %try(domain=LB , var=LBTESTCD ); %try(domain=LB , var=LBTEST ); %try(domain=RP , var=RPTESTCD ); %try(domain=RP , var=RPTEST ); %try(domain=TR , var=TRTESTCD ); %try(domain=TR , var=TRTEST ); %try(domain=TU , var=TUTESTCD ); %try(domain=TU , var=TUTEST ); DATA ALL; SET EGTESTCD EGTEST VSTESTCD VSTEST LBTESTCD LBTEST RPTESTCD TRTEST TUTESTCD TUTEST; RUN; Regards.
... View more