View Raw SPL
/* convert a series list into a quoted series list */
_parsefullname(list)
{
        local i, len, namelist = "";

        i = 1;

        do
        {
                s = strget(i, list, ",");
                if (strlen(s) > 0)
                {
                        namelist += '"' + s + '",';
                        i++;
                }
                else
                {
                        break;
                }
        } while(1);

        if ((len = strlen(namelist)) > 0)
        {
                namelist = strextract(namelist, 1, len - 1);
        }
        if (outargc > 1)
        {
                return(namelist, i-1);
        }
        else
        {
                return(namelist);
        }
}