Mega Code Archive

Use EXIT WHEN studentCursor%NOTFOUND just after fetch statement

SQL> SQL> CREATE TABLE lecturer ( 2 id NUMBER(5) PRIMARY KEY, 3 first_name VARCHAR2(20), 4 last_name VARCHAR2(20), 5 major VARCHAR2(30), 6 current_credits NUMBER(3) 7 ); Table created. SQL> SQL> INSERT INTO lecturer (id, first_name, last_name, major,current_credits) 2 VALUES (10001, 'Scott', 'Lawson','Computer Science', 11); 1 row created. SQL> SQL> INSERT INTO lecturer (id, first_name, last_name, major, current_credits) 2 VALUES (10002, 'Mar', 'Wells','History', 4); 1 row created. SQL> SQL> INSERT INTO lecturer (id, first_name, last_name, major,current_credits) 2 VALUES (10003, 'Jone', 'Bliss','Computer Science', 8); 1 row created. SQL> SQL> INSERT INTO lecturer (id, first_name, last_name, major,current_credits) 2 VALUES (10004, 'Man', 'Kyte','Economics', 8); 1 row created. SQL> SQL> INSERT INTO lecturer (id, first_name, last_name, major,current_credits) 2 VALUES (10005, 'Pat', 'Poll','History', 4); 1 row created. SQL> SQL> INSERT INTO lecturer (id, first_name, last_name, major,current_credits) 2 VALUES (10006, 'Tim', 'Viper','History', 4); 1 row created. SQL> SQL> INSERT INTO lecturer (id, first_name, last_name, major,current_credits) 2 VALUES (10007, 'Barbara', 'Blues','Economics', 7); 1 row created. SQL> SQL> INSERT INTO lecturer (id, first_name, last_name, major,current_credits) 2 VALUES (10008, 'David', 'Large','Music', 4); 1 row created. SQL> SQL> INSERT INTO lecturer (id, first_name, last_name, major,current_credits) 2 VALUES (10009, 'Chris', 'Elegant','Nutrition', 8); 1 row created. SQL> SQL> INSERT INTO lecturer (id, first_name, last_name, major,current_credits) 2 VALUES (10010, 'Rose', 'Bond','Music', 7); 1 row created. SQL> SQL> INSERT INTO lecturer (id, first_name, last_name, major,current_credits) 2 VALUES (10011, 'Rita', 'Johnson','Nutrition', 8); 1 row created. SQL> SQL> INSERT INTO lecturer (id, first_name, last_name, major,current_credits) 2 VALUES (10012, 'Sharon', 'Clear','Computer Science', 3); 1 row created. SQL> SQL> CREATE TABLE myStudent ( 2 student_id NUMBER(5) NOT NULL, 3 department CHAR(3) NOT NULL, 4 course NUMBER(3) NOT NULL, 5 grade CHAR(1) 6 ); Table created. SQL> SQL> SQL> SQL> SQL> INSERT INTO myStudent (student_id, department, course, grade) 2 VALUES (10000, 'CS', 102, 'A'); 1 row created. SQL> SQL> INSERT INTO myStudent (student_id, department, course, grade) 2 VALUES (10002, 'CS', 102, 'B'); 1 row created. SQL> SQL> INSERT INTO myStudent (student_id, department, course, grade) 2 VALUES (10003, 'CS', 102, 'C'); 1 row created. SQL> SQL> INSERT INTO myStudent (student_id, department, course, grade) 2 VALUES (10000, 'HIS', 101, 'A'); 1 row created. SQL> SQL> INSERT INTO myStudent (student_id, department, course, grade) 2 VALUES (10001, 'HIS', 101, 'B'); 1 row created. SQL> SQL> INSERT INTO myStudent (student_id, department, course, grade) 2 VALUES (10002, 'HIS', 101, 'B'); 1 row created. SQL> SQL> INSERT INTO myStudent (student_id, department, course, grade) 2 VALUES (10003, 'HIS', 101, 'A'); 1 row created. SQL> SQL> INSERT INTO myStudent (student_id, department, course, grade) 2 VALUES (10004, 'HIS', 101, 'C'); 1 row created. SQL> SQL> INSERT INTO myStudent (student_id, department, course, grade) 2 VALUES (10005, 'HIS', 101, 'C'); 1 row created. SQL> SQL> INSERT INTO myStudent (student_id, department, course, grade) 2 VALUES (10006, 'HIS', 101, 'E'); 1 row created. SQL> SQL> INSERT INTO myStudent (student_id, department, course, grade) 2 VALUES (10007, 'HIS', 101, 'B'); 1 row created. SQL> SQL> INSERT INTO myStudent (student_id, department, course, grade) 2 VALUES (10008, 'HIS', 101, 'A'); 1 row created. SQL> SQL> INSERT INTO myStudent (student_id, department, course, grade) 2 VALUES (10009, 'HIS', 101, 'D'); 1 row created. SQL> SQL> INSERT INTO myStudent (student_id, department, course, grade) 2 VALUES (10010, 'HIS', 101, 'A'); 1 row created. SQL> SQL> INSERT INTO myStudent (student_id, department, course, grade) 2 VALUES (10008, 'NUT', 307, 'A'); 1 row created. SQL> SQL> INSERT INTO myStudent (student_id, department, course, grade) 2 VALUES (10010, 'NUT', 307, 'A'); 1 row created. SQL> SQL> INSERT INTO myStudent (student_id, department, course, grade) 2 VALUES (10009, 'MUS', 410, 'B'); 1 row created. SQL> SQL> INSERT INTO myStudent (student_id, department, course, grade) 2 VALUES (10006, 'MUS', 410, 'E'); 1 row created. SQL> SQL> INSERT INTO myStudent (student_id, department, course, grade) 2 VALUES (10011, 'MUS', 410, 'B'); 1 row created. SQL> SQL> INSERT INTO myStudent (student_id, department, course, grade) 2 VALUES (10000, 'MUS', 410, 'B'); 1 row created. SQL> SQL> SQL> CREATE TABLE MyTable ( 2 num_col NUMBER, 3 char_col VARCHAR2(60) 4 ); Table created. SQL> SQL> DECLARE 2 myLecturerID lecturer.id%TYPE; 3 firstName lecturer.first_name%TYPE; 4 v_LastName lecturer.last_name%TYPE; 5 6 CURSOR studentCursor IS 7 SELECT id, first_name, last_name 8 FROM lecturer 9 WHERE major = 'History'; 10 BEGIN 11 OPEN studentCursor; 12 LOOP 13 FETCH studentCursor INTO myLecturerID, firstName, v_LastName; 14 15 EXIT WHEN studentCursor%NOTFOUND; 16 17 INSERT INTO myStudent (student_id, department, course) 18 VALUES (myLecturerID, 'HIS', 301); 19 20 INSERT INTO MyTable (num_col, char_col) 21 VALUES (myLecturerID, firstName || ' ' || v_LastName); 22 23 END LOOP; 24 CLOSE studentCursor; 25 END; 26 / PL/SQL procedure successfully completed. SQL> SQL> select * from lecturer; ID FIRST_NAME LAST_NAME MAJOR CURRENT_CREDITS -------- -------------------- -------------------- ------------------------------ --------------- ######## Scott Lawson Computer Science 11.00 ######## Mar Wells History 4.00 ######## Jone Bliss Computer Science 8.00 ######## Man Kyte Economics 8.00 ######## Pat Poll History 4.00 ######## Tim Viper History 4.00 ######## Barbara Blues Economics 7.00 ######## David Large Music 4.00 ######## Chris Elegant Nutrition 8.00 ######## Rose Bond Music 7.00 ######## Rita Johnson Nutrition 8.00 ID FIRST_NAME LAST_NAME MAJOR CURRENT_CREDITS -------- -------------------- -------------------- ------------------------------ --------------- ######## Sharon Clear Computer Science 3.00 12 rows selected. SQL> SQL> select * from MyTable; NUM_COL CHAR_COL -------- ------------------------------------------------------------ ######## Mar Wells ######## Pat Poll ######## Tim Viper SQL> SQL> drop table lecturer; Table dropped. SQL> SQL> drop table MyTable; Table dropped. SQL> SQL> drop table myStudent; Table dropped.