data a;
input x y z j@;
cards;
1 2 3 5
2 3 4 5
1 2 3 4
8 7 6 5
2 3 4 5
1 2 3 4
9 8 6 5
4 5 6 7
7 8 6 5
2 3 9 8
9 8 6 5
1 0 9 6
8 7 6 5
;
run;
proc sort data=a out=a;
by x y z j;
run;
data b;
set a;
retain n 0;
x1=dif(x);
y1=dif(y);
z1=dif(z);
j1=dif(j);
if (x1=y1=z1=j1=0)=0 then output;
drop x1 y1 z1 j1;
n=attrn(open('work.b','i'),'nobs');
run;

SQL效率低
用DIF吧
如果数据量大的话 估计要优化哈
soporaeternus 来做哈

8# crackman
谢谢版主~~~

“我现在需要得出一共有几个不同的数据”
1.
proc sq;
select count(distinct *) from test;
quit;

2.
data _null_;
if _N_=1 then do;
set test;
declare hash h(dataset:"test");
h.definekey(All:"yes");
h.definedone();
end;

x=h.item_size;
put x;

run;

还有个补充问题，比如我有
1
0
2
1
0
5个数字的数据集，我想让在最大数字前面小于最大数字的全变成最大数字
比如
2
2
2
1
0
这样，我应该怎么比较呢？

4# yatming
proc sql;
select count (distinct *)  from a;
quit;
我的提示一直说是非法位置使用"*"

10# yatming
我的版本是9.2的
按照你第一个方法
proc sql;
select count (distinct *)  from test;
quit;


1302  data er;
1303  input x y z j@;
1304  cards;
NOTE: 数据集 WORK.ER 有 13 个观测和 4 个变量。
NOTE: “DATA 语句”所用时间（总处理时间）:
      实际时间          0.00 秒
      CPU 时间          0.00 秒

1318  ;
1319  run;
1320  proc sql;
1321  select count (distinct *)  from er;
ERROR: 在非法位置使用了 *。
1322  quit;
NOTE: SAS 系统由于错误而停止了该步的处理。
NOTE: “PROCEDURE SQL”所用时间（总处理时间）:
      实际时间          0.00 秒
      CPU 时间          0.00 秒

12# crackman
我记得好像可以的，不过也可能记错了，如果不行的话，可以先distinct，然后count或者data step 中put nobs就可以了吧。我目前也没SAS。效率上SQL和data STEP的HASH也无法测试了。呵呵。itemsize写错了，应该是item_size。

我主要是看SAS LOG里面的运行时间来评价效率的
呵呵
不过也会存在牺牲空间换时间的效率问题

帮忙看看 这个问题吧~~

这个牵涉到回溯，个人认为一步data step应该不行，可以先得出最大数，再加个用来判断前后的变量，data step一条条来做。

SAS里面是不是有数组能够用，或者把这个问题  如何比较前后2个数字的大小，如果前面大 后面小 则交换互相位置。 怎么比较呢？如果能用数组应该怎么用呢？

应该是有
list

data er;
input x y z j@;
cards;
1 2 3 2
2 3 4 3
1 2 3 4
8 1 6 5
2 3 4 6
1 2 3 4
9 5 6 5
4 2 6 6
7 5 6 5
2 3 7 6
9 5 6 5
1 0 7 6
8 3 6 5
;
run;
data er;
set er;
obs=_n_;
run;
proc transpose data=er out=ee;
var _all_;
run;
data ee;
set ee;
obs=_n_;
select (_name_);
when ('x') col14=max(of col1-col13);
when ('y') col14=max(of col1-col13);
when ('z') col14=max(of col1-col13);
when ('j') col14=max(of col1-col13);
otherwise  col14=max(of col1-col13);
end;
call symput('n'||left(obs),col14);
run;
data x;
set er;
if x=&n1.;
run;
data x;
set x;
obs1=_n_;
if obs1=1;
call symput('obs',obs);
run;
data result;
set er;
if obs<&obs. then x=&n1.;
else x=x;
run;


data y;
set er;
if y=&n2.;
run;
data y;
set y;
obs1=_n_;
if obs1=1;
call symput('obs',obs);
run;
data result;
set result;
if obs<&obs. then y=&n2.;
else y=y;
run;


data z;
set er;
if z=&n3.;
run;
data z;
set z;
obs1=_n_;
if obs1=1;
call symput('obs',obs);
run;
data result;
set result;
if obs<&obs. then z=&n3.;
else z=z;
run;


data j;
set er;
if j=&n4.;
run;
data j;
set j;
obs1=_n_;
if obs1=1;
call symput('obs',obs);
run;
data result;
set result;
if obs<&obs. then j=&n4.;
else j=j;
run;

可以把后面的5个步骤写一个宏
参数就是x y z j
和n1 n2 n3 n4
没时间去写了
期待牛人写出来

全部是data里面完成的

谢谢 非常感谢

data m;
input x y z j@;
cards;
1 2 3 2
2 3 4 3
1 2 3 4
8 1 6 5
2 3 4 6
1 2 3 4
9 5 6 5
4 2 6 6
7 5 6 5
2 3 7 6
9 5 6 5
1 0 7 6
8 3 6 5
;
run;

proc transpose data=m out=x;var _all_;run;
%let c=%sysfunc(open(x,i));%let n=%eval(%sysfunc(attrn(&c,nvars))-1);
data x1;set x;array x _char_ _name_ ;array z(*)   col1-col&n;
do i=1 to dim(z);if z(i)=max(of col1-col&n) then c=i;end;
do i=1 to dim(z);if z(i)<max(of col1-col&n)&i<=c then z(i)=max(of col1-col&n);
end;drop i c;run;
proc transpose data=x1 out=final(drop=_name_);run;

我发现一个规律，看见楼上就有transpose......

后一个问题，试试看

26# soporaeternus
I agree!

谢谢你们，非常感谢
ERROR: You cannot open WORK.X.DATA for output access with member-level control because WORK.X.DATA
is in use by you in resource environment DMS Process.
这个该咋办。运行了一次修改后就不能运行第二次 要把SAS关了才行。。

把open函数的返回值赋值，然后close掉，x=open();y=close(x);宏的话外层再包装sysfunc，使用宏变量即可。

还有我和crackman经常一起出现哈