Concatenation

Capture the data from multiple file and load in a new file one by one in sequential order
/*concatenation*/
/*trimfunction*/
data emp;
input pid surname $ name $;
cards;
101 konda ram
102 chittu kumar
;

data emp1;
set emp;
name1=compress(surname) || ' ' || (name);
run;
proc print data=emp1;
run;

data emp2;
set emp;
name1=trim(surname) || ' ' || (name);
drop surname name;
rename name1=name;
run;

proc print data=emp2;
run;

proc import datafile='C:\Documents and Settings\mobileclub\Desktop\source\xls\data.xls'
out=mh dbms=excel replace;
sheet='sheet3$';
run;

data ae;
set mh;
treatment=compress(drug||'('||dose||')');
ae=scan(adevents,1);
adr=scan(adevents,2);
run;

proc print data=ae;
run;

proc import datafile='C:\Documents and Settings\mobileclub\Desktop\source\xls\data.xls'
out=qw dbms=excel replace;
sheet='sheet1$';
run;

data qw1;
set qw;
surname=scan(fname,1);
i=index(fname,' ');
name=substr(fname,i+1);
drop fname i;
run;
proc print data=qw1;
run;

data qw2;
set qw;
name=substr(fname,index(fname,' ')+1)||'.'||upcase(substr(fname,1,1));
run;

proc print data=qw2;
run;