/* format names to display dataset comment */
_dscomment(ds, serlist)
{
        local name, comment = "";

        if (argc < 2)
        {
                if (argc < 1) ds = "";

                serlist = "";
        }

        if (strlen(ds) > 0)
        {
                if (strlen(serlist) <= 0)
                {
                        serlist = strget(1, objectlist(4, 0, 1, ds));
                }

                if (strlen(serlist) > 0)
                { 
                        name = _firstsername(ds, serlist);

                        if (strlen(name) > 0) 
                        {
                                if (_isdsname(name))
                                {
                                        comment = getcomment(1, name);
                                }
                        }
                }
        }

        return(comment);
}