*test.prg CLOSE ALL susp loPinfo = NEWOBJECT('testclass','c:\agri\poult\psys30\testclass.prg') * we're in data session #1 x = lopinfo.testmethod() * back to data session #1 <b>*the next line generates a 'file in use' error</b> SELECT fm_cpprim ; FROM flckmast ; WHERE fm_flcode = 'BAA12046' INTO CURSOR CURS1 RETURN
*testclass.prg DEFINE CLASS testclass AS SESSION NAME = "testclass" PROCEDURE testmethod * we're now in data session #2 SELECT fm_cpprim ; FROM flckmast ; WHERE fm_flcode = 'BAA12046' ; INTO CURSOR Curs8 RETURN 0 ENDPROC ENDDEFINEThanx --