菜鸟，请教问题！急

有三列数据，取每行最大的数形成一个新列，要批量处理请问怎么实现？
还有一个问题：有一列字符类型的数据，对该列的所有数据取前6个字符，形成一个新列，如何实现？
最好能说的详细一点，先谢谢了！

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);