Rick,
I think you could use CATX() function in data step to get this job done.

proc iml;
start vec_to_str(s, delim=' ');
str=blankstr(200);
do i=1 to ncol(s)*nrow(s);
str=catx(delim,str,s[i]);
end;
return str;
finish;

s = {"The","quick","brown","fox","jumped","over","the","lazy","dog"};

str = vec_to_str(s); /* use blank as a delimiter */
print str;

str = vec_to_str(s,'/'); /* use '/' as a delimiter */
print str;
quit;