以下過程使用調用invoicetest.wj_get_invoicedatatest（1，：InvoicesCur）給出錯誤;調用invoicetest.wj_get_invoice_cbodataidstest（'X'）;

Question

我已經調用後使用呼籲boyh程序

CREATE OR REPLACE PACKAGE invoicetest 
    IS 
     TYPE InvoiceCBOIDCurs IS REF CURSOR; 
     TYPE InvoicesCur IS REF CURSOR; 

     PROCEDURE wj_get_invoice_cbodataidstest 
    (
     InvoiceCBOIDs out InvoiceCBOIDCurs 
    ); 
     PROCEDURE wj_get_invoicedatatest 
    (
     Invoice out InvoicesCur, 
     CBOID IN INTEGER 
    ); 
    END invoicetest; 
    /

    CREATE OR REPLACE PACKAGE BODY invoicetest IS 
    PROCEDURE wj_get_invoice_cbodataidstest 
    (
     InvoiceCBOIDs out InvoiceCBOIDCurs 
    ) 
    IS 
    BEGIN 
     OPEN InvoiceCBOIDs FOR 
       Select 1 from dual; 
    END wj_get_invoice_cbodataidstest; 

    PROCEDURE wj_get_invoicedatatest 
    (
     Invoice out InvoicesCur, 
     CBOID IN INTEGER 
    )as 
    begin 
    OPEN Invoice FOR 
    select cboid from dual; 
    end wj_get_invoicedatatest; 
    END invoicetest; 
    /

錯誤後遇到錯誤：

invoicetest.wj_get_invoicedatatest(1,:InvoicesCur); call invoicetest.wj_get_invoice_cbodataidstest('X');

Answer 1

你的程序是確定的，但你是在一個錯誤的方式打電話給他們;在一種情況下，您使用錯誤順序的參數，而在另一種情況下，您正在傳遞一個varchar，而過程需要一個遊標參數。 這是調用你的程序以正確的方式：如果你需要使用CALL

... 
invoicetest.wj_get_invoicedatatest(
            Invoice  =>vCur, 
            CBOID   => 1 
           ); 
-- 
invoicetest.wj_get_invoice_cbodataidstest(
              InvoiceCBOIDs => vCurCBO 
             ); 
... 

：

SQL> declare 
    2  vCurCBO invoicetest.InvoiceCBOIDCurs; 
    3  vCur invoicetest.InvoicesCur; 
    4 begin 
    5  invoicetest.wj_get_invoicedatatest(vCur, 1); 
    6  -- 
    7  invoicetest.wj_get_invoice_cbodataidstest(vCurCBO); 
    8  -- 
    9  /* what you need to do with your cursors */ 
10 end; 
11/

PL/SQL procedure successfully completed. 

SQL> 

爲了避免混淆，您可以通過顯式地使用他們的名字傳遞參數

SQL> VARIABLE vCurCBO REFCURSOR; 
SQL> VARIABLE vCur REFCURSOR; 
SQL> CALL invoicetest.wj_get_invoice_cbodataidstest(
    2             InvoiceCBOIDs => :vCurCBO 
    3            ); 

Call completed. 

SQL> CALL invoicetest.wj_get_invoicedatatest(
    2           Invoice  =>:vCur, 
    3           CBOID   => 1 
    4          ); 

Call completed. 

SQL>