Something like this? %macro exportNamed(Table=,File=); %let Lib=%upcase(%scan(&Table,1,.)); %let Tab=%upcase(%scan(&Table,2,.)); %if %length(&Tab) = 0 %then %do; %let Tab=&Lib; %let Lib=WORK; %end; %let columns=; proc sql noprint; select name into : columns separated by '#' from dictionary.columns where libname = "&Lib" and memname = "&Tab" order by npos; quit; filename outfile "&File"; /* Export the values */ data _null_; set &Table. ; file outfile; put %let _col=; %let i = 1; %do %until( %length(&_col)=0 ); %let _col = %qscan(&columns,&i,#); %if %length(&_col) > 0 %then %do; "&_col.=" '"' &_col +(-1) '"' +1 %end; %let i=%eval(&i + 1); %end; ; run; filename outfile clear; %mend; %ExportNamed(Table=sashelp.class,File=myfile.txt); The result: Age="14" Height="69" Weight="112.5" Name="Alfred" Sex="M" Age="13" Height="56.5" Weight="84" Name="Alice" Sex="F" Age="13" Height="65.3" Weight="98" Name="Barbara" Sex="F" Age="14" Height="62.8" Weight="102.5" Name="Carol" Sex="F" Age="14" Height="63.5" Weight="102.5" Name="Henry" Sex="M" Age="12" Height="57.3" Weight="83" Name="James" Sex="M" Age="12" Height="59.8" Weight="84.5" Name="Jane" Sex="F" Age="15" Height="62.5" Weight="112.5" Name="Janet" Sex="F" Age="13" Height="62.5" Weight="84" Name="Jeffrey" Sex="M" Age="12" Height="59" Weight="99.5" Name="John" Sex="M" Age="11" Height="51.3" Weight="50.5" Name="Joyce" Sex="F" Age="14" Height="64.3" Weight="90" Name="Judy" Sex="F" Age="12" Height="56.3" Weight="77" Name="Louise" Sex="F" Age="15" Height="66.5" Weight="112" Name="Mary" Sex="F" Age="16" Height="72" Weight="150" Name="Philip" Sex="M" Age="12" Height="64.8" Weight="128" Name="Robert" Sex="M" Age="15" Height="67" Weight="133" Name="Ronald" Sex="M" Age="11" Height="57.5" Weight="85" Name="Thomas" Sex="M" Age="15" Height="66.5" Weight="112" Name="William" Sex="M" ... View more

Use the attached macro and the program below. You need to add the old locations to the data step that contains the SELECT-WHEN statements.   Please make a backup of your metadata before running the program.   /* Extract information about Stored Processes in Metadata */ %meta_extractstoredprocesses(Table=StoredProcesses); /* Extract information about Directories. A directory can be used by multiple STP's only select one unique. */ proc sql noprint; create table locations as select distinct dir_uri, SourceCodeDir from StoredProcesses where SourceCodeDir ne '<In Metadata>' ; quit; /* Update the directories to new locations */ data newlocations; set locations; UpdateDirectory = 0; select (upcase(SourceCodeDir)); /* Only for testing, do not use in production */ when ('C:\PROGRAM FILES\SASHOME\SASFOUNDATION\9.4\INTTECH\SAMPLE2') do; SourceCodeDir = 'C:\Program Files\SASHome\SASFoundation\9.4\inttech\sample'; UpdateDirectory = 1; end; otherwise ; end; if UpdateDirectory then do; putlog 'Updating Directory'; rc=metadata_getnobj(dir_uri,1,tran_uri); put rc=; rc=metadata_setattr(dir_uri,"DirectoryName",SourcecodeDir); put rc=; end; run; /* Extract information about Stored Processes in Metadata and verify the Directories were updated. */ %meta_extractstoredprocesses(Table=StoredProcesses); ... View more

proc sql will do what you want.   data have; length Name $8 Friend_No 8; input Name Friend_No; cards; Tom 1 Tom 2 Tom 3 Tom 5 Tom 6 Tom 8 Tom 9 Tom 10 Mike 2 Mike 3 Mike 4 Mike 5 Mike 6 Megan 1 Megan 3 Megan 9 Lily 1 Lily 2 Lily 6 Lily 7 Lily 9 Lily 13 ; run; proc sql noprint; create table want as select Name, Friend_No, count(*) as Friend_Count from have group by Name order by Name; quit; ... View more