proc fcmp outlib=orion.functions.dev;
function ReverseName(name $) $40;
return(catx('',scan(name,2,','),scan(name,1,',')));
endsub;
quit;
options cmplib=orion.functions;
data work.emplist;
set orion.employeeaddresses;
NewName=ReverseName(EmployeeName);
run;