Calling a procedure that exist in another schema

hello , i need your help .
i would like to know how i can call a procedure that exist in another schema
what i did for example calling the procedure "proc" at schema "user1" from pl/sql code
begin
user1.proc(parm1,parm2);
end;
i got the error message
(1): PLS-00201: identifier 'user1.proc' must be declared
(2): PL/SQL: Statement ignored
but by calling it from SQL PLUS from the same current schema i got no errors
exec user1.proc(parm1,parm2);
thank you

Assuming that the call that is failing is located in a stored procedure or stored function, the problem is likely that your user's access to the user1.proc procedure is via a role and privileges granted through a role cannot be used in a definer's rights stored procedure or stored function.
You can verify this by disabling roles in your SQL*Plus session. If you do
SQL> set role none
SQL> exec user1.proc( p1, p2 );I would expect that you'll get the same error that you get in your stored procedure. Assuming that is the case, you'll need to ask the DBA to grant your user EXECUTE access on user1.proc directly not via a role.
Justin

Similar Messages

Unable to call a procedure from inside a another procedure

Dear members
I am trying to call a procedure from inside an another procedure.Both the procedures are present within the same package.I am trying to call the second procedure just before the end of the first procedure.Both the procedures are compiling fine but the tables are not getting populated inside the second procedure.Also the DBMS_OUTPUT statements present in second procedures are not getting displayed.(I feel the second procedured is not getting called).
The package specification is as follows:
CREATE OR REPLACE package ANVESH.conv_api_pkg
is
    PROCEDURE PROC_CONVERSION_API(FILE_PATH IN VARCHAR2,FILE_NAME IN VARCHAR2) ;
    TYPE cts_order_details IS TABLE OF XXCTS_ORDER_DETAILS_STG%ROWTYPE;
    PROCEDURE proc_conversion_api2(p_orderdetails IN cts_order_details) ;
end conv_api_pkg;The package body is as follows:
CREATE OR REPLACE package body ANVESH.conv_api_pkg
is
PROCEDURE PROC_CONVERSION_API(FILE_PATH IN VARCHAR2,FILE_NAME IN VARCHAR2)
IS
    v_file_type utl_file.file_type;
    v_buffer VARCHAR2(1000);
    V_CUSTOMER_NAME VARCHAR2(100);
    V_MANUFACTURER VARCHAR2(100);
    V_PRODUCT_NAME VARCHAR2(100);
    V_QUANTITY NUMBER;
    V_REQ_SHIP_DATE DATE;
    V_REQ_PRICE NUMBER;
    V_LOG_FILE utl_file.file_type;
    V_COUNT_CUST NUMBER;
    V_COUNT_PROD NUMBER;
   L_ORDER_LINES CONV_API_PKG.cts_order_details:=CONV_API_PKG.cts_order_details();
BEGIN
    DBMS_OUTPUT.PUT_LINE('Inside begin 1');
    v_file_type := UTL_FILE.fopen(FILE_PATH, FILE_NAME, 'r',null);
        DBMS_OUTPUT.PUT_LINE('Inside begin 1.1');
    LOOP
        BEGIN
                    DBMS_OUTPUT.PUT_LINE('Inside begin 2');
                     UTL_FILE.GET_LINE (v_file_type,v_buffer);
                    DBMS_OUTPUT.PUT_LINE('Inside begin 2.1');
                    DBMS_OUTPUT.PUT_LINE('the buffer is '||v_buffer);
                    DBMS_OUTPUT.PUT_LINE('the length of buffer is '||length(v_buffer));
                     V_CUSTOMER_NAME := trim(substr(v_buffer, 1, 30));
                     DBMS_OUTPUT.PUT_LINE('Customer Name is '||V_CUSTOMER_NAME);
                     V_MANUFACTURER := trim(substr(v_buffer, 31, 40));
                     DBMS_OUTPUT.PUT_LINE('Manufacturer is '||V_MANUFACTURER);
                     V_PRODUCT_NAME := trim(substr(v_buffer, 71, 20));
                     DBMS_OUTPUT.PUT_LINE('Product Name is '||V_PRODUCT_NAME);
                     V_QUANTITY      := to_number(trim(substr(v_buffer, 91, 5)));
                     DBMS_OUTPUT.PUT_LINE('Quantity is '||V_QUANTITY);
                     V_REQ_SHIP_DATE     := to_date(trim(substr(v_buffer, 96, 20)), 'DD-MON-YYYY');
                     DBMS_OUTPUT.PUT_LINE('Requested Ship Date is '|| V_REQ_SHIP_DATE);
                    V_REQ_PRICE        :=nvl(substr( trim(v_buffer), 116, length(v_buffer)-116),0);
                    --DBMS_OUTPUT.PUT_LINE('Requested Price is1 '||substr(v_buffer, 116, 5));
                    DBMS_OUTPUT.PUT_LINE('The requested price is '||V_REQ_PRICE);
            V_LOG_FILE := UTL_FILE.FOPEN(FILE_PATH, 'LOG_FILE.dat', 'A');
                IF (V_QUANTITY > 0)
                 THEN
                 DBMS_OUTPUT.PUT_LINE('The quantity is '||V_QUANTITY);
                   SELECT COUNT (*)
                   INTO V_COUNT_CUST
                   FROM CONVERSION_CUSTOMERS
                   WHERE CUSTOMER_NAME = V_CUSTOMER_NAME;
                   DBMS_OUTPUT.PUT_LINE('The Customer count is '||V_COUNT_CUST);
                   IF(V_COUNT_CUST > 0)
                   THEN
                       SELECT COUNT(*)
                       INTO V_COUNT_PROD
                       FROM conversion_products
                       WHERE PRODUCT_NAME = V_PRODUCT_NAME;
                       DBMS_OUTPUT.PUT_LINE('The Product count is '||V_COUNT_PROD);
                      IF(V_COUNT_PROD >0)
                       THEN
                            INSERT INTO XXCTS_ORDER_DETAILS_STG VALUES (V_CUSTOMER_NAME, V_PRODUCT_NAME, V_MANUFACTURER, V_QUANTITY, V_REQ_SHIP_DATE, V_REQ_PRICE, 'ACTIVE', 'ORDER TAKEN');
                       ELSE
                            DBMS_OUTPUT.PUT_LINE('PRODUCT SHOULD BE VALID');
                            UTL_FILE.PUT_LINE(V_LOG_FILE, 'PRODUCT SHOULD BE VALID');
                       END IF;
                   ELSE
                      DBMS_OUTPUT.PUT_LINE('CUSTOMER SHOULD BE VALID');
                      UTL_FILE.PUT_LINE(V_LOG_FILE, 'CUSTOMER SHOULD BE VALID');
                   END IF;
                ELSE
                    DBMS_OUTPUT.PUT_LINE('QUANTITY SHOULD BE VALID');
                    UTL_FILE.PUT_LINE(V_LOG_FILE, 'QUANTITY SHOULD BE VALID');
                END IF;
                EXCEPTION
                WHEN NO_DATA_FOUND THEN
                    EXIT;
                END;
    END LOOP;
