/* last dataset name in the list */
_lastdsname(dslist, quote)
{
        local i, s, name = "";

        if (argc < 2) quote = 0;

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

        return(name);
}