请教关于赋值的问题

shiyiming

请问如何将一列随机数的数值全部改为这列数的第一个数的值，如：
x
y
z
w
s
q
全部改为x.
谢谢

shiyiming

[b:13x8vmq3]
Data exp;
Input  xx $ @@;
Cards;
x i d s j a
;
run;


%macro datannnn(tem_table,col_name);

data &tem_table;
set &tem_table;
line=1;
line1+line;
run;

proc sql noprint; select &col_name into : firstname separated by ' '
from &tem_table where  line1 = ( select  min(line1)  from &tem_table  ) ; quit;

%let tem = %scan(&firstname., 1, ' ');
data &tem_table ;
set &tem_table;
other_&col_name="&tem.";
keep &col_name. other_&col_name;
run;
%mend ;

%datannnn(exp,xx);

输出结果：
xx   other_xx
x        x
i        x
d       x
s        x
j        x

  


[/b:13x8vmq3]

shiyiming

to wujiyan99
FT, 为啥要把data Pass twice？

shiyiming

[b:k2o4vy1s]

Data exp;
Input xx $ @@;
Cards;
x i d s j a
;
run;

data  newdata;
         set exp(firstobs=1  obs=1) nobs=ntotal;
         do _k=1 to ntotal;  output; drop _k;
         end;
run;

好代码[/b:k2o4vy1s]

shiyiming

Another one:

data new;
retain y;
set exp;
if _n_=1 then y=xx;
run;

shiyiming

已解决，十分感谢