How to up case only first letter and last letter of a word?

[Reeza]

You can cobble together some string functions, primarily, SUBSTR(), PROPCASE() and UPCASE().  

This would be a brute force method.

data want;
input word $;
word2 = catt(propcase(substr(word, 1, length(word)-1)), 
			upcase(substr(word, length(word), 1)));
cards;
word
random
mIxed
CASE
WORDS
;
run;

proc print;run;

[ballardw]

Is your actual data going to contain any spaces imbedded?

[PGStats]

Or harness the power of regular expressions:

data have;
length str $40;
input str &;
cards;
word
random
mIxed
CASE
WORDS
Whole string of words.
a ab abc abc-def
;

data want;
if not prx1 then prx1 + prxParse("s/\b(\w?)(\w*)(\w)\b/\u\1\L\2\E\u\3/");
set have;
length StrinG $40;
StrinG = prxChange(prx1, -1, str);
drop prx1;
run;

proc sql; select * from want; quit;