data a;
        input a $ @@；
        cards;
One TWO three FOur fiVE SiX seVen EiGht
;
run;
data b;
        set a;
   b=substr(a,1,1);
        c=substr(a,2,9);
        b1=upcase(b);
        c1=lowcase(c);
        d=strip(b1)||strip(c1);
run;
proc print data=b;
run;

propcase()