Test cursor attributes with an implicit cursor : Implicit Cursor « Cursor « Oracle PL/SQL Tutorial

1. Oracle PL/SQL Tutorial
2. Cursor
3. Implicit Cursor

SQL>
SQL> CREATE TABLE book (
  2    isbn      CHAR(10) PRIMARY KEY,
  3    category  VARCHAR2(20),
  4    title     VARCHAR2(100),
  5    num_pages NUMBER,
  6    price     NUMBER,
  7    copyright NUMBER(4),
  8    emp1   NUMBER,
  9    emp2   NUMBER,
 10    emp3   NUMBER
 11  );

Table created.

SQL>
SQL> INSERT INTO book (isbn, category, title, num_pages, price, copyright, emp1, emp2, emp3)
  2             VALUES ('1', 'Database', 'Oracle', 563, 39.99, 2009, 1, 2, 3);

1 row created.

SQL> INSERT INTO book (isbn, category, title, num_pages, price, copyright, emp1, emp2)
  2             VALUES ('2', 'Database', 'MySQL', 765, 44.99, 2009, 4, 5);

1 row created.

SQL> INSERT INTO book (isbn, category, title, num_pages, price, copyright, emp1, emp2, emp3)
  2             VALUES ('3', 'Database', 'SQL Server', 404, 39.99, 2001, 6, 7, 8);

1 row created.

SQL>
SQL> SET SERVEROUTPUT ON ESCAPE OFF
SQL>
SQL>
SQL> BEGIN
  2     DBMS_OUTPUT.ENABLE(1000000);
  3     UPDATE book SET price = price * .90 WHERE isbn = '1';
  4
  5     DBMS_OUTPUT.PUT_LINE(SQL%ROWCOUNT||' rows updated');
  6
  7     IF SQL%NOTFOUND
  8     THEN
  9        DBMS_OUTPUT.PUT_LINE('Unable to update isbn 1');
 10     END IF;
 11
 12     COMMIT;
 13
 14  EXCEPTION
 15     WHEN OTHERS
 16        THEN
 17        DBMS_OUTPUT.PUT_LINE(SQLERRM);
 18  END;
 19  /
1 rows updated

PL/SQL procedure successfully completed.

SQL>
SQL> drop table book;

Table dropped.