FoxPro/Visual FoxPro - division por cero

CLEAR

CREATE CURSOR micursor(dato n(3), desbordado c(2))

lcCampo="dato"&&campo a validar

FOR a=101 TO 103

    INSERT INTO micursor(dato) values(a)

ENDFOR

FOR a=1 TO 3

    INSERT INTO micursor(dato) values(a*1000)

ENDFOR

FOR a=21 TO 23

    INSERT INTO micursor(dato) values(a)

ENDFOR

FOR a=201 TO 203

    INSERT INTO micursor(dato) values(1*1000)

ENDFOR

*UPDATE micursor SET desbordado="SI" WHERE LEN(ALLTRIM(STR(&lcCampo)))>FSIZE(lcCampo)&&igual funciona

*UPDATE micursor SET desbordado="SI" WHERE &lcCampo>9999999999999999999&&igual funciona

UPDATE micursor SET desbordado="SI" WHERE "*" $ ALLTRIM(STR(&lcCampo))&&igual funciona

BROWSE