PROC IMPORT OUT= WORK.a1
            DATAFILE= "d:\My Documents\ssfz\hb1.xls"
            DBMS=EXCEL2000 REPLACE;
     SHEET="sheet1$";
     GETNAMES=YES;
RUN;
PROC IMPORT OUT= WORK.a2
            DATAFILE= "d:\My Documents\ssfz\hb2.xls"
            DBMS=EXCEL2000 REPLACE;
     SHEET="sheet1$";
     GETNAMES=YES;
RUN;
data a;
set a1(keep=gdp cpi);
if cpi>=110 then flag1=1;
else if cpi>105 then  flag1=2;
if flag1;
proc print data=a;
run;
data b;
set a2(keep=gdp cpi);
if gdp>28000 then flag2=3;
if flag2;
proc print data=b;run;

proc sort data=a;by gdp;run;
proc sort data=b;by gdp;run;
data c;
merge a(in=a) b(in=b);
by gdp;
if a or b;
if flag1=1 or 2 then flag=flag1;
else flag=3;
drop flag1 flag2;

run;
proc print data=c ;run;