SELECT CUSTOMER_NAME, PRODUCT_NAME, MANUFACTURER, QUANTITY, REQUESTED_SHIP_DATE, REQUESTED_PRICE, STATUS,MESSAGE
BULK COLLECT
INTO L_ORDER_LINES
FROM XXCTS_ORDER_DETAILS_STG;
DBMS_OUTPUT.PUT_LINE('values inserted');
proc_conversion_api2(p_orderdetails=>L_ORDER_LINES);
END;
PROCEDURE proc_conversion_api2(p_orderdetails IN cts_order_details)
IS
V_AVL_QUANTITY CONVERSION_PRODUCTS.AVL_QUANTITY%TYPE;
V_REQ_SHIP_DATE DATE;
V_LIST_PRICE CONVERSION_PRODUCTS.LIST_PRICE%TYPE;
V_NET_PRICE CONVERSION_PRODUCTS.LIST_PRICE%TYPE;
V_NET CONVERSION_PRODUCTS.LIST_PRICE%TYPE;
V_EXTN_PRICE CONVERSION_PRODUCTS.LIST_PRICE%TYPE;
V_CUST_DISC CONVERSION_CUSTOMERS.DISCOUNT%TYPE;
V_CERT_DISC CONVERSION_CERTIFICATION.DISCOUNT%TYPE;
V_CUST_ID XXCTS_ORDER_DETAILS.CUSTOMER_ID%TYPE;
V_PROD_ID XXCTS_ORDER_DETAILS.PRODUCT_ID%TYPE;
V_DISC_PRICE CONVERSION_PRODUCTS.LIST_PRICE%TYPE;
V_DISC_NAME CONVERSION_CERTIFICATION.CERTIFICATION%TYPE;
V_TOTAL_DISC_AMT NUMBER;
V_TOTAL_DISC NUMBER;
V_LIMIT NUMBER;
BEGIN
    DBMS_OUTPUT.PUT_LINE('INSIDE API_2 BEGIN 1');
        FOR i IN p_orderdetails.FIRST..p_orderdetails.LAST
        LOOP
             BEGIN
            DBMS_OUTPUT.PUT_LINE('INSIDE API_2 BEGIN 2');
            SELECT PRODUCT_ID,AVL_QUANTITY,LIST_PRICE
            INTO V_PROD_ID,V_AVL_QUANTITY,V_LIST_PRICE
            FROM CONVERSION_PRODUCTS
            WHERE PRODUCT_NAME=p_orderdetails(i).PRODUCT_NAME;
            DBMS_OUTPUT.PUT_LINE('PRODUCT QUANTITY is '||V_PROD_ID);
            DBMS_OUTPUT.PUT_LINE('AVAILABLE QUANTITY is '||V_AVL_QUANTITY);
            DBMS_OUTPUT.PUT_LINE('LIST PRICE is '||V_LIST_PRICE);
            SELECT CUSTOMER_ID,NVL(DISCOUNT,0)
            INTO V_CUST_ID,V_CUST_DISC
            FROM CONVERSION_CUSTOMERS
            WHERE CUSTOMER_NAME=p_orderdetails(i).CUSTOMER_NAME;
            DBMS_OUTPUT.PUT_LINE('CUSTOMER ID is '||V_CUST_ID);
            DBMS_OUTPUT.PUT_LINE('CUSTOMER DISCOUNT IS '||V_CUST_DISC);
            SELECT A.DISCOUNT,A.CERTIFICATION
            INTO V_CERT_DISC,V_DISC_NAME
            FROM CONVERSION_CERTIFICATION A,CONVERSION_CUSTOMERS B
            WHERE A.CERTIFICATION=B.CERTIFICATION(+)
            AND B.CUSTOMER_NAME=p_orderdetails(i).CUSTOMER_NAME;
            DBMS_OUTPUT.PUT_LINE('CERTIFICATION DISCOUNT IS '||V_CERT_DISC);
            V_NET:=((V_LIST_PRICE)-(V_LIST_PRICE)*(V_CERT_DISC)/100);
            DBMS_OUTPUT.PUT_LINE('NET PRICE AFTER CERTIFICATION DISCOUNT IS '||V_NET);
            V_NET_PRICE:=((V_NET)-(V_NET)*(V_CUST_DISC)/100);
            DBMS_OUTPUT.PUT_LINE('NET PRICE AFTER COMPLETE DISCOUNT IS '||V_NET_PRICE);
            V_EXTN_PRICE:=(V_NET_PRICE)*(p_orderdetails(i).QUANTITY);
            DBMS_OUTPUT.PUT_LINE('EXTENDED PRICE IS '||V_EXTN_PRICE);
            V_TOTAL_DISC:=((V_CERT_DISC)/100+(V_CUST_DISC)/100);
            DBMS_OUTPUT.PUT_LINE('TOTAL DISCOUNT IS '|| V_TOTAL_DISC);
            V_TOTAL_DISC_AMT:=(V_LIST_PRICE)-(V_NET_PRICE);
            DBMS_OUTPUT.PUT_LINE('TOTAL DISCOUNT PRICE IS '|| V_TOTAL_DISC_AMT);
            SELECT MAX(A.LIMIT)
            INTO V_LIMIT
            FROM CONVERSION_CERTIFICATION A,CONVERSION_CUSTOMERS B
            WHERE A.CERTIFICATION=B.CERTIFICATION(+)
            AND B.CUSTOMER_NAME=p_orderdetails(i).CUSTOMER_NAME;
            IF p_orderdetails(i).QUANTITY<V_AVL_QUANTITY THEN
            INSERT INTO XXCTS_ORDER_DETAILS VALUES(SEQ_HEADER_ID.NEXTVAL,SEQ_LINE_ID.NEXTVAL,V_CUST_ID,V_PROD_ID,p_orderdetails(i).QUANTITY,p_orderdetails(i).REQUESTED_SHIP_DATE,p_orderdetails(i).REQUESTED_PRICE,V_LIST_PRICE,V_TOTAL_DISC,V_NET_PRICE,V_EXTN_PRICE,'QTY HOLD','REQ QNTY LESS THAN AVL QTY',SYSDATE);
            INSERT INTO xxcts_order_discounts VALUES(SEQ_HEADER_ID.NEXTVAL,SEQ_LINE_ID.NEXTVAL,SEQ_DISCOUNT_ID.NEXTVAL,V_DISC_NAME,V_TOTAL_DISC_AMT);
            END IF;
            IF p_orderdetails(i).REQUESTED_SHIP_DATE<SYSDATE THEN
            INSERT INTO XXCTS_ORDER_DETAILS VALUES(SEQ_HEADER_ID.NEXTVAL,SEQ_LINE_ID.NEXTVAL,V_CUST_ID,V_PROD_ID,p_orderdetails(i).QUANTITY,p_orderdetails(i).REQUESTED_SHIP_DATE,p_orderdetails(i).REQUESTED_PRICE,V_LIST_PRICE,V_TOTAL_DISC,V_NET_PRICE,V_EXTN_PRICE,'DATE HOLD','SHIPDATE CANNOT BE LESS THAN CURR DATE',SYSDATE);
            INSERT INTO xxcts_order_discounts VALUES(SEQ_HEADER_ID.NEXTVAL,SEQ_LINE_ID.NEXTVAL,SEQ_DISCOUNT_ID.NEXTVAL,V_DISC_NAME,V_TOTAL_DISC_AMT);
            END IF;
            IF V_NET_PRICE>p_orderdetails(i).REQUESTED_PRICE THEN
            INSERT INTO XXCTS_ORDER_DETAILS VALUES(SEQ_HEADER_ID.NEXTVAL,SEQ_LINE_ID.NEXTVAL,V_CUST_ID,V_PROD_ID,p_orderdetails(i).QUANTITY,p_orderdetails(i).REQUESTED_SHIP_DATE,p_orderdetails(i).REQUESTED_PRICE,V_LIST_PRICE,V_TOTAL_DISC,V_NET_PRICE,V_EXTN_PRICE,'PRICE HOLD','NET PRICE CANNOT BE MORE THAN REQ PRICE',SYSDATE);
            INSERT INTO xxcts_order_discounts VALUES(SEQ_HEADER_ID.NEXTVAL,SEQ_LINE_ID.NEXTVAL,SEQ_DISCOUNT_ID.NEXTVAL,V_DISC_NAME,V_TOTAL_DISC_AMT);
            END IF;
           /* IF V_LIMIT<p_orderdetails(i).REQUESTED_PRICE THEN
            INSERT INTO XXCTS_ORDER_DETAILS VALUES(SEQ_HEADER_ID.NEXTVAL,SEQ_LINE_ID.NEXTVAL,V_CUST_ID,V_PROD_ID,p_orderdetails(i).QUANTITY,p_orderdetails(i).REQUESTED_SHIP_DATE,p_orderdetails(i).REQUESTED_PRICE,V_LIST_PRICE,V_TOTAL_DISC,V_NET_PRICE,V_EXTN_PRICE,'ORDER LIMIT HOLD','PRICE CANNOT EXCEED ORDER LIMIT',SYSDATE);
            INSERT INTO xxcts_order_discounts VALUES(SEQ_HEADER_ID.NEXTVAL,SEQ_LINE_ID.NEXTVAL,SEQ_DISCOUNT_ID.NEXTVAL,V_DISC_NAME,V_TOTAL_DISC_AMT);
            END IF;*/
            EXCEPTION
            WHEN NO_DATA_FOUND THEN
            DBMS_OUTPUT.PUT_LINE(' INSIDE EXCEPTION BLOCK');
            END;
        END LOOP;
END;
end conv_api_pkg;
/the pl/sql block to invoke the the procedure :
declare
begin
PROC_CONVERSION_API('/usr/tmp' ,'Walmart_Orders_062908.dat');
end;please let me know what is wrong in the program.
Thanks
Anvesh

Hi Walter
Yes 'Inside begin 1' and 'Inside begin 2' were printed.Please find the the DBMS_OUTPUT statements that were printed.
Inside begin 1
Inside begin 1.1
Inside begin 2
Inside begin 2.1
the buffer is BESTBUY                       SONY ERICSSON                           W580i               25   1-AUG-2008          50
the length of buffer is 118
Customer Name is BESTBUY
Manufacturer is SONY ERICSSON
Product Name is W580i
Quantity is 25
Requested Ship Date is 01-AUG-08
The requested price is 50
The quantity is 25
The Customer count is 1
The Product count is 0
PRODUCT SHOULD BE VALID
Inside begin 2
Inside begin 2.1
the buffer is BESTBUY                       SAMSUNG                                 BLACKJACK           50   15-JUL-2008         150
the length of buffer is 119
Customer Name is BESTBUY
Manufacturer is SAMSUNG
Product Name is BLACKJACK
Quantity is 50
Requested Ship Date is 15-JUL-08
The requested price is 150
The quantity is 50
The Customer count is 1
The Product count is 1
Inside begin 2
Inside begin 2.1
the buffer is BESTBUY                       APPLE                                   IPHONE 4GB          50   15-JUL-2008
the length of buffer is 116
Customer Name is BESTBUY
Manufacturer is APPLE
Product Name is IPHONE 4GB
Quantity is 50
Requested Ship Date is 15-JUL-08
The requested price is 0
The quantity is 50
The Customer count is 1
The Product count is 1
Inside begin 2
Inside begin 2.1
the buffer is BESTBUY                       ATT                                     TILT                100 15-JUN-2008
the length of buffer is 116
Customer Name is BESTBUY
Manufacturer is ATT
Product Name is TILT
Quantity is 100
Requested Ship Date is 15-JUN-08
The requested price is 0
The quantity is 100
The Customer count is 1
The Product count is 1
Inside begin 2
Inside begin 2.1
the buffer is BESTBUY                       NOKIA                                   N73                 50   15-JUL-2008         200
the length of buffer is 118
Customer Name is BESTBUY
Manufacturer is NOKIA
Product Name is N73
Quantity is 50
Requested Ship Date is 15-JUL-08
The requested price is 20
The quantity is 50
The Customer count is 1
The Product count is 0
PRODUCT SHOULD BE VALID
Inside begin 2In the first procedure I am trying to read the data from a flat file and store it in a table.Here is the sample data from the flat file.
BESTBUY                       SONY ERICSSON                           W580i               25   1-AUG-2008          50
BESTBUY                       SAMSUNG                                 BLACKJACK           50   15-JUL-2008         150
BESTBUY                       APPLE                                   IPHONE 4GB          50   15-JUL-2008
BESTBUY                       ATT                                     TILT                100 15-JUN-2008
BESTBUY                       NOKIA                                   N73                 50   15-JUL-2008         200When tried to execute the second procedure independently using the PL/SQL block,the tables in second procedure were populated and the DBMS_Output statements were also displayed.I have made use of the same query in that case
Thanks
Anvesh
Edited by: Anvesh Reddy on Dec 23, 2008 12:40 PM

Call a procedure that returns a refcursor, use it in another proc's sql?

I have a procedure that returns a refcursor; how can I include that refcursor in a sql statement that's in another procedure, or view etc?
This is the kind of foolery I've tried so far (myproc1 returns a ref cursor):
create or replace procedure myproc2
rc ref cursor
AS
rc1 ref cursor;
begin
EXECUTE myproc1(rc1);
open rc for
select rc1.* from rc1;
end myproc2;

lecaro wrote:
To reiterate, I was interested in consuming the refcursor output of one proc in another proc. I wanted to take what I regarded as the records returned by the first sproc and manipulate them using SQL in the second sproc.
Since I can't use that approach, what are some hopefully fairly straightforward solutions that might work?Something like:
create or replace
procedure p1(
               p_stmt varchar2,
               p_refcursor OUT sys_refcursor
    is
    begin
        open p_refcursor for p_stmt;
end;
create or replace
procedure p2(
               p_stmt varchar2
    is
        v_refcursor sys_refcursor;
        v_var varchar2(30);
    begin
        p1(p_stmt,v_refcursor);
        loop
          fetch v_refcursor into v_var;
          exit when v_refcursor%notfound;
          dbms_output.put_line(v_var);
        end loop;
end;
set serveroutput on
exec p2('select ename from emp where deptno = 20');
SQL> set serveroutput on
SQL> exec p2('select ename from emp where deptno = 20');
SMITH
JONES
SCOTT
ADAMS
FORD
PL/SQL procedure successfully completed.
SQL> SY.

Calling a procedure that returns a cursor inside a procedure

Hi,
I have two stored procedures. They both return a cursor as output variables. On the other hand I have another stored procedure that calls these procedures and return their results again an output variable. I know that this seems quite odd to be wanting to do something like this but how can I do that?

You can make the hack generic. Make it execute any SQL as that schema that creates the ref cursor. E.g.
// as schema BILLY, open a huge security hole and grant access to USER1
SQL> create or replace procedure GetTableData( tableName varchar2, refCur out sys_refcursor ) authid definer is
2          dynamicSQL      varchar2(32767);
3 begin
4          dynamicSQL := 'select * from '||tableName;
5          open refCur for dynamicSQL;
6 end;
7 /
Procedure created.
SQL>
SQL>
SQL> grant execute on GetTableData to USER1;
Grant succeeded.As USER1, you can now execute SQL (and even PL/SQL) as BILLY:
SQL> create or replace type TStrings is table of varchar2(4000);
2 /
Type created.
SQL> grant execute on TStrings to BILLY;
Grant succeeded.
SQL> --// execute this as the caller (which will be BILLY.GetTableData)
SQL> create or replace procedure ExecSQL( hackSQL varchar2 ) authid current_user is
2          pragma autonomous_transaction;
3 begin
4          execute immediate hackSQL;
5          commit;
6 end;
7 /
Procedure created.
SQL> --// wrap the above into something that BILLY.GetData can execute as a ref cursor
SQL> --// and return a meaningful message as to how successful the hack was
SQL> create or replace function PipeLineHack( hackSQL varchar2 ) return TStrings authid current_user pipelined is
2 begin
3          ExecSQL( hackSQL );
4          pipe row( 'SQL hack successful' );
5 exception when OTHERS then
6          pipe row( 'SQL hack faled with '||SQLERRM(SQLCODE) );
7 end;
8 /
Function created.
SQL>
SQL> grant execute on PipeLineHack to BILLY;
Grant succeeded.
SQL>
SQL> var c refcursor
SQL> --// expected used of the GetTableData() interface
SQL> --// we select from table BILLY.EMP
SQL> exec BILLY.GetTableData( 'EMP', :c );
PL/SQL procedure successfully completed.
SQL> print c
     EMPNO ENAME      JOB              MGR HIREDATE                   SAL       COMM     DEPTNO
      7369 SMITH      CLERK           7902 1980/12/17 00:00:00        800          0         20
      7499 ALLEN      SALESMAN        7698 1981/02/20 00:00:00       1600        300         30
      7521 WARD       SALESMAN        7698 1981/02/22 00:00:00       1250        500         30
      7566 JONES      MANAGER         7839 1981/04/02 00:00:00       2975                    20
      7654 MARTIN     SALESMAN        7698 1981/09/28 00:00:00       1250       1400         30
      7698 BLAKE      MANAGER         7839 1981/05/01 00:00:00       2850                    30
      7782 CLARK      MANAGER         7839 1981/06/09 00:00:00       2450                    10
      7788 SCOTT      ANALYST         7566 1987/04/19 00:00:00       3000                    20
      7839 KING       PRESIDENT            1981/11/17 00:00:00       5000                    10
      7844 TURNER     SALESMAN        7698 1981/09/08 00:00:00       1500          0         30
      7876 ADAMS      CLERK           7788 1987/05/23 00:00:00       1100                    20
      7900 JAMES      CLERK           7698 1981/12/03 00:00:00        950                    30
      7902 FORD       ANALYST         7566 1981/12/03 00:00:00       3000                    20
      7934 MILLER     CLERK           7782 1982/01/23 00:00:00       1300                    10
14 rows selected.
SQL>
SQL> --// getting that interface to run unexpected code - we
SQL> --// rename BILLY.EMP table to something else
SQL> exec BILLY.GetTableData( 'TABLE(USER1.PipeLineHack( ''alter table emp rename to emp_has_been_hacked''))', :c );
PL/SQL procedure successfully completed.
SQL> print c
COLUMN_VALUE
SQL hack successful
SQL>

How to call a procedure with refcursor from another plsql unit

example I created a pkg with the a procedure that returns a REFCURSOR.
Now I need to call this procedure from another pkg and use the refcursor values in other pkg.
Help please.......
PROCEDURE CustomerSite_Get (p_Registry IN VARCHAR2,
p_CustomerNumber IN VARCHAR2, p_Cursor IN OUT t_cursor);
PROCEDURE CustomerSite_Get (p_Registry IN VARCHAR2,
p_CustomerNumber IN VARCHAR2, p_Cursor IN OUT t_cursor)
IS
-- 0903: Include BillToName
BEGIN
OPEN p_Cursor FOR
     SELECT S.LOCATION CustomerSite, S.SITE_USE_ID CustomerSiteID, C.CUSTOMER_NAME BillToName
     FROM RA_CUSTOMERS C,
RA_ADDRESSES A,
RA_SITE_USES S,
UWA_REGISTRY R,
UWA_REGISTRY_BILL_TO B
     WHERE C.CUSTOMER_ID = A.CUSTOMER_ID
     AND A.ADDRESS_ID = S.ADDRESS_ID
     AND S.SITE_USE_ID = B.SITE_USE_ID
     AND R.REGISTRY_ID = B.REGISTRY_ID
     AND B.TRIP_BILLING != 'N'
     AND R.DELETE_FLAG != 'Y'
          AND R.Registry = p_Registry
          AND R.CUSTOMER_NUM = p_CustomerNumber
     ORDER BY S.LOCATION;
END CustomerSite_Get;
thanks,
Anitha.
Edited by: user521218 on May 6, 2009 1:24 PM

Hi Anitha,
try this,
-- PKG_A
Procedure CustomerSite_Get( p_Registry       IN Varchar2
                          , p_CustomerNumber IN Varchar2
                          , p_Cursor         IN OUT t_cursor) Is
Begin
   PKG_B.CustomerSite_Get( p_Registry
                         , p_CustomerNumber
                         , p_Cursor );
End;
-- PKG_B
Procedure CustomerSite_Get(p_Registry       IN Varchar2
                          ,p_CustomerNumber IN Varchar2
                          ,p_Cursor         IN OUT t_cursor) Is
Begin
   Open p_Cursor For
      SELECT S.LOCATION      CustomerSite
            ,S.SITE_USE_ID   CustomerSiteID
            ,C.CUSTOMER_NAME BillToName
        FROM RA_CUSTOMERS         C
            ,RA_ADDRESSES         A
            ,RA_SITE_USES         S
            ,UWA_REGISTRY         R
            ,UWA_REGISTRY_BILL_TO B
       WHERE C.CUSTOMER_ID = A.CUSTOMER_ID
         AND A.ADDRESS_ID = S.ADDRESS_ID
         AND S.SITE_USE_ID = B.SITE_USE_ID
         AND R.REGISTRY_ID = B.REGISTRY_ID
         AND B.TRIP_BILLING != 'N'
         AND R.DELETE_FLAG != 'Y'
         AND R.Registry = p_Registry
         AND R.CUSTOMER_NUM = p_CustomerNumber
       Order BY S.LOCATION;
End CustomerSite_Get;regards,
Christian Balz

Create stored procedure with table from another schema throws PLS-00201

Oracle 10g. I'm new to procedures, so maybe I'm missing something obvious.
Schema owner ABC has table T2001_WRITEOFF. The SYSDBAs granted SIUD to Some_Update_Role, and granted that role to developer user IJK. User IJK then created a private synonym T2001_WRITEOFF for ABC.T2001_WRITEOFF. This worked with normal SQL DML commands.
When I try to create a simple procedure as follows, it throws PLS-00201 identifier 'T2001_WRITEOFF' must be declared, and points to the 2nd line.
create or replace procedure woof1(
fooname in T2001_WRITEOFF.territory%TYPE, <=== error points here
bardesc IN T2001_WRITEOFF.ind_batch_submit%TYPE) IS
BEGIN
INSERT into T2001_WRITEOFF
VALUES ( fooname, bardesc);
END woof1;
What am I doing wrong?
Thanks
JimR

Hi,
The reason I've heard has to do with knowing when a procedure becomes invalid due to privileges being revoked. Any time a grant to a role is revoked, you would have to check all procedures that depended on that role to know if they were still valid. Even worse, since roles can be granted to other roles, every time a role is revoked from another role, you would have to check all procedures that depended on anything to see if they were still valid.
Oracle 11 behaves the same as earlier versions in this regard, and I don't expect this to change.
This whole thread applies only to AUTHID DEFINER stored procedures (which is the default). If you can make the procedure AUTHID CURRENT_USER, then you can run it with privileges granted through roles. Usually, however, you really want AUTHID DEFINER, and granting the necessary privileges directly to the procedure owner (or to PUBLIC) isn't too hard.

Function calling stored procedure that returns a cursor into a LOV

Hello,
Is it possible in HTML DB to implement a process that has a function that calls a stored procedure that returns a cursor, used to then populate a select list?
Or can I do a function call to a stored procedure in the 'List of values definition' box for the item itself that returns a cursor to populate the item's select list?

Hi Vikas,
Actually, I just found another posting that shows how to do what I'm looking for:
Re: Filling a LOV with a cursor
Check it out. I posted another question in response to that discussion...maybe you could answer that? Thanks!
Laura

DB Adapter Calling DB Procedure that returns a Record Type

I am trying to call a PL/SQL procedure that returns a Record Type and a VARCHAR2 and I'm getting this error:
<Faulthttp://schemas.xmlsoap.org/soap/envelope/>
<faultcode>env:Server</faultcode>
<faultstring>java.sql.SQLException: ORA-06550: line 1, column 7: PLS-00306: wrong number or types of arguments in call to 'MY_PROC.GET_ID' ORA-06550: line 1, column 7: PL/SQL: Statement ignored </faultstring> </Fault>
Is there something different I need to do to handle the Record Type OUT parameter?
Thanks.

The adapter configuration wizard should take care of the Record Type for you. It should invoke JPublisher to create an equivalent Object type and a package containing a wrapper that will be called by the adapter runtime. The package also contains conversion functions for converting between your Record Type and the generated Object type. Maybe it would help if you posted the signature of your stored procedure (not the body).

Calling a procedure (with refcursor) from another procedure

I have a procedure that returns refcursor (it's used by a Java application).
I am able to run the proc via SQLPlus like below:
var a refcursor;
exec MY_PKG.get_content_prc(:a);
print a;
I would like to use/call this proc from another procedure and I am not able to, since arg is refcursor.
create or replace procedure p
is
v refcursor;
begin
MY_PKG.get_content_prc(:v);
end;
Error I get is:
SQL> show err
Errors for PROCEDURE P2:
LINE/COL ERROR
4/3 PL/SQL: Item ignored
4/7 PLS-00201: identifier 'CURSOR' must be declared
6/5 PL/SQL: Statement ignored
6/57 PLS-00320: the declaration of the type of this expression is
incomplete or malformed
Hope someone can direct me.
Regards

Because you are not using the right syntax.
You need to do something like this
LOOP
   /* Fetch from cursor variable. */
   FETCH emp_cv INTO emp_rec;
   EXIT WHEN emp_cv%NOTFOUND; -- exit when last row is fetched
   -- process data record
END LOOP;This is from the PL/SQL User's Guide and Reference.
I would recommend reading this fine manual, it is faster than guessing.

See body of a package that belongs to another schema

Hello,
I'm facing the following issue: We have 2 schemas - apps (oracle aaplications master schema, with dba role) and a custom schema, to which our development team connects.
We use pl/sql developer v. 7.1.5 and DB 10gR2.
When I connect to the custom schema and try to "see spec&body" of a package that belongs to apps I can see only it's spec.
(From apps I can see spec&body of the custom schema).
I searched in the internet and in the forum, but couldn't find a solution that work. Does someone know what privilages/roles can I give to the custom schema to see the body? (I can't give it strong privilages in the production enviornment).
It already has 'debug any procedure' , 'debug any session' , 'select any table' and I tried to give it 'execute any libarary' and 'execute any program'

You are wrong. It will - if the proper data dictionary views are used.
Example:
SQL> create user user_foo identified by secret1;
User created.
SQL> grant create session to user_foo;
Grant succeeded.
SQL> connect user_foo/secret1
Connected.
SQL> select text from all_source where owner = 'BILLY' and name = 'SMTPTEST' order by line;
no rows selected
SQL>
SQL> select text from dba_source where owner = 'BILLY' and name = 'SMTPTEST' order by line;
select text from dba_source where owner = 'BILLY' and name = 'SMTPTEST' order by line
ERROR at line 1:
ORA-00942: table or view does not exist
SQL> connect sys/secret_password as sysdba
Connected.
SQL>
SQL> grant select any dictionary to user_foo;
Grant succeeded.
SQL> connect user_foo/secret1
Connected.
SQL> select text from all_source where owner = 'BILLY' and name = 'SMTPTEST' order by line;
no rows selected
SQL>
SQL> select text from dba_source where owner = 'BILLY' and name = 'SMTPTEST' order by line;
TEXT
function SmtpTest( server varchar2, port integer default 25 ) return TStrings pi
pelined is
        smtp            UTL_SMTP.connection;
        reply           UTL_SMTP.reply;
begin
        reply := UTL_SMTP.open_connection( host=>server, port=>port, c=>smtp );
        pipe row( reply.Code||'. '|| reply.Text );
        --// if a successful connect, gracefully disconnect
        if reply.Code < 400 then
                reply := UTL_SMTP.quit( smtp );
                pipe row( reply.Code||'. '||reply.Text );
        end if;
end;
13 rows selected.
SQL>

Sql Developer - View source code of procedures, functions & packages in another schema

Our developers need the ability to view procedures, function, packages etc. in the production database (using SQL DEVELOPER). They don't have access to sign on as the owner of these
objects in Production. They must use their own limited access UserID for this purpose.
This limited access UserID has been granted select privilege on DBA_SOURCE & DBA_OBJECTS. The developers need the ability to view the source of these object via
the tree view in SQL DEV. They should be able to click on "other users" in the SQL DEV tree view and see a listing of the owner schema objects. Then they should
be able to select the desired object and view the source code. These developers are used to using GUI interfaces. Selecting from DBA_SOURCE would not be an
option for them.
I understand that if the limited user is granted SELECT ANY DICTIONARY or SELECT_CATALOG_ROLE then this functionality will work. The problem is those
privileges/roles provide much more access than should be granted to these limited access users. Granting DBA to these users is also not an option.
In TOAD and other end-user tools this functionality works when only select privilege on DBA_SOURCE & DBA_OBJECTS has been granted. We need this same functionality
in SQL DEV.
While searching this forum and the internet, I see that other installations have this same issue.
Please enhance SQL Developer with this functionality.
Thank you, ellen

Just to double check that I'm interpreting the problem correctly, is the following true:
select * from all_objects where object_name = 'DBA_SOURCE'
returns nothing
select * from dba_source where name = your PL/SQL module
returns all the code

Is there any access to item that exists on another page?

I wonder.. APEX don't let give same names to items on the different pages. I thought - it's because of reason, that any item can be read from any place of application. But I have an item on the page, type is DATE. And on another page I try to read this item(DATE) - but field is blank..
Am I wrong, anf items can be reached only within page where it placed?

There is a problem still. :(
After LOG IN - I move to a page1 with two items, items with a DATA type. By default it fills with function ROUND('SYSDATE',MM) - first, and second is LAST_DAY... It's ok all is rendering normal. There is a button1, that leads me to another page2. There are a few SQL request, that include my items ( with DATA TYPE) as a condition. And they return no rows. It can't be.
But there is a special button2 on the page1 WITH MY ITEMS. I call it refresh. It's just a button2, and it hookes up to a simple branch proccess, that leads to the same page1 where it placed. And after pressing 'REFRESH' - I move to page2 (by pressing button1) and result of my request is right!
Why it happens, can somebody tell me???

Call java class that exists in separate server

We have a java class on application server that provides some functions for returning important message. We need to call some functions by using stored procedures or functions in DB. Can anyone tell me how to tell the procedure to connect to the application server?
Remarks:
1. The OS of application server is UNIX and OS of DB server is Windows
2. The administrator login/password on both the application server and DB server are known
Thank you for your help
Edited by: user7946502 on 2009/6/19 上午 1:43

Technically this is possible, though I do not have any experience with Axis but I have tried it with JAX-WS.

[perl] How call function/procedure that returns SYS_REFCURSOR type?

I've got some simple procedure which returns record(s):
CREATE OR REPLACE PROCEDURE "GET_SYS_DATE"
RESULTSET IN OUT SYS_REFCURSOR
IS
BEGIN
     OPEN RESULTSET FOR
          SELECT SYSDATE FROM DUAL;
END;
In perl i invoke it with somthing like this:
my $ret;
my $s= "BEGIN GET_SYS_DATE(:1); END;";
my $sth = $dbh->prepare($s);
$sth->bind_param_inout(1, \$ret, 0 { TYPE => XXX}); # tried to use many DBD::SQL_* types (SQL_ROW, SQL_REF, etc.)
$sth->execute(); #... but without luck
I always get:
DBD::ODBC::st execute failed: [Oracle][ODBC][Ora]ORA-06550: line 1, column 7:
PLS-00306: wrong number or types of arguments in call to 'GET_SYS_DATE'
ORA-06550: line 1, column 7:
PL/SQL: Statement ignored
Of course if i use other datatype in SP (e.g. VARCHAR2) and bind it as SQL_VARCHAR it works well... Moreover, if i use DBD::Oracle and bind it as ORA_RSET type it also works.
Is it possible that ODBC doesn't know SYS_REFCURSOR type? Then, is there any way to call SP and retrieve cursor from perl without using DBD::Oracle?
Or, if it is possible, then how to retrieve that cursor and data stored within it? Any help?

Hi,
I have not one eensy teensy bit of knowledge about PERL, other than how to spell it.
I do however, know about ref cursors, and ODBC, so maybe this will help.
ODBC has nothing for REF CURSOR built in. ODBC is made to the lowest common denoninator of databases, and a refcur is an Oracle thing. So, what that means is that you can't BIND anythign to the ref cursor, as there is no appropriate ODBC type to bind.
Does that mean you can't call a refcur via ODBC? No, it doesnt.
What happens is that Oracle's ODBC driver kinda "magically" goes out behind the scenes and describes the procedure or pacakge to determine if any of the parameters are ref cursors, and if so automatically sets up the bind for them.
Here's a complete working example using VB and ADO rather than PERL, but maybe you can port it over and get it working. Note that the proc takes two params, but we only bind one (for the IN number)
Hope it helps,
Greg
'create or replace package testrefcur as
' type mycur is ref cursor;
' procedure getemps(dno in number, ecur out mycur);
' end;
'create or replace package body testrefcur as
'procedure getemps(dno in number, ecur out mycur) is
' begin
'     open ecur for select * from emp where deptno = dno;
' end;
'end;
Private Sub Command1_Click()
Dim con As New ADODB.Connection
Dim cmd As New ADODB.Command
Dim rst As New ADODB.Recordset
strcnn = "dsn=orcl;uid=scott;pwd=tiger"
con.Open strcnn
cmd.CommandText = "{call testrefcur.getemps(?)}"
Set cmd.ActiveConnection = con
Set param1 = cmd.CreateParameter("param1", adNumeric, adParamInput, 4)
param1.Value = 10
param1.Precision = 4
cmd.Parameters.Append param1
Set rst = cmd.Execute
While Not rst.EOF
strrslt = strrslt & rst.Fields("ename").Value & " "
rst.MoveNext
Wend
MsgBox strrslt
End Sub

Calling a function that's inside another function

function test1():void
function test2():void {..}
How do I call test2 function (outside test1 function)? Is it possible?

Hi,
yes it is possible.
Here is the code helps u
function foo():Function
var x:int = 40;
function rectArea(y:int):int // function closure defined
return x * y
return rectArea;
var myProduct:Function = foo();
var s = myProduct(4);
trace(s);
Saransoft

Calling a procedure that exist in another schema

Similar Messages

Maybe you are looking for