This code already puts the data in quotes data _new; informat have $32.; input have $ var2; want=compress(compress(have,' +/*-%','A')); cards; BIOL1012|8DCWc 10128 ANT102 102 PSY125 125 SOC101 101 SPAN2330 2330 HIST1500 1500 BCS-205 205 BCS-132 132 ;;; run; proc export data=_new outfile='test.csv' dbms=dlm replace ; delimiter='|' ; run; ... View more

Can you please add a sample of the data that you have as input and the one that you want as output. The input and output do not match. I used a zipcode as the variable on by statement as I did not have additional fields that could be on the by statement. If you can use cco1 - cco5 as additional fileds then you might get a closer match. Please provide the inputs of each of your input tables separately. ... View more

%macro delete; proc datasets lib=work nolist; delete %do i = 1 %to 200; data&i. %end;; run; quit; %mend delete; %delete; ... View more

This is how I would approach the problem identify the 29 variables that need to be kept track of %let list_of_vars_to_track=<some varlist separated by spaces>; %let list_of_vars_len_to_track=<some varlist separated by spaces>; %macro test; data FinalDataSet(rename=( %do i = 1 %to 29; ret_%scan(list_of_vars_to_track,&i.,%str( )) =%scan(list_of_vars_to_track,&i.,%str( )) %end; )); length %do i = 1 %to 29; ret_%scan(list_of_vars_to_track,&i.,%str( )) %scan(list_of_vars_len_to_track,&i.,%str( )) %end;; set AC4 EP4 IP4 CD4; by doctor; retain %do i = 1 %to 29; ret_%scan(list_of_vars_to_track,&i.,%str( )) %end; ' '; if first.doctor then do; %do i = 1 %to 29; ret_%scan(list_of_vars_to_track,&i.,%str( )) = ''; %end; end; %do i = 1 %to 29; if not missing(%scan(list_of_vars_to_track,&i.,%str( ))) then ret_%scan(list_of_vars_to_track,&i.,%str( )) =%scan(list_of_vars_to_track,&i.,%str( )); %end; if last.doctor then output; drop %do i = 1 %to 29; %scan(list_of_vars_to_track,&i.,%str( )) %end; ; run; %mend test; ... View more