Mega Code Archive

 

Categories / Oracle PLSQL / Cursor

 

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.