Mega Code Archive
Cursor expressions as arguments to functions called from SQL
<![CDATA[
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> create table org_company_site(
2 company_id number(8) not null,
3 site_no number(4) not null
4 );
Table created.
SQL> insert into org_company_site values (1001,1);
1 row created.
SQL> insert into org_company_site values (1002,2);
1 row created.
SQL> insert into org_company_site values (1003,3);
1 row created.
SQL> insert into org_company_site values (1004,1);
1 row created.
SQL> insert into org_company_site values (1004,2);
1 row created.
SQL> insert into org_company_site values (1004,3);
1 row created.
SQL> insert into org_company_site values (1005,1);
1 row created.
SQL> insert into org_company_site values (1005,4);
1 row created.
SQL> insert into org_company_site values (1005,5);
1 row created.
SQL> insert into org_company_site values (1006,1);
1 row created.
SQL>
SQL> CREATE OR REPLACE FUNCTION f_report(p_cursor SYS_REFCURSOR,p_title VARCHAR2)
2 RETURN NUMBER
3 IS
4 v_product_description VARCHAR2(20);
5 v_company_short_name VARCHAR2(30);
6 v_ret_code NUMBER;
7 BEGIN
8 BEGIN
9 dbms_output.put_line(p_title);
10
11 LOOP
12 FETCH p_cursor INTO v_product_description,v_company_short_name;
13 EXIT WHEN p_cursor%NOTFOUND;
14 dbms_output.put_line(rpad(v_product_description,20,' ')||' '||
15 rpad(v_company_short_name,30,' '));
16 END LOOP;
17 v_ret_code :=1;
18 EXCEPTION WHEN OTHERS THEN
19 v_ret_code :=SQLCODE;
20 END;
21 RETURN (v_ret_code);
22 END;
23 /
Function created.
SQL>
SQL> SELECT 'Report Generated on '||TO_CHAR(SYSDATE,'MM/DD/YYYY ') "Report1"
2 FROM DUAL
3 WHERE f_report(
4 CURSOR(SELECT h.product_description,o.company_short_name
5 FROM product h,company o
6 WHERE o.product_id =h.product_id
7 AND 1 < (SELECT count(os.site_no)
8 FROM org_company_site os
9 WHERE os.company_id =o.company_id)
10 ),
11 'List of Organizations located in more than one site'
12 )=1;
Report1
-------------------------------
Report Generated on 07/24/2008
1 row selected.
List of Organizations located in more than one site
Oracle D Inc.
Oracle E Inc.
SQL>
SQL> drop table company;
Table dropped.
SQL>
SQL> drop table product;
Table dropped.
SQL>
SQL> drop table org_company_site;
Table dropped.
SQL>
]]>