>>* THERMO calls >>* parsing >>RECNO=1 >>* load data >>RECNO=2 >>RECNO=3 >>RECNO=4 >>RECNO=8 >>>>
>>* THERMO calls >>* parsing >>RECNO=8 && Bug >>RECNO=8 && bug >>RECNO=1 >>* load data >>RECNO=2 >>RECNO=3 >>RECNO=4 >>RECNO=5 && Bug >>RECNO=6 && Bug >>RECNO=7 && Bug >>RECNO=8 >>>>
>>CLEAR >>SET ASSERTS OFF >>SET CPDIALOG OFF >>SET DEVELOPMENT OFF >>SET COMPATIBLE FOXPLUS >>SET HEADINGS ON >>SET STATUS BAR OFF >>SET NOTIFY OFF >>SET NOTIFY CURSOR OFF >>SET TEXTMERGE NOSHOW >> >>SET OPTIMIZE ON >> >>SET ENGINEBEHAVIOR 80 >> >>WITH CREATEOBJECT("session") >> SET DATASESSION TO (.datasessionid) && default set >> >> SET NULLDISPLAY TO "I'm null" >> CREATE CURSOR myTest (A I NULL) >> INSERT INTO myTest VALUES (5) >> INSERT INTO myTest VALUES (0) >> INSERT INTO myTest VALUES (0) >> INSERT INTO myTest VALUES (null) >> INSERT INTO myTest VALUES (2) && VFP don't visit THERMO here >> INSERT INTO myTest VALUES (1) && VFP don't visit THERMO here >> INSERT INTO myTest VALUES (7) && VFP don't visit THERMO here >> INSERT INTO myTest VALUES (0) >> >>SELECT * FROM myTest; >> WHERE (MOD(A,1000)#0 OR THERMO(A)); >> INTO CURSOR rrr >> >>ENDWITH >> >>PROCEDURE THERMO(vValue) >> ? "recno()=",RECNO(),"A=",vValue >>>>