>* 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 >>
where ( iif( empty(mod(A,1000)), TRUE, Thermo(A)) )