/* label window with dataset name */
dslabel(w)
{
        local dsname;

        if (argc < 1) w = refwindow(w0);

        /* dataset name */
        dsname = getdsname(w);

        if (strlen(dsname) > 0)
        {
                label(w, dsname);
        }
}


dslabel_error(errnum, errmes)
{
        return(0);
}