Hi, If you want to try my code, first save the text below to c:\temp as 20120101_testdate.txt 20120201_testdate.txt 20120301_testdate.txt Region~State~Month~Expenses~Revenue Southern~GA~JAN97~2000~8000 Southern~GA~FEB97~1200~6000 Southern~FL~FEB97~8500~11000 Northern~NY~FEB97~3000~4000 Northern~NY~MAR97~6000~5000 Southern~FL~MAR97~9800~13500 Northern~MA~MAR97~1500~1000 /*After run my code, you should have 3 datasets _20120101_testdate.sas7bdat, _20120201_testdate.sas7bdat, _20120301_testdate.sas7bdat Created in your work library.*/ %macro test(location);/* location is where the files are stored */ filename indata pipe "dir &location.\*.txt /b"; /*find the files*/ data files;   length in_name out_name $32;   infile indata truncover;   input in_name $32.; /* input the file names */   out_name=cats('_',scan(in_name,1,'.')); run; options mprint mlogic; data _null_;   set files end=last;   call symputx(cats('dsn',strip(_n_)),in_name);   call symputx(cats('outdsn',strip(_n_)),out_name);   if last then call symputx('n',_n_); run;    %do i=1 %to &n;        proc import datafile="&location.\&&dsn&i." out= work.&&outdsn&i.             dbms=dlm replace ;             delimiter="~";             getnames=yes;        run; %end; %mend; %test(c:\temp) Linlin ... View more

try this one: options nocenter; data have; input (name result)($); cards; A aa B aa C bb D cc E cc F cc G dd H dd I dd J dd K dd L dd ; data want (rename=new=result); length new $ 8;   set have; by result; if first.result then count=0; count+1; new=cats(result,count); drop result count; run; proc print;run; Obs    result    name   1     aa1       A   2     aa2       B   3     bb1       C   4     cc1       D   5     cc2       E   6     cc3       F   7     dd1       G   8     dd2       H   9     dd3       I 10     dd4       J 11     dd5       K 12     dd6       L Linlin ... View more

Hi Ksharp, You are so good with SAS, I think SAS should offer you a job. Thank you very much for helping all of us! ... View more

Thank you Ksharp! You are always helpful.  - Linlin ... View more

Hi Mike, Thank you! I tried to help this OP to find a better solution: https://communities.sas.com/thread/34279 ... View more

Hi FE and PG, Thank you for your reply!  it is very enjoyable for me to go through all the interesting solutions!  - Linlin ... View more

Hi Haikuo, This definitely show that we are excellent students of Art, Tom, and Ksharp!  - Linlin ... View more

Hi Astounding, I need to let you know that I am your sister, not your brother.:smileylaugh: Thank you. I should not use proc datasets at all. data have; input (ABC F1 F2 FDG)($); cards; ID Name Sex Country 1 ABC M IND 2 BCD F USA 3 CDE M GER 4 DGE M UK ; proc transpose data=have(obs=1) out=temp; var _all_; run; proc sql ;    select catx('=',_name_,col1)      into :rename separated by ' '         from temp; quit; data have;   set have(firstobs=2  rename=(&rename)); run; proc print;run; updated after Astounding's comments.  Thank you! ... View more