CREATE OR REPLACE PACKAGE admin_data
AS
  TYPE gencurtyp IS REF CURSOR;
 
  PROCEDURE open_cv(generic_cv  IN OUT GENCURTYP,choice  INT);
END admin_data;
/
CREATE OR REPLACE PACKAGE BODY admin_data
AS
  PROCEDURE Open_cv
       (generic_cv  IN OUT GENCURTYP,
        choice      INT)
  IS
  BEGIN
    IF choice = 1 THEN
      OPEN generic_cv FOR
        SELECT *
        FROM   employees;
    ELSIF choice = 2 THEN
      OPEN generic_cv FOR
        SELECT *
        FROM   departments;
    ELSIF choice = 3 THEN
      OPEN generic_cv FOR
        SELECT *
        FROM   jobs;
    END IF;
  END;
END admin_data;
/

Cursor Variable with Different Return Types
 
0 comments:
Post a Comment