Test cursor attributes with an 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.
Related examples in the same category