求教

数据集a：

a	b	c
0	0	境外法人股
国有	0	0
0	境内法人股	0
国有	0	0
0	境内法人股	0
国有	0	0
0	境内法人股	0
0	境内法人股	0
0	境内法人股	0

希望得到：

d

境外法人股

国有

境内法人股

国有

境内法人股

国有

境内法人股

境内法人股

境内法人股

即将abc变量取不为0的数据，赋到d变量中，不用sql，先谢谢了

/* this is a good example using array, do-loop and if-then */

data test;
input A $ B $ C $;
datalines;
0 0 JingWai
GuoYou 0 0
0 JingWai 0
GuoYou 0 0
0 JingWai 0
;
run;

/* this is a standard example of array and do-loop */
data want1;  
    set test;
        array myarray{3} a b c;
        do i = 1 to dim(myarray);
       if myarray(i) ^="0" then d = myarray(i);
        end;
        drop i;
run;

/* This is an example of using do-OVER loop with array and if-then */
data want2;   
   set test;
   array Use_Over a b c;   
   do over Use_Over;
   if Use_Over ^="0" then d2 = Use_Over;
   end;
run;


proc print data=want1; run;
proc print data=want2; run;

that is a very basic question

Imasasor 发表于 2013-3-28 21:40
that is a very basic question

我是sas小白，望指点，不胜感激

我不想说

Imasasor 发表于 2013-3-28 22:33
我不想说

好吧，不勉强

data have;
input a $ b$ c$;
cards;
ab 0 0
0 cd 0
0 dd 0
aa 0 0
0  0 bd
;
run;


data want;
set have;
new=left(compress(catx(' ', of a,b,c),'0'));
run;
proc print;
run;

yongyitian 发表于 2013-3-29 00:18
/* this is a good example using array, do-loop and if-then */

data test;

谢谢你的热心帮助，非常感激

farmman60 发表于 2013-3-29 01:08
data have;
input a $ b$ c$;
cards;

谢谢你的热心回复，非常感激

Imasasor 发表于 2013-3-28 22:33
我不想说

你这人这样说有点过了，人可以直，但也要尊重别人，有没听过莫欺少年穷