Hello 1239,
This is a solution:
[pre]
data i;
input Project $ Country $ T1 T2;
datalines;
A INDIA 9 8
A US 7 6
A UK 5 4
run;
data i1;
input Project $ Country $ K1 K2 K3;
datalines;
B INDIA 1 2 3
B US 5 4 7
B UK 6 8 9
run;
%macro a(in=,out=,prefix=);
proc means data=&in noprint;
output out=mean(drop=_:) mean=;
var &prefix:;
run;
data &out;
length Project $20;
set &in mean end=e;
Project=CATX(" ",Project,Country);
if e then Project="All_COUNTRY";
drop Country;
format &prefix: 5.1;
run;
%mend a;
%a(in=i,out=r,prefix=T)
%a(in=i1,out=r1,prefix=K)
[/pre]
Sincerely,
SPR