Cursor, Fetch, and while...
From: Jeremy Moncho <jeremy.moncho_at_bluewin.ch>
Date: Thu, 04 Dec 2003 20:01:01 +0200
Message-ID: <BBF542FD.14A4%jeremy.moncho_at_bluewin.ch>
Date: Thu, 04 Dec 2003 20:01:01 +0200
Message-ID: <BBF542FD.14A4%jeremy.moncho_at_bluewin.ch>
Please be nice, it is my first day seeing cursors ;-)
id int,
fname VARCHAR2(20),
lname VARCHAR2(20)
);
insert into people values (0, 'lois', 'lane'); insert into people values (1, 'clark', 'kent'); insert into people values (2, 'jimmy', 'olsen');
set serveroutput on;
CREATE OR REPLACE PROCEDURE show(curr_id INT) AS
CURSOR curr_in IS SELECT fname, lname FROM people WHERE id=curr_id;
curr_fname VARCHAR2(20) := null;
curr_lname VARCHAR2(20) := null;
BEGIN
OPEN curr_in;
while curr_in%found loop
FETCH curr_in INTO curr_fname, curr_lname;
dbms_output.put_line('done');
dbms_output.put_line(curr_fname || ' ' || curr_lname);
end loop;
EXCEPTION
WHEN OTHERS THEN
dbms_output.put_line(sqlcode || ' ' || sqlerrm);
END;
/
Received on Thu Dec 04 2003 - 19:01:01 CET