/* return format list of full series names */
_getserlist(ds, serlist, quote)
{
        local i, s, len, name, namelist = "";

        if (argc < 3) quote = 0;

        i = 1; 
        do 
        {
                s = strget(i, serlist, ",");
                if (strlen(s) > 0)
                {
                        name = ds + "." + s;
                        if (quote) name = '"' + name + '"';
                        namelist += name + ",";
                        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);
        }
}