Error "Data is too long for field"

[Lothar Krepke]

Howdy,

I have some code that fires an error that I've not seen before. And,
when I google it, I get only ONE hit (Where's my prize...?)

In any case the error is "Data is too long for field" and I am
baffled.

I've marked the line that fires the error with "/\/\/\/\/\/\/\" below,
and would appreciate any help you might provide.

Many thanks,

A.C.

method pushButton(var eventInfo Event)
var
tcRegister, tcNewprogs tCursor
numVal smallint
daFilter dynArray[] string
progStartDate date
progName string
endVar

if not tcRegister.open(":DATA:register.db")
then errorShow()
endIf

while not tcRegister.eot()

if not tcRegister.locate("Sts","!")
then errorShow()
endIf

progName = tcRegister.prog

if not tcNewprogs.open(":DATA:newProgs.db")
then errorShow()
endIf

if not tcNewProgs.locate("Prog","Progname")
/\/\/\/\/\/\/\/\/\/\/\/\/\/\ line above fires error \/\/\/\/\/\/\/\/\/
\
\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/
\/\/\/\/\/\/\
then errorShow()
endIf

progStartDate = tcNewProgs.StartDate

numVal = tcRegister.num

if progStartDate < today()
then
daFilter["Num"] = string (numVal)
if not
People.Page1.MROatTop.IDrecord.NumBox.Num.setGenFilter(daFilter) then
errorShow()
endIf
else
tcRegister.locateNext("Sts","!")
endIf

tcRegister.close()
tcNewProgs.close()

endWhile

endMethod