data crackman;
input x y z@;
cards;
1 2 3
3 4 1
5 3 8
3 5 1
0 7 4
4 8 5
;
proc sql noprint;
select count(*) as count into:count from crackman;
quit;
%crackman;
run;
%macro crackman;
data a;
set crackman;
obs=_n_;
%do i=1 %to &count.;
if obs=&i. then m=max(x,y,z);
%end;
drop obs;
run;
%mend crackman;

有人看没人回。
大家帮帮忙了。

第二个
z=substr(var,1,6);