/* get units for a column - panel */
_gcunit(serstr, cnum)
{
        local nc, unitstr = "";

        nc   = eval(sprintf("numcols(%s)", serstr));
        cnum = castint(cnum);

        if (nc > 0 && cnum <= nc)
        {
                /* column based reference */
                unitstr = eval(sprintf("getvunits(%s, %d, -1)", serstr, cnum));
        }

        return(unitstr);
}


_gcunit_error(errnum)
{
        return("");
}