求救,如何使得数据这样!

shiyiming

f1    f2    f3    f4
54    -1    -1    -1
54    67    78   888
56    -1   888    -1
54    55    56    78
58    78    88    -1

创立新的一列f5, 每行f5的值是除去-1,888的值最后面的一个值
在这个数据中最后f5:
f5
54
56
78
78
88
我这个数据其实很大,有上万的cases.请高手指点如何用SAS编写!!!!

shiyiming

data a;
input f1 f2 f3 f4;
cards;
54 -1 -1 -1
54 67 78 888
56 -1 888 -1
54 55 56 78
58 78 88 -1
;
run;

data b;
set a;
array aa(4) f1-f4;
do i=1 to 4;
if aa(i) ne -1 and aa(i) ne 888 then do; f5=aa(i);end;
end;
drop i;
proc print;
run;

shiyiming

谢谢,非常感谢!