Use by var notsorted :   data tempNoDup; set temp; by var notsorted; if first.var then output; run; proc print; run; ... View more

Hi ...   data matrix; array r(5); do i=0 to 20 by 5; do j=1 to 5;   r(j)=i+j; end; output; end; keep r: ; run; data new; array r(5); array v(5); do i=1 to 5; do j=1 to 5;   set matrix point=j;   v(j) = r(i); end;   output; end; stop; keep v: ; run;   data set NEW ... Obs v1 v2 v3 v4 v5 1    1  6 11 16 21 2    2  7 12 17 22 3    3  8 13 18 23 4    4  9 14 19 24 5    5 10 15 20 25   If you wanted to make the transpose data step general, you could try ...   proc sql noprint; select nvar, nlobs into :nvars trimmed, :nobs trimmed from dictionary.tables where libname = 'WORK' and memname = 'MATRIX'; quit;   data new; array r(&nvars); array v(&nobs); do i=1 to &nvars; do j=1 to &nobs;   set matrix point=j;   v(j) = r(i); end;   output; end; stop; keep v: ; run;   ... View more

below code will do my job. thank you all. data one; input d_time_with_bank_crs_i_fmt $50.; datalines; 1-10 ; run; data two; input X_DAY_SA12_crs_i_fmt $50.; datalines; 1-11 ; run; data three; input der_time_cross_x4_crs_i_fmt $50.; datalines; 1-12 ; run; %macro dataset_exists(lib,suffix);     proc contents             data=&lib.._all_             out=work.datasets(keep=libname memname name   where=(upcase(name) contains '&suffix')) noprint;       run;       Data null_;                                                             Set datasets end=end;                by memname;              if first.memname then do;                                                           count+1;                                                       output;                                                                                                   end;               call symputx('dset'||left(count),memname);             call symputx('old_var'||left(count),name);              call symputx('new_var'||left(count),tranwrd(name,"_CRS_I_FMT",''));             if end then call symput('max',count);         Run;              %do i = 1 %to &max; /*            TITLE Sample records for dataset – &lib..&&dset&i.;*/             proc datasets lib=&lib;   modify &&dset&i.;   rename &&old_var&i. = &&new_var&i.;             run;quit;       %end; %mend; %dataset_exists(work,_CRS_I_FMT); %put _user_; ... View more

hi ,,, using Ksharp's data and suggestion about PROC MEANS (or SUMMARY) and the IDGROUP option ... * find maximum group size; proc sql noprint; select max(obs) into :obs from (select count(*) as obs from have group by id); quit; * transpose three variables at one time;   proc summary nway data=have missing; class id; output out = want (drop=_:) idgroup(out[&obs](visit_date dose location)=); run; for more info, you can also look at .. "Transposing Data Using PROC SUMMARY'S IDGROUP Option" http://support.sas.com/resources/papers/proceedings10/102-2010.pdf ... View more