Quelle  sf_cursor.result   Sprache: Lisp

CREATE TABLE t1 (id INTEGER NULL , data INTEGER NULL, KEY(id));
CREATE TABLE t2 (i INTEGER NULL);
CREATE TABLE t3 (id INTEGER NULL, data INTEGER NULL, KEY(id));
CREATE TABLE t4 (i INTEGER NULL);
INSERT INTO t1 VALUES(1,1),(2,1),(3,4),(4,5);
INSERT INTO t2 VALUES(1),(2),(3);
CREATE FUNCTION sf1() RETURNS INTEGER
BEGIN
DECLARE done INT DEFAULT 0;
DECLARE a CHAR(16);
DECLARE b,c INT;
DECLARE cur1 CURSOR FOR SELECT id,data FROM t1;
DECLARE cur2 CURSOR FOR SELECT i FROM t2;
DECLARE CONTINUE HANDLER FOR SQLSTATE '02000' SET done = 1;
OPEN cur1;
OPEN cur2;
REPEAT
FETCH cur1 INTO a, b;
FETCH cur2 INTO c;
IF NOT done THEN
IF b < c THEN
INSERT INTO t3 VALUES (a,b);
ELSE
INSERT INTO t3 VALUES (a,c);
END IF;
END IF;
UNTIL done END REPEAT;
CLOSE cur1;
CLOSE cur2;
RETURN 0;
END//
SELECT sf1();
sf1()
0
SELECT * FROM t1 ORDER BY id;
id data
1 1
2 1
3 4
4 5
SELECT * FROM t2 ORDER BY i;
i
1
2
3
SELECT * FROM t3 ORDER BY id;
id data
1 1
2 1
3 3
INSERT INTO t4 VALUES(sf1());
SELECT * FROM t1 ORDER BY id;
id data
1 1
2 1
3 4
4 5
SELECT * FROM t2 ORDER BY i;
i
1
2
3
SELECT * FROM t3 ORDER BY id;
id data
1 1
1 1
2 1
2 1
3 3
3 3
UPDATE t4 SET i = sf1() + 1 WHERE i = sf1();
SELECT * FROM t1 ORDER BY id;
id data
1 1
2 1
3 4
4 5
SELECT * FROM t2 ORDER BY i;
i
1
2
3
SELECT * FROM t3 ORDER BY id;
id data
1 1
1 1
1 1
1 1
2 1
2 1
2 1
2 1
3 3
3 3
3 3
3 3
DELETE FROM t4 WHERE i = sf1() + 1;
SELECT * FROM t1 ORDER BY id;
id data
1 1
2 1
3 4
4 5
SELECT * FROM t2 ORDER BY i;
i
1
2
3
SELECT * FROM t3 ORDER BY id;
id data
1 1
1 1
1 1
1 1
1 1
2 1
2 1
2 1
2 1
2 1
3 3
3 3
3 3
3 3
3 3
DROP FUNCTION sf1;
DROP TABLE t1,t2,t3,t4;