Hello, Another solution: data have; input text $50.; datalines; DS_XYZ_KO DS_TL_PA PA_TL SA_KO ; run; data int1; set have nobs=last; do i=1 to last while(scan(text,i,"_") ne ""); sepvar=scan(text,i,"_"); output; end; run; proc sql noprint; select distinct sepvar, sepvar into :allvars separated by " char(10)," ,  :arrvar separated by " " from int1; create table int2 (&allvars char(10)); quit; %put &arrvar; data want(drop=text i j ); set have ; array all{*} $20 &arrvar ; do i=1 to count(text,"_")+1; do until (vname(all{j}) = scan(text,i,"_")); j+1; end; call vname(all{j},all{j}); j=0; end; run; ... View more

Hello, Here is one solution Prepare some data data a; length sexsmall $ 4; set sashelp.class (obs=10); sexsmall=sex; rename age=agesmall weight=weightsmall height=heightsmall ; drop sex; run; Working code data b; merge  sashelp.class (in=a) a (in=b); array allnum  sexsmall-numeric-weightsmall; array allchar  sexsmall-character-weightsmall; by name; if b=0 then do;   do over allnum; allnum=0; end;   do over allchar; allchar="N/A"; end; end; run; ... View more

Hello, The first data step determines the number of the variables (times / intensity) which the data set will contain, while the second step imports the values within the data set. data _null_; input @5 tmins & $30.; x=(length(strip(compress(tmins,,'d')))+1)/2; if _N_=1 then call symputx('nrvar',x); else if x gt input(symget('nrvar'),best12.) then call symputx('nrvar',x);; datalines; 1,m,1,45,5,2,5,3 2,m,3,6,5,5,6,3 3,m,6,65,5,2,20,3,23,63 4,m,9,6,5,43,5,3 5,m,3,195,5,2,5,32,34,78,12,42 6,m,6,92,5,232,5,23 ; run; data have (drop=rowvar i tmins); infile datalines dsd; *VARIABLES; input subject sex $ tmins & $30. @ ; array times{&nrvar}; array intens{&nrvar}; *Computation; rowvar=length(strip(compress(tmins,,'d')))+1;*number of commas in order to determin the loop; do i=1 to rowvar/2; times{i}=input(scan(tmins,i,","),best12.);*in order to avoid the note within the log; intens{i}=input(scan(tmins,i+rowvar/2,","),best12.); end; datalines; 1,m,1,45,5,2,5,3 2,m,3,6,5,5,6,3 3,m,6,65,5,2,20,3,23,63 4,m,9,6,5,43,5,3 5,m,3,195,5,2,5,32,34,78,12,42 6,m,6,92,5,232,5,23 ; run; ... View more

Hello, You can create a macro that builds the names of the variables you plan to use within the var statement: %macro a; %Do y = 2008 %to 2013; ep&y %end; %mend a; Afterwards you can simply call the macro from inside proc means: var %a; ... View more

Hello, here is a data step solution: data want(drop=i j statusnew); set aa; by empid notsorted ; retain flag statusnew j; i+1; if statusnew ne status and flag ne 'Y' then flag='Y'; if first.empid then do; flag='N'; j=i; end; statusnew=status; if last.empid then do k=j to i; set aa point=k; output; end; run; ... View more