what = "1"$|"2"$|"3";
where = "1";
print indsav(what, where);
print "---------------";
print indsavtmp(what, where);

proc (1) = indsavtmp(what, where);
//If where is a string, force it
//to be a string array as workaround
 if type(where) == 13;
    where = where$|where;
 endif;
retp(indsav(what, where));
endp;

type is a command that returns the type of a variable. The number 13 means a string.