Mega Code Archive

 

Categories / Oracle PLSQL Tutorial / Cursor

 

Using %ROWCOUNT as an incremental rowcount

SQL> SQL> create table product(   2     product_id number(4)     not null,   3     product_description varchar2(20) not null   4  ); Table created. SQL> SQL> insert into product values (1,'Java'); 1 row created. SQL> insert into product values (2,'Oracle'); 1 row created. SQL> insert into product values (3,'C#'); 1 row created. SQL> insert into product values (4,'Javascript'); 1 row created. SQL> insert into product values (5,'Python'); 1 row created. SQL> SQL> create table company(   2     product_id        number(4)    not null,   3     company_id          NUMBER(8)    not null,   4     company_short_name  varchar2(30) not null,   5     company_long_name   varchar2(60)   6  ); Table created. SQL> insert into company values(1,1001,'A Inc.','Long Name A Inc.'); 1 row created. SQL> insert into company values(1,1002,'B Inc.','Long Name B Inc.'); 1 row created. SQL> insert into company values(1,1003,'C Inc.','Long Name C Inc.'); 1 row created. SQL> insert into company values(2,1004,'D Inc.','Long Name D Inc.'); 1 row created. SQL> insert into company values(2,1005,'E Inc.','Long Name E Inc.'); 1 row created. SQL> insert into company values(2,1006,'F Inc.','Long Name F Inc.'); 1 row created. SQL> SQL> DECLARE   2  CURSOR cursorValue IS   3    SELECT h.product_description,o.company_short_name   4    FROM company o,product h   5    WHERE o.product_id =h.product_id   6    ORDER by 2;   7    num_total_rows NUMBER;   8  BEGIN   9    FOR idx IN cursorValue LOOP  10      IF cursorValue%ROWCOUNT =1 THEN  11        dbms_output.put_line(rpad('-',20,'-')||' '||rpad('-',30,'-'));  12      END IF;  13      dbms_output.put_line(rpad(idx.product_description,20,' ')||' '||  14      rpad(idx.company_short_name,30,' '));  15      num_total_rows :=cursorValue%ROWCOUNT;  16    END LOOP;  17    IF num_total_rows >0 THEN  18      dbms_output.new_line;  19      dbms_output.put_line('Total Organizations = '||to_char(num_total_rows));  20    END IF;  21  END;  22  / -------------------- ------------------------------ Java                 A Inc. Java                 B Inc. Java                 C Inc. Oracle               D Inc. Oracle               E Inc. Oracle               F Inc. Total Organizations = 6 PL/SQL procedure successfully completed. SQL> SQL> drop table product; Table dropped. SQL> SQL> drop table company; Table dropped.