Article ID: 189598
Article Last Modified on 8/24/1999
CREATE CURSOR cur1 (id_1 I(4), desc_1 C(20))
CREATE CURSOR cur2 (id_2 I(4), desc_2 C(20))
FOR l_n = 1 TO 100
INSERT INTO cur1 (id_1, desc_1) VALUES (l_n, "TABLE1__" + ;
ALLTRIM(STR(l_n)))
INSERT INTO cur2 (id_2, desc_2) VALUES (l_n, "TABLE2__" + ;
ALLTRIM(STR(l_n)))
ENDFOR
SET DELETED ON
SELECT * FROM cur1 FULL OUTER JOIN cur2 ON id_1 = id_2
WAIT WINDOW STR(_TALLY)+" records returned when no records are
deleted."
** Delete the last 50 records in cur1.
GO 51 IN cur1
DELETE REST IN cur1
** Issue the SQL statement again.
SELECT * FROM cur1 FULL OUTER JOIN cur2 ON id_1 = id_2
WAIT WINDOW STR(_TALLY)+" records returned when 50 records are
deleted;
in cur1"
** Recall the records in cur1.
SET DELETED OFF
RECALL ALL IN cur1
SET DELETED ON
** Delete the last 50 records in cur2.
GO 51 IN cur2
DELETE REST IN cur2
** Issue the SQL statement again.
SELECT * FROM cur1 FULL OUTER JOIN cur2 ON id_1 = id_2
WAIT WINDOW STR(_TALLY)+" records returned when 50 records are
deleted;
in cur2"
Additional query words: kbVFp500abug kbSQL
Keywords: kbbug kbpending kbcode KB189598