Finding the second max if the data contains two identical max values

[Ksharp]

NOTICE: code changed for fixing a problem. Sorry !

OK. I misunderstood.

data want;

array col(5) (1 4 5 5 4);
temp1=largest(1,of col(*));

do i=1 to dim(col);
  if col{i}=temp1 then do;
    col{i}=.;index_of_1nd=i;
    value_1=vname(col(index_of_1nd));
	leave;
  end;
end;

temp2=largest(1,of col(*));
do i=1 to dim(col);
  if col{i}=temp2 then do;
   index_of_2nd=i;
   value_2=vname(col(index_of_2nd));
   leave;   /*<--------*/
  end;
end;
drop i temp1 temp2;
run;

[raafat]

KSsharp: it works ! thank you very much. Can you please briefly explain you code, of course if you have time 🙂

[Ksharp · Accepted solution]

Actually , It could be rewrited by WHICHN().

I think it is more readable for you .

data want;

array col(5) (1 4 5 5 4);

temp=max(of col(*));
idx=whichn(temp,of col(*));
col{idx}=.;
index_of_1nd=idx;
value_1=vname(col(index_of_1nd));

temp=max(of col(*));
idx=whichn(temp,of col(*));
col{idx}=.;
index_of_2nd=idx;
value_2=vname(col(index_of_2nd));


drop temp idx;
run;