data have; input a b c d e; cards; 1 . . . . 1 . . . . 4 . . . . 5 . . . . 1 . . . . . 2 . . . . 1 . . . . 2 . . . . 3 . . . . 4 . . . . . 4 . . . . 4 . . . . 1 . . . . 4 . . . . 4 . . . . . 2 . . . . 3 . . . . 4 . . . . 1 . . . . 3 . . . . . 2 . . . . 4 . . . . 3 . . . . 2 . . . . 1 ; %let list = a b c d e; %macro datasets(local_list); %local index J; %do index = 1 %to %sysfunc(countw(&local_list)); %let J = %scan(&local_list,&index); have (keep=&J where=(&J ne .)) %end; %mend; data want; length columns $8; merge %datasets(&list) ; columns = scan("&list",_n_); run; proc print data=want noobs; run; Result: columns a b c d e a 1 2 4 2 2 b 1 1 4 3 4 c 4 2 1 4 3 d 5 3 4 1 2 e 1 4 4 3 1 ... View more

You can use the automatic variable _N_ in a data step, or the UUIDGEN function. ... View more

data comm; do analyse=0 to 34,99; output; end; run; ... View more

  proc sql;  select max(total) as total , n, percent  from have; quit;   ... View more

This works, but there is not a single case in the "have" table that meets condition (1). data have; input var1 var2 var3 ; datalines; 1400.00 165.55 839.57 0.00 0.00 106.42 1200.00 142.98 725.09 0.00 0.00 91.91 270.00 0.00 168.85 0.00 0.00 67.54 0.00 0.00 33.61 270.00 0.00 0.00 0.00 0.00 168.85 0.00 0.00 101.15 155.00 1.70 150.00 0.00 0.00 3.30 ; run; data have1; set have; retain group 0; if var1 ne 0 then group=group+1; run; data want; set have1; by group; retain sum_var1 0 sum_var2_var3 0; if first.group and last.group=0 then do; sum_var1=var1; sum_var2_var3=sum(var2,var3); end; else if first.group=0 and last.group=0 then do; sum_var1=sum(sum_var1,var1); sum_var2_var3=sum(sum_var2_var3,sum(var2,var3)); end; else do; sum_var1=sum(sum_var1,var1); sum_var2_var3=sum(sum_var2_var3,sum(var2,var3)); if sum_var1 < sum_var2_var3 then new=1; else new=0; end; drop sum_var1 sum_var2_var3; run;   ... View more

data have; infile cards expandtabs truncover; input VAR $ Q1 Q2 Q3 Q4 Q5; cards; Class1 12 14 134 1234 1234 Class2 1 4 6 34 56 Class3 3 4 4 4 8 Class4 2 12 12 45 156 Class5 12 22 24 45 45 ; data temp; set have; array x{*} q1-q5; do i=1 to dim(x)-1; if x{i+1}/x{i} ge 2 then do; vname=vname(x{i+1}); value=x{i+1}; found=1; output; end; end; if not found then output; keep var vname value; run; data temp1; set temp; by var notsorted; if not missing(vname) then do; if first.var then do;var_name='First';name='First_Q';end; if last.var then do;var_name='Last '; name='Last_Q ';end; if not missing(var_name) then output; end; else do; var_name='First';name='First_Q';output; var_name='Last '; name='Last_Q ';output; end; run; proc transpose data=temp1 out=temp2(drop=_name_); by var notsorted; var value; id var_name; run; proc transpose data=temp1 out=temp3(drop=_name_); by var notsorted; var vname; id name; run; data want; merge temp2 temp3; run; ... View more