Create package and member cursor : Package « PL SQL « Oracle PL / SQL






Create package and member cursor

    

SQL>
SQL>
SQL> CREATE TABLE gifts (
  2    gift_id             INTEGER          CONSTRAINT gifts_pk PRIMARY KEY,
  3    gift_type_id        INTEGER          ,
  4    name                   VARCHAR2(30)     NOT NULL,
  5    description            VARCHAR2(50),
  6    price                  NUMBER(5, 2)
  7  );

Table created.

SQL>
SQL>
SQL> INSERT INTO gifts (gift_id, gift_type_id, name, description, price) VALUES (1, 1, 'Flower', 'Birthday', 19.95);

1 row created.

SQL> INSERT INTO gifts (gift_id, gift_type_id, name, description, price) VALUES (2, 1, 'Computer', 'New Year', 30.00);

1 row created.

SQL> INSERT INTO gifts (gift_id, gift_type_id, name, description, price) VALUES (3, 2, 'iPod', 'Birthday', 25.99);

1 row created.

SQL> INSERT INTO gifts (gift_id, gift_type_id, name, description, price) VALUES (4, 2, 'iPhone', 'New Year', 13.95);

1 row created.

SQL> INSERT INTO gifts (gift_id, gift_type_id, name, description, price) VALUES (5, 2, 'Book', 'Birthday', 49.99);

1 row created.

SQL>
SQL> CREATE OR REPLACE PACKAGE gift_package AS
  2    TYPE t_ref_cursor IS REF CURSOR;
  3    FUNCTION get_gifts_ref_cursor RETURN t_ref_cursor;
  4    PROCEDURE updatePrice (p_gift_id IN gifts.gift_id%TYPE,p_factor IN NUMBER);
  5  END gift_package;
  6  /

Package created.

SQL>
SQL> CREATE OR REPLACE PACKAGE BODY gift_package AS
  2    FUNCTION get_gifts_ref_cursor
  3    RETURN t_ref_cursor IS
  4      gifts_ref_cursor t_ref_cursor;
  5    BEGIN
  6      OPEN gifts_ref_cursor FOR SELECT gift_id, name, price FROM gifts;
  7
  8      RETURN gifts_ref_cursor;
  9    END get_gifts_ref_cursor;
 10
 11    PROCEDURE updatePrice(p_gift_id IN gifts.gift_id%TYPE,p_factor IN NUMBER) AS
 12      v_gift_count INTEGER;
 13    BEGIN
 14      SELECT COUNT(*)INTO v_gift_count FROM gifts WHERE gift_id = p_gift_id;
 15      IF v_gift_count = 1 THEN
 16        UPDATE gifts
 17        SET price = price * p_factor
 18        WHERE gift_id = p_gift_id;
 19        COMMIT;
 20      END IF;
 21    EXCEPTION
 22      WHEN OTHERS THEN
 23        ROLLBACK;
 24    END updatePrice;
 25  END gift_package;
 26  /

Package body created.

SQL>
SQL> drop table gifts;

Table dropped.

   
    
    
    
  








Related examples in the same category

1.Create a package declaration and create its body after
2.Create a package level variable
3.call utitilities package
4.Package for output employee table and log message
5.Package with package level cursor variable
6.Overloading Packaged Subprograms
7.A PL/SQL package with two methods
8.Package level Exception
9.This package will not compile because the body does not match the specification.
10.dependencies between an anonymous calling block and package runtime state.
11.RESTRICT_REFERENCES pragma.
12.Without RESTRICT_REFERENCES pragma.
13.Persistance of packaged variables.
14.A package with one method
15.Package level variable as global level variable
16.Global definition
17.Student fetch package
18.Cursor operation between package functions
19.The pragma is not valid at the package level.
20.Nested package reference
21.Overloaded packages.
22.Overloading based on user defined object types.
23.package RECURSION
24.Crosss reference between two packages
25.Counter package
26.Package initialization.
27.Packages allows forward references, thus opening the possibilities for recursion.
28.Use package level type as global variables
29.Use package member variable to pass value