options msglevel=n;

proc copy out=work in=ia;
	select airports acities;
run;

proc contents data=airports;
run;

proc contents data=acities;
run;

proc append data=airports base=acities force;
run;

proc contents data=acities;
run;

proc copy in=ia out=work;
	select allemps pilots;
run;

data pilots(drop=oldphone);
	length Phone 8;
	set iaserver.pilots (keep=EmpID LastName Phone Location Division 
					rename=(Phone=OldPhone));
	phone=oldphone;
run;	

proc contents data=allemps;
run;

proc contents data=pilots;
run;

proc append base=allemps data=pilots force;
run;

proc print data=allemps;
	var phone;
run;

proc contents data=allemps;
run;