I would modify 's formula, as given the following scenario, I doubt that you would want the Rams to come out on top: data have; input team:$8. points_earned points_give; cards; Lions 20 10 Ravens 30 21 Broncos 30 5 Rams 5 31 ; proc sql;   select *     from have       having points_earned-points_give=max(points_earned-points_give)   ; quit; Further, you may want to consider comparing deltas rather than differences. If so,: proc sql;   select * ,points_earned/points_give-1     from have       having points_earned/points_give-1=max(points_earned/points_give-1)   ; quit; ... View more

Hello, data have; input  Team $ Points_Earned Points_Given_up ; datalines; Lions 20 10 Ravens 30 21 Broncos 30 5 Tigers 80 75 Baggers 80 55 ; data want (drop=i dif record) ; length record $ 30; do until(last); set have end=last; i+1; if dif <Points_Earned-Points_Given_up then do;   dif=Points_Earned-Points_Given_up;   record=i; end; else if dif=Points_Earned-Points_Given_up then record=cats(i,"|",record); end; i=1; if find(record,"|") then do while (not(missing(scan(record,i,"| "))));   acces=input(scan(record,i,"|"),8.);   set have point=acces;   output;   i=i+1; end; else do;   acces=input(compress(record),8.);   set have point=acces; output; end; run; ... View more