data EmpsCN;
   input First $ Gender $ Country $;
   cards;
Chang	M	China
Li	M	China
Ming	F	China
;
run;
proc print data=EmpsCN;
run;

data EmpsJP;
   input First $ Gender $ Region $;
   cards;
Yoko	F	Japan
Nobuo		M	Japan
;
run;
proc print data=EmpsJP;
run;

proc sort data=empscn;
by first;
run;
proc sort data=empsjp;
by first;
run;

data EmpsAll4;
   set EmpsCN EmpsJP(rename=(Region=Country));
   by first;
run;
proc print data=EmpsAll4;
run;