Mega Code Archive

 

Categories / Oracle PLSQL / PL SQL

 

Overloading Packaged Subprograms

SQL> 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> 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> SQL> SQL> CREATE TABLE session (   2    department       CHAR(3),   3    course           NUMBER(3),   4    description      VARCHAR2(2000),   5    max_lecturer     NUMBER(3),   6    current_lecturer NUMBER(3),   7    num_credits      NUMBER(1),   8    room_id          NUMBER(5)   9    ); Table created. SQL> SQL> INSERT INTO session(department, course, description, max_lecturer, current_lecturer, num_credits, room_id)   2              VALUES ('HIS', 101, 'History 101', 30, 11, 4, 20000); 1 row created. SQL> SQL> INSERT INTO session(department, course, description, max_lecturer, current_lecturer, num_credits, room_id)   2              VALUES ('HIS', 301, 'History 301', 30, 0, 4, 20004); 1 row created. SQL> SQL> INSERT INTO session(department, course, description, max_lecturer, current_lecturer, num_credits, room_id)   2              VALUES ('CS', 101, 'Computer Science 101', 50, 0, 4, 20001); 1 row created. SQL> SQL> INSERT INTO session(department, course, description, max_lecturer, current_lecturer, num_credits, room_id)   2              VALUES ('ECN', 203, 'Economics 203', 15, 0, 3, 20002); 1 row created. SQL> SQL> INSERT INTO session(department, course, description, max_lecturer, current_lecturer, num_credits, room_id)   2              VALUES ('CS', 102, 'Computer Science 102', 35, 3, 4, 20003); 1 row created. SQL> SQL> INSERT INTO session(department, course, description, max_lecturer, current_lecturer, num_credits, room_id)   2              VALUES ('MUS', 410, 'Music 410', 5, 4, 3, 20005); 1 row created. SQL> SQL> INSERT INTO session(department, course, description, max_lecturer, current_lecturer, num_credits, room_id)   2              VALUES ('ECN', 101, 'Economics 101', 50, 0, 4, 20007); 1 row created. SQL> SQL> INSERT INTO session(department, course, description, max_lecturer, current_lecturer, num_credits, room_id)   2              VALUES ('NUT', 307, 'Nutrition 307', 20, 2, 4, 20008); 1 row created. SQL> SQL> INSERT INTO session(department, course, description, max_lecturer, current_lecturer, num_credits, room_id)   2              VALUES ('MUS', 100, 'Music 100', 100, 0, 3, NULL); 1 row created. SQL> 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 OR REPLACE PACKAGE ClassPackage AS   2    PROCEDURE AddStudent(p_ID  IN lecturer.id%TYPE,   3                         p_Department IN session.department%TYPE,   4                         p_Course     IN session.course%TYPE);   5   6    PROCEDURE AddStudent(p_FirstName IN lecturer.first_name%TYPE,   7                         p_LastName  IN lecturer.last_name%TYPE,   8                         p_Department IN session.department%TYPE,   9                         p_Course     IN session.course%TYPE);  10  11  END ClassPackage;  12  / Package created. SQL> SQL> CREATE OR REPLACE PACKAGE BODY ClassPackage AS   2    PROCEDURE AddStudent(p_ID  IN lecturer.id%TYPE,   3                         p_Department IN session.department%TYPE,   4                         p_Course     IN session.course%TYPE) IS   5    BEGIN   6      INSERT INTO myStudent (student_id, department, course)   7        VALUES (p_ID, p_Department, p_Course);   8      COMMIT;   9    END AddStudent;  10  11    PROCEDURE AddStudent(p_FirstName IN lecturer.first_name%TYPE,  12                         p_LastName  IN lecturer.last_name%TYPE,  13                         p_Department IN session.department%TYPE,  14                         p_Course     IN session.course%TYPE) IS  15      myLecturerID lecturer.ID%TYPE;  16    BEGIN  17      SELECT ID  18        INTO myLecturerID  19        FROM lecturer  20        WHERE first_name = p_FirstName  21        AND last_name = p_LastName;  22  23      INSERT INTO myStudent (student_id, department, course)  24        VALUES (myLecturerID, p_Department, p_Course);  25      COMMIT;  26    END AddStudent;  27  28  END ClassPackage;  29  / Package body created. SQL> drop table myStudent; Table dropped. SQL> drop table session; Table dropped. SQL> drop table lecturer; Table dropped.