It seems to have gone as soon as I changed SYS calls using ANSI versions. So: "CharUpperBuffA", "CompareStringA" and others.
The cause was probably recursive error handler being called in this function.
Code: Select all
14600 DEF FNlibPLFldNum(fld$)
14610 IF fld$=="0":=0
14620 LOCAL fld%,u$
14630
14640 ON ERROR LOCAL PROClibMsgBox("veldnaam '"+fld$+"' is onbekend.",2) : END
14650
14660 fld%=VALfld$
14670 IF fld%>__PLflds% PROClibMsgBox("veld #"+fld$+" bestaat niet.",2) : END
14680 IF fld%==0 THEN
14690 u$=FNlibUpper(fld$)
14700 fld%=EVAL("`"+u$)
14710 IF u$<fld$ fld%=-fld%:REM Veldnaam bevatte kleine letters
14720 ELSE
14730 fld%+=SGN(fld%)*10000:REM Indicatie dat een veldnr (ipv naam) is gebruikt
14740 ENDIF
14750 =fld%
That would eventually throw a No Room, right?
Mike