Is this some sort of exam you have to pass ? In which case you'd better find out by yourself or you'll never learn. data WORK.STUFF;   set WORK.INFO end=LASTOBS;   N+1;   if Team1_Name='Spain' then do;     S_Goals+Team1_Score;     O_Goals+Team2_Score;   end;   else if Team2_Name='Spain' then do;     S_Goals+Team2_Score;     O_Goals+Team1_Score;   end;   else N+-1;   if LASTOBS then do;     S_Goals=S_Goals/N;     O_Goals=O_Goals/N;       output;   end;   keep O_Goals S_Goals; run; ... View more

All in one data step: data HAVE(index=(Team1_name Team2_name)); input Date $9 Team1_name $ 11-22 Team1_Score 24 Team2_Name $26-36 Team2_Score 38 Venue $ 40-55; cards; 12Jun2014 Brazil 3 Croatia     1 Sao Paulo 13Jun2014 Mexico 1 Cameroon    0 Natal 17Jun2014 Brazil 0 Mexico      0 Fortaleza 18Jun2014 Cameroon 0 Croatia     4 Manaus 23Jun2014 Cameroon 1 Brazil      4 Brasilia 23Jun2014 Croatia 1 Mexico      3 Recife 13Jun2014 Spain 1 Netherlands 5 Salvador 13Jun2014 Chile        3 Australia   1 Cuiaba 18Jun2014 Australia 2 Netherlands 3 Porto Alegre 18Jun2014 Spain        0 Chile       2 Rio de Janeiro 23Jun2014 Australia 0 Spain       3 Curitiba 23Jun2014 Netherlands 2 Chile       0 Sao Paulo run; data ALL;   set HAVE(keep= Team1_name Team1_Score rename=(Team1_name=TEAM Team1_Score=SCORE))      HAVE(keep= Team2_name Team2_Score rename=(Team2_name=TEAM Team2_Score=SCORE)) ;   by TEAM;   if first.TEAM then TOTAL=0;   TOTAL+SCORE;   if last.TEAM then output;   keep TEAM TOTAL; run; ... View more