CLEAR *CREATE CURSOR aaa ( ff I DEFAULT RECNO()) CREATE CURSOR ccc ( ff I DEFAULT RECNO()) APPEND BLANK APPEND BLANK APPEND BLANK APPEND BLANK APPEND BLANK APPEND BLANK APPEND BLANK GO TOP CREATE CURSOR aaa ( ff I DEFAULT RECNO()) SELECT RECNO('B'),RECNO('C'),* FROM ccc B,ccc C WHERE myCall(B.ff,C.ff) USE USE IN ccc FUNCTION MYCALL(xx,yy) RETURN RECNO('B')=RECNO('C')+1 ENDFUNC>Hi Sergey,
>CLEAR >CREATE CURSOR ccc ( ff I DEFAULT RECNO()) >APPEND BLANK >APPEND BLANK >APPEND BLANK >APPEND BLANK >APPEND BLANK >APPEND BLANK >APPEND BLANK >GO TOP > >SELECT RECNO('B'),RECNO('C'),* FROM ccc B,ccc C WHERE myCall(B.ff,C.ff) > >USE >USE IN ccc > >FUNCTION MYCALL(xx,yy) >RETURN RECNO('B')=RECNO('C')+1 >ENDFUNC >>