/* last full series name in the list */
_lastsername(ds, serlist, quote)
{
        local i, s, name = "";

        if (argc < 3) quote = 0;

        i = 1; 
        do 
        {
                s = strget(i, serlist, ",");
                if (strlen(s) > 0)
                {
                        name = ds + "." + s;
                        if (quote) name = '"' + name + '"';
                        i++;
                }
                else
                {
                        break;
                }
        } while (1);

        return(name);
}