/* return formatted list of dataset names */
_getdslist(dslist, quote)
{
        local i, len, name, namelist = "";

        if (argc < 2)
        {
                if (argc < 1) dslist = "";
                quote = 0;
        }

        i = 1; 
        do 
        {
                name = strget(i, dslist, ",");
                if (strlen(name) > 0)
                {
                        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);
        }
}