%let str7=ABC DEF UVW XYZ;

%let str8 = %qsysfunc(quote(%qsysfunc(tranwrd(%qsysfunc(compbl(%qsysfunc(strip(%upcase(&str7.))))),%str( ),%nrstr(%")))));

%put ^^^^&str8;

proc fcmp outlib=work.funcs.funcs;

    function delimit_words(iString $) $;
    result = '"' || tranwrd(cats(compbl(iString))," ", '" ,"') || '"';
    return (result );
    endsub;

run;


%let x =   A  B  C   ;
%let y = %sysfunc(delimit_words(&x));
%put &y;