data need;
set test;
array _q q1-q10;
do i=1 to dim(_q);
if _q(i)=max(of q:) then do;
max_q=_q(i);
length var max_q_var $100;
var=catx(" ",var,vname(_q(i)));
max_q_var="max="||var;
end;
end;
drop i var;
run;
data max_return;
file "f:/max.txt";
set max;
array Q(6) Q1-Q6;
m=max(of Q1 Q2 Q3 Q4 Q5 Q6);
do i =1 to 6;
if Q(i)=m then do;
var_q=vname(Q(i));
max_q=PH_ID||"-----"||"max="||var_q||" ";
put MAX_Q @;
end;
END;
if i=7 then put /;
run;