/* create a full series name from a string */
_formatdsname(s)
{
        local name, ver;

        name = strget(1, s, ".");
        if (strlen(name) > 0) {
                ver = strget(2, s, ".");
                if (strlen(ver) == 0) {
                        ver = 1;
                }
                else {
                        ver = castint(ver);
                }
                if (ver <= 0) ver = 1;

                name = sprintf("%s.%d.", name, ver);
        }
        return(name);
}