CREATE CURSOR crsTest (cCode char(4), cText C(20)) INSERT INTO crsTest VALUES('0001', "L 1") INSERT INTO crsTest VALUES('0001', "L 1") INSERT INTO crsTest VALUES('0001', "L 1") INSERT INTO crsTest VALUES('0001', "L 1") INSERT INTO crsTest VALUES('0002', "L 2") INSERT INTO crsTest VALUES('0002', "L 2") INSERT INTO crsTest VALUES('0002', "L 2") INSERT INTO crsTest VALUES('0002', "L 2") CREATE CURSOR crsTest1 (cCode char(4)) INSERT INTO crsTest1 VALUES('0001') UPDATE crsTest ; SET cText = TRIM(cText) + " Updated" ; FROM crsTest ; LEFT JOIN crsTest1 ; ON crsTest.cCode = crsTest1.cCode ; WHERE crsTest1.cCode IS NULL
>CREATE CURSOR crsTest (cCode char(4)) > >INSERT INTO crsTest VALUES('0001') >INSERT INTO crsTest VALUES('0001') >INSERT INTO crsTest VALUES('0001') >INSERT INTO crsTest VALUES('0001') >INSERT INTO crsTest VALUES('0002') >INSERT INTO crsTest VALUES('0002') >INSERT INTO crsTest VALUES('0002') >INSERT INTO crsTest VALUES('0002') > >CREATE CURSOR crsTest1 (cCode char(4)) >INSERT INTO crsTest1 VALUES('0001') > >DELETE crsTest; > FROM crsTest; >LEFT JOIN crsTest1; > ON crsTest.cCode = crsTest1.cCode; > WHERE crsTest1.cCode IS NULL >SELECT crsTest >BROWSE NORMAL > >**** TA - DA whole crsTest cursor apears here >**** no marked records at all. >>
>SELECT *; > FROM crsTest; >LEFT JOIN crsTest1; > ON crsTest.cCode = crsTest1.cCode; > WHERE crsTest1.cCode IS NULL >>