RosettaCodeData/Task/Reverse-a-string/SAS/reverse-a-string.sas

data _null_;
length a b $11;
a="I am Legend";
b=reverse(a);
put a;
put b;
run;