Variable assignment error in stored procedure

i am writing this query giving me error
create or replace
PROCEDURE sp_AUDIT_ScrollAccepted
v_Date IN VARCHAR2 DEFAULT NULL ,
cv_1 IN OUT SYS_REFCURSOR
AS
BEGIN
IF v_Date IS NULL THEN
BEGIN
v_Date := to_CHAR(SYSDATE, 'DD/MM/YYYY') ;----------------error is coming in this line
END;
END IF;
error
Error(12,7): PLS-00363: expression 'V_DATE' cannot be used as an assignment target
what to do

i have to assign value to this variable v_Date if its value in null then i am assigning system date as i am using
this variable for storing date
as this variable is used further in my query but i am getting this error
i cannot use new variable
create or replace
PROCEDURE sp_AUDIT_ScrollAccepted
v_Date IN VARCHAR2 DEFAULT NULL,
cv_1 IN OUT SYS_REFCURSOR
AS
BEGIN
IF v_Date IS NULL THEN
select to_CHAR(SYSDATE,'DD/MM/YYYY')---------error is coming in this line
into v_Date
from dual;
END IF;
END;
----------------now my v_Date is used in below query-----------------------------------
OPEN cv_1 FOR
SELECT User_Mst.UserName,
CashCollection_Statement.UpdatedOn Date_,
CashCollection_Statement.StatementNo,
CashCollection_Statement.TenderedCashAmt Due,
CashCollection_Statement.TenderedChequeAmt Cheque,
CashCollection_Statement.totalTenderAmount Cash,
SUM(StatementCashData.Amount) Total
FROM CashCollection_Statement
JOIN User_Mst
ON CashCollection_Statement.User_ID = User_Mst.UserID
JOIN StatementCashData
ON CashCollection_Statement.StatementID = StatementCashData.StatementID
WHERE TO_CHAR( CashCollection_Statement.UpdatedOn, 'DD/MM/YYYY') = v_Date----- this variable is used here---------
AND CashCollection_Statement.Accepted = 1
GROUP BY CashCollection_Statement.StatementNo,CashCollection_Statement.TenderedCashAmt
,CashCollection_Statement.TenderedChequeAmt
,User_Mst.UserName,CashCollection_Statement.totalTenderAmount
,CashCollection_Statement.StatementID,CashCollection_Statement.StatementFrom
,CashCollection_Statement.StatementTo,CashCollection_Statement.UpdatedOn
ORDER BY CashCollection_Statement.StatementID DESC;
END;
error is this
Error(15,12): PLS-00403: expression 'V_DATE' cannot be used as an INTO-target of a SELECT/FETCH statement
plz help

Similar Messages

  • How in ColdFusion with in variables get a Oracle stored procedure to return values?

    How in ColdFusion with in variables get a Oracle stored procedure to return values?
    We have tried several things, we can get  a stored procedure to return a result set if we are not passing in variables but we cannot get them when we are passing in variables.
    We know how to do it calling  MS SQL.
    Thanks for any help,
    Nathan Sr
    P.S. we have heard this may not be possible with the current Oracle Driver is there a different Oracle driver?

    I can only barely understand what you're asking here (not from a technical perspective, but from understanding your written English), but I suspect you're wanting to know how to pass back values other than recordsets from Oracle?
    You should be able to pass them back via a type=out proc param, shouldn't you?
    If you could reword your post so it's a bit more coherent, and possibly post some code, that might help.
    Adam

  • Unexpected error in stored procedure

    Howdy group...
    I have a stored procedure in Oracle;
    p_BILL_TO_ADDRESS1 IN CONT_ADDRESS.ADDRESS1%TYPE
    Default NULL, --VC(50)
    With a condition;
    IF p_BILL_TO_ADDRESS1 is NULL THEN
    Raise_Application_Error(-20100,'BILL TO Address cannot be a NULL Value');
    END IF;
    I have some PHP code that tries to insert the data;
    $addr = '1234 Main';
    $sth = oci_parse($conn, "begin D_ACCT_NEW(:p_BILL_TO_ADDRESS1, :P_Error_Return );end;");
    oci_bind_by_name($sth, ":p_BILL_TO_ADDRESS1", $addr, -1);
    oci_bind_by_name($sth, ":P_Error_Return", $errorcode, -1); oci_execute($sth);
    echo $errorcode;
    And I always get the following error;
    Warning: oci_execute() [function.oci-execute]: ORA-06502: PL/SQL:
    numeric or value error ORA-06512: at "SYSADM.D_ACCT_NEW", line 483
    ORA-20100: BILL TO Address cannot be a NULL Value ORA-06512: at line 1 in /home/foo/bar/glorp.php on line 25
    If anyone on the list understands the intricacies of Oracle, could you sooth my aching head and help me to understand what is going on here? I have RTFM and the following article from the PHP Oracle Cookbook;
    http://www.oracle.com/technology/pub/articles/oracle_php_cookbook/fuecks_sps.html
    ;and I still am clueless. Thanks a million in advance!
    null

    Here is the entire procedure. This is developed by a third party and I cannot chnage it, I just need to be able to write PHP to interact with it. Thanks for your help on this.
    create or replace Procedure D_ACCT_NEW
    -- Return Parameters
    p_Return OUT Varchar2,                -- CONTRACT_ID
    P_Error_Return OUT Varchar2,                -- Error Message if any
    -- Input Parameters
    p_USERNAME IN CONT_CUST.ENTRY_BY%TYPE Default NULL, --VC(40)
    p_ALT_ACCOUNT_NO IN CONT_CUST.ALT_ACCOUNT_NO%TYPE Default NULL, -- N/A
    p_ALT_SUB_ACCOUNT_ID IN CONT_CUST.ALT_SUB_ACCOUNT_ID%TYPE Default NULL, -- N/A)
    p_PARENT_CONTRACT_ID IN CONT_CUST.PARENT_CONTRACT_ID%TYPE Default NULL,
    -- Contact Data
    p_CUST_TYPE IN CUSTOMERS_INFO.CUST_TYPE%TYPE Default NULL, --VC(1)  I/B
    p_CONTACT_F_NAME IN CUSTOMERS_INFO.FIRST_NAME%TYPE           Default NULL, --VC(100)
    p_CONTACT_L_NAME IN CUSTOMERS_INFO.LAST_NAME%TYPE           Default NULL, --VC(100)
    p_CONTACT_MIDDLE_INITIAL IN CUSTOMERS_INFO.MIDDLE_INIT%TYPE      Default NULL, --VC(10)
    p_CONTACT_TITLE IN CUSTOMERS_INFO.NAME_TITLE%TYPE           Default NULL, --VC(10)
    P_CONTACT_SUFFIX IN CUSTOMERS_INFO.NAME_SUFFIX%TYPE      Default NULL, --VC(10)
    p_COMPANY_NAME IN CUSTOMERS_INFO.COMPANY_NAME%TYPE      Default NULL, --VC(50)
    p_HOME_PHONE_NUM IN CUSTOMERS_INFO.HOME_PHONE_NUM%TYPE Default NULL, --VC(25)
    p_BUSINESS_PHONE_NUM IN CUSTOMERS_INFO.BUSINESS_PHONE_NUM%TYPE Default NULL, --vn(25)
    p_COUNTRY_ID IN CUSTOMERS_INFO.COUNTRY_ID%TYPE Default NULL, --VN(4,0)
    p_EMAIL_ADDRESS IN CUSTOMERS_INFO.EMAIL_ADDRESS%TYPE      Default NULL, --VC(50)
    P_Contact_Name1 IN CUSTOMERS_INFO.other_field1%TYPE Default NULL,
    P_Contact_Name2 IN CUSTOMERS_INFO.other_field2%TYPE Default NULL,
    P_Contact_Name3 IN CUSTOMERS_INFO.other_field3%TYPE Default NULL,
    -- Bill To Data
    p_BILL_TO_NAME IN CONT_ADDRESS.NAME%TYPE                Default NULL, --VC(50)
    p_BILL_TO_ADDRESS1 IN CONT_ADDRESS.ADDRESS1%TYPE           Default NULL, --VC(50)
    p_BILL_TO_ADDRESS2 IN CONT_ADDRESS.ADDRESS2%TYPE           Default NULL, --VC(50)
    p_BILL_TO_CITY IN CONT_ADDRESS.CITY%TYPE                Default NULL, --VC(50)
    p_Bill_To_County IN CONT_ADDRESS.COUNTY%TYPE Default NULL, --VC(50)
    p_BILL_TO_STATE IN CONT_ADDRESS.STATE%TYPE Default NULL, --VC(25)
    p_BILL_TO_ZIP IN CONT_ADDRESS.POSTAL_CODE%TYPE Default NULL, --VC(20)
    p_BILL_TO_COUNTRY IN CONT_ADDRESS.COUNTRY%TYPE           Default NULL, --VC(50)
    p_BILL_TO_GEOCODE IN CONT_ADDRESS.GEOCODE%TYPE           Default NULL, --VC(15)
    p_BILL_TO_BUS_OR_RES_FLAG IN CONT_ADDRESS.BUS_OR_RES_FLAG%TYPE Default NULL, --VC(1)
    p_BILL_TO_INSIDE_CORP_FLAG IN CONT_ADDRESS.INSIDE_CORP_FLAG%TYPE Default NULL, --VC(1)
    p_TAX_REGION_ID IN CONT_CUST.TAX_REGION_ID%TYPE Default NULL, --VN(10,0)
    -- Credit Score Data
    p_SOC_SEC_NUM            IN CUSTOMERS_INFO.SOC_SEC_NUM%TYPE                Default NULL,  VC(20)
    p_ID_OR_DANDB_TYPE IN CUSTOMERS_INFO.ID_METHOD%TYPE           Default NULL, --VC(50)
    p_ID_REGION IN CUSTOMERS_INFO.ID_REGION%TYPE           Default NULL, --VC(25)
    p_ID_OR_DANB_NO          IN CUSTOMERS_INFO.IDENTIFICATION_NO%TYPE          Default NULL,  VC(25)
    p_TAX_ID IN CUSTOMERS_INFO.IDENTIFICATION_NO%TYPE Default NULL, --VC(25)
    p_DRIVER_LICENSE_NO IN CUSTOMERS_INFO.DRIVER_LICENSE_NO%TYPE Default NULL, --VC(25)
    p_PHOTO_ID_VALUE IN CUSTOMERS_INFO.PHOTO_ID_VALUE%TYPE Default NULL, --VC(25)
    p_PHOTO_ID_STATE IN CUSTOMERS_INFO.PHOTO_ID_STATE%TYPE Default NULL, --VC(25)
    pc_BIRTH_DATE IN Varchar2      Default NULL,
    p_ORIG_INTERNAL_SCORE IN CUSTOMERS_INFO.CREDIT_SCORE%TYPE      Default NULL, --VC(10)
    p_INTERNAL_SCORE IN CUSTOMERS_INFO.INTERNAL_CREDIT_SCORE%TYPE     Default NULL, --VC(10)
    p_CRED_SCORE_ADDRESS1 IN CUSTOMERS_INFO.ADDRESS1%TYPE          Default NULL, --VC(100)
    p_CRED_SCORE_ADDRESS2 IN CUSTOMERS_INFO.ADDRESS2%TYPE           Default NULL, --VC(100)
    p_CRED_SCORE_CITY IN CUSTOMERS_INFO.ADDRESS3%TYPE           Default NULL, --VC(100)
    p_CRED_SCORE_COUNTY IN CUSTOMERS_INFO.ADDRESS4%TYPE Default NULL, --VC(100)
    p_CRED_SCORE_STATE IN CUSTOMERS_INFO.ADDRESS5%TYPE           Default NULL, --VC(100)
    p_CRED_SCORE_ZIP IN CUSTOMERS_INFO.ADDRESS6%TYPE           Default NULL, --VC(100)
    p_CRED_SCORE_COUNTRY       IN CUSTOMERS_INFO.ADDRESS6%TYPE                      Default NULL,  VC(100)
    p_IntScore_Override_Date   IN CUSTOMERS_INFO.OTHER_FIELD19%TYPE       Default NULL,  N/A
    pc_CURR_ADDRESS_DATE IN Varchar2 Default NULL,
    p_PREV_ADDRESS1 IN CUSTOMERS_INFO.PREV_ADDRESS1%TYPE      Default NULL, --VC(50)
    p_PREV_ADDRESS2 IN CUSTOMERS_INFO.PREV_ADDRESS2%TYPE      Default NULL, --VC(50)
    p_PREV_CITY IN CUSTOMERS_INFO.PREV_CITY%TYPE           Default NULL, --VC(50)
    p_PREV_COUNTY IN CUSTOMERS_INFO.PREV_COUNTY%TYPE Default NULL, --VC(50)
    p_PREV_STATE IN CUSTOMERS_INFO.PREV_STATE%TYPE           Default NULL, --VC(25)
    p_PREV_ZIP IN CUSTOMERS_INFO.PREV_POSTAL_CODE%TYPE Default NULL, --VC(20)
    p_PREV_COUNTRY IN CUSTOMERS_INFO.PREV_COUNTRY%TYPE      Default NULL, --VC(25)
    -- Billing Settings
    p_BillCycle IN CONT_CUST.BILLCYCLE%TYPE Default 0,
    p_BILL_BY_EMAIL IN CUSTOMERS_INFO.BILL_BY_EMAIL%TYPE Default 'N', --VC(1)
    p_DETAIL_BILLING IN CONT_CUST.DETAIL_BILLING%TYPE      Default 'Y', --VC(1)
    p_BILL_LANGUAGE_ID IN CONT_CUST.BILL_LANGUAGE_ID%TYPE Default NULL, --VN(10,0)
    p_BILL_LAYOUT_ID IN CONT_CUST.BILL_LAYOUT_ID%TYPE      Default NULL, --VN(10,0)
    p_BILL_CURRENCY_ID IN CONT_CUST.BILL_CURRENCY_ID%TYPE Default NULL, --VN(10,0)
    p_FIXED_CURRENCY IN CONT_CUST.FIXED_CURRENCY%TYPE      Default NULL, --VC(1)
    p_APPLY_LATE_FEES IN CONT_CUST.APPLY_LATE_FEES%TYPE      Default NULL, --VC(1)
    p_USAGE_THRESHOLD IN CONT_CUST.USAGE_THRESHOLD%TYPE Default NULL, --VN(15,2)
    -- Payment Data
    p_AUTO_PAYMENT_FLAG IN CONT_PAYMENTS_INFO.AUTO_PAYMENT_FLAG%TYPE Default NULL, --VC(1)
    p_PAYMENT_METHOD IN CONT_PAYMENTS_INFO.PAYMENT_METHOD%TYPE      Default NULL, --VC(10)
    p_DEF_PAY_BANK_NAME IN CONT_PAYMENTS_INFO.BANK_NAME%TYPE      Default NULL, --VC(100)
    p_DEF_PAY_OWNER_NAME IN CONT_PAYMENTS_INFO.OWNER_NAME%TYPE      Default NULL, --VC(100)
    p_DEF_PAY_CARD_ADDRESS IN CONT_PAYMENTS_INFO.OWNER_ADDRESS%TYPE      Default NULL, --VC(100)
    P_DEF_PAY_ADDRESS2 IN CONT_PAYMENTS_INFO.OWNER_ADDRESS%TYPE Default NULL,
    P_DEF_PAY_CITY IN CONT_PAYMENTS_INFO.OWNER_ADDRESS%TYPE Default NULL,
    P_DEF_PAY_COUNTY IN CONT_PAYMENTS_INFO.OWNER_ADDRESS%TYPE Default NULL,
    P_DEF_PAY_STATE IN CONT_PAYMENTS_INFO.OWNER_ADDRESS%TYPE Default NULL,
    p_DEF_PAY_CARD_NUMBER IN CONT_PAYMENTS_INFO.BANK_CC_NUMBER%TYPE      Default NULL, --VC(50)
    p_DEF_PAY_CARD_TYPE IN CONT_PAYMENTS_INFO.CC_CARD_TYPE_ID%TYPE Default NULL, --VC(10)
    pc_DEF_PAY_CARD_EXPIRES IN Varchar2 Default NULL,
    p_DEF_PAY_AMEX_CID IN CONT_PAYMENTS_INFO.CC_AMEX_CID%TYPE      Default NULL, --VC(50)
    p_DEF_PAY_ZIP IN CONT_PAYMENTS_INFO.CARDHOLDER_POSTAL_CODE%TYPE Default NULL, --VC(10)
    P_DEF_PAY_ROUTING_NO IN CONT_PAYMENTS_INFO.ABA%TYPE Default NULL,
    P_DEF_CHK_ACCOUNT_TYPE IN CONT_PAYMENTS_INFO.ACCOUNT_TYPE%TYPE Default NULL,
    p_DEF_PAY_CARD_CCV2 IN CONT_PAYMENTS_INFO.CC_CCV2_NUMBER%TYPE Default NULL,
    -- Other
    p_SALES_REP_FLAG IN CUSTOMERS_INFO.SALES_REP_FLAG%TYPE Default NULL, --VC(1)
    pc_ACT_DATE IN Varchar2 Default NULL,
    pc_ENTRY_DATE IN Varchar2 Default NULL,
    p_STATUS IN CONT_CUST.ACCOUNT_STATUS%TYPE Default NULL,
    -- Credit Control
    p_Credit_Category IN CONT_CCTRL_INFO.Credit_Category%TYPE Default NULL,
    p_Credit_Risk IN CONT_CCTRL_INFO.Credit_Risk%TYPE Default NULL,
    p_Credit_Status IN CONT_CCTRL_INFO.Credit_Status%TYPE Default NULL,
    pc_PTP_Date IN Varchar2 Default NULL,
    p_RECEIVE_SMS_FLAG IN CONT_CCTRL_INFO.RECEIVE_SMS_FLAG%TYPE Default NULL,
    p_AUTO_RECONNECT_FLAG IN CONT_CCTRL_INFO.AUTO_RECONNECT_FLAG%TYPE Default NULL,
    p_CCTRL_BYPASS_FLAG IN CONT_CCTRL_INFO.CCTRL_BYPASS_FLAG%TYPE Default NULL,
    p_Excel_LD_Flag IN CUSTOMERS_INFO.other_field5%TYPE Default NULL,
    P_VIP_Type IN CUSTOMERS_INFO.other_field6%TYPE Default NULL,
    P_CPNI_FLAG IN CUSTOMERS_INFO.OTHER_FIELD9%TYPE Default NULL,
    p_Promo_Id IN Varchar2 Default NULL,
    p_Carrier_Id IN CONT_CUST.CARRIER_ID%TYPE Default NULL,
    p_Category_ID IN CONT_CUST.Category_ID%TYPE Default NULL,
    p_MTA_ID IN CONT_CUST.MTA_ID%TYPE Default 1,
    p_REQUIRED_DEPOSIT_AMT IN CUSTOMERS_INFO.OTHER_FIELD11%TYPE Default NULL,
    p_PREPAY_FLAG IN CONT_CUST.PREPAY_FLAG%TYPE Default NULL,
    P_ALT_ACCOUNT_NO2 IN CUSTOMERS_INFO.OTHER_FIELD12%TYPE Default NULL,
    P_EWAVE_CREDIT_SCORE IN CUSTOMERS_INFO.OTHER_FIELD13%TYPE Default NULL,
    P_EWAVE_APPLICATION_NO IN CUSTOMERS_INFO.OTHER_FIELD14%TYPE Default NULL,
    P_ALT_OWNER_NAME IN CUSTOMERS_INFO.ALT_OWNER_NAME%TYPE Default NULL,
    P_ALT_OWNER_PASSWORD IN CUSTOMERS_INFO.ALT_OWNER_PASSWORD%TYPE Default NULL,
    P_SALES_REP_ID IN CUSTOMERS_INFO.SALES_REP_ID%TYPE Default NULL,
    P_SALES_REP_EMAIL IN CUSTOMERS_INFO.SALES_REP_EMAIL%TYPE Default NULL
    IS
    ---------0---------0---------0---------0---------0---------0---------0--------80
    -- PURPOSE : Creates a NEW Account
    -- PARAMETERS : See above.
    -- NOTES :
    -- RETURN : 1) If successfull ................: Contract_Id
    -- 2) If a logical error then .......: ' ' (1 space)
    -- ERROR : If an exception error..........: 'p_error_return = sqlerrm.........'
    -- MODIFICATION HISTORY :
    -- Person Date Comments
    -- Mary Phan Jun 15, 2004 Init version. This procedure will execute procedure D_ACCT_NEW
    -- Mary Phan Jul 07, 2004 Add SALES_REP_ID and SALES_REP_EMAIL
    -- Subas Sep 07, 2005 Modified for ECAM
    -- Subas Sep 19, 2005 Added code to insert a blank record in CONT_MISC_DATA
    cc_PROC_NAME Varchar2(30):='D_ACCT_NEW';
    vc_SECTION Varchar2(10):='000';
    vn_Count Number;
    R_CCTRL_INFO_REC CONT_CCTRL_INFO%ROWTYPE;
    R_CI_REC CUSTOMERS_INFO%ROWTYPE;
    R_CC_REC CONT_CUST%ROWTYPE;
    R_CA_REC CONT_ADDRESS%ROWTYPE;
    R_CPI_REC CONT_PAYMENTS_INFO%ROWTYPE;
    vn_Customer_Id CONT_CUST.CUSTOMER_ID%TYPE;
    vn_Contract_Id CONT_CUST.CONTRACT_ID%TYPE;
    vc_bill_to_name CONT_ADDRESS.NAME%TYPE;
    vd_act_date CONT_CUST.ACT_DATE%TYPE;
    vn_BillCycle CONT_CUST.BILLCYCLE%TYPE;
    vc_Credit_Risk CONT_CCTRL_INFO.CREDIT_RISK%TYPE;
    vn_PARENT_CONTRACT_ID CONT_CUST.PARENT_CONTRACT_ID%TYPE;
    BEGIN
    vc_SECTION:='010';
    -- CHECK FOR CUSTOMER TYPE :
    IF UPPER(p_cust_type) NOT IN ('I','B') THEN
    Raise_Application_Error(-20100,'Customer type may be either "I" or "B"');
    END IF;
    -- CHECK FOR CUSTOMER NAME :
    IF UPPER(p_cust_type)='I' THEN
    IF ltrim(rtrim(p_contact_f_name)) is NULL THEN
    Raise_Application_Error(-20100,'Customer Name can not be a NULL Value');
    END IF;
    ELSIF UPPER(p_cust_type)='B' THEN
    IF ltrim(rtrim(p_company_name)) is NULL THEN
    Raise_Application_Error(-20100,'Company Name can not be a NULL Value');
    END IF;
    END IF;
    -- CHECK FOR BILL BY EMAIL :
    IF UPPER(p_bill_by_email)='Y' THEN
    IF p_EMAIL_ADDRESS is NULL THEN
    Raise_Application_Error(-20100,'Email Address cannot be a NULL Value');
    END IF;
    END IF;
    -- ASSIGN VALUES TO BILL_TO_NAME :
    vc_Bill_To_Name := ltrim(rtrim(p_BILL_TO_NAME));
    IF vc_Bill_To_Name IS NULL THEN
    IF UPPER(p_cust_type)='I' THEN
    vc_bill_to_name:=p_CONTACT_F_NAME||' '||
    p_CONTACT_MIDDLE_INITIAL||' '||
    p_CONTACT_L_NAME;
    ELSIF UPPER(p_cust_type)='B' THEN
    vc_bill_to_name:=p_COMPANY_NAME;
    END IF;
    END IF;
    -- Check for Minimum Address Requirement:
    IF p_BILL_TO_ADDRESS1 is NULL THEN
    Raise_Application_Error(-20100,'BILL TO Address cannot be a NULL Value');
    END IF;
    -- Determine Default values:
    IF pc_ACT_DATE IS NULL THEN
    vd_act_date:=sysdate;
    ELSE
    vd_act_date:=trunc(to_date(pc_ACT_DATE, 'yyyymmddhh24miss'));
    END IF;
    -- Assign BILLCYCLE:
    vn_BillCycle := p_BillCycle;
    IF vn_BillCycle = 0 THEN
    vn_BillCycle := C_UTIL_GET_DEF_BILLCYCLE (p_Carrier_Id);
    END IF;
    IF NVL(vn_Billcycle,0) = 0 then
    Raise_Application_Error(-20100,'Can not find a valid BILLCYCLE ');
    END IF;
    -- Get Customer_Id and Contract_ID from SEQUENCES :
    select contract_id_sequence.nextval into vn_Contract_Id from dual;
    select customer_id_sequence.nextval into vn_Customer_Id from dual;
    --INSERT RECORDS TO CUSTOMERS_INFO :
    vc_SECTION:='020';
    R_CI_REC.CUSTOMER_ID := vn_Customer_Id;
    R_CI_REC.FIRST_NAME := p_CONTACT_F_NAME;
    R_CI_REC.LAST_NAME := p_CONTACT_L_NAME;
    R_CI_REC.MIDDLE_INIT := p_CONTACT_MIDDLE_INITIAL;
    R_CI_REC.ADDRESS1 := p_CRED_SCORE_ADDRESS1;
    R_CI_REC.ADDRESS2 := p_CRED_SCORE_ADDRESS2;
    R_CI_REC.ADDRESS3 := p_CRED_SCORE_CITY;
    R_CI_REC.ADDRESS4 := p_CRED_SCORE_COUNTY;
    R_CI_REC.ADDRESS5 := p_CRED_SCORE_STATE;
    R_CI_REC.ADDRESS6 := p_CRED_SCORE_ZIP;
    --R_CI_REC.ADDRESS6                   := p_CRED_SCORE_Country;
    R_CI_REC.OTHER_FIELD1 := P_Contact_Name1;
    R_CI_REC.OTHER_FIELD2 := P_Contact_Name2;
    R_CI_REC.OTHER_FIELD3 := P_Contact_Name3;
    R_CI_REC.OTHER_FIELD4 := 0;
    R_CI_REC.OTHER_FIELD5 := p_Excel_LD_Flag;
    R_CI_REC.OTHER_FIELD6 := P_VIP_Type;
    R_CI_REC.OTHER_FIELD7 := NULL;
    R_CI_REC.OTHER_FIELD8 := NULL;
    R_CI_REC.OTHER_FIELD9 := P_CPNI_FLAG;
    R_CI_REC.OTHER_FIELD10 := P_PROMO_ID;
    R_CI_REC.OTHER_FIELD11 := P_REQUIRED_DEPOSIT_AMT;
    R_CI_REC.OTHER_FIELD12 := P_ALT_ACCOUNT_NO2;
    R_CI_REC.OTHER_FIELD13 := P_EWAVE_CREDIT_SCORE;
    R_CI_REC.OTHER_FIELD14 := P_EWAVE_APPLICATION_NO;
    R_CI_REC.OTHER_FIELD15 := NULL;
    R_CI_REC.OTHER_FIELD16 := NULL;
    R_CI_REC.OTHER_FIELD17 := NULL;
    R_CI_REC.OTHER_FIELD18 := NULL;
    R_CI_REC.OTHER_FIELD19 := NULL;
    R_CI_REC.OTHER_FIELD20 := NULL;
    R_CI_REC.EMAIL_ADDRESS := p_EMAIL_ADDRESS;
    R_CI_REC.BILL_BY_EMAIL := NVL(p_BILL_BY_EMAIL,B_UTIL_DEFSTRVAL('ACCOUNT','BILL_BY_EMAIL'));
    R_CI_REC.CUST_TYPE := p_CUST_TYPE;
    R_CI_REC.COMPANY_NAME := p_COMPANY_NAME;
    R_CI_REC.IDENTIFICATION_NO := p_TAX_ID;
    R_CI_REC.DRIVER_LICENSE_NO := p_DRIVER_LICENSE_NO;
    R_CI_REC.PHOTO_ID_VALUE := p_PHOTO_ID_VALUE;
    R_CI_REC.PHOTO_ID_STATE := p_PHOTO_ID_STATE;
    R_CI_REC.COUNTRY_ID := p_COUNTRY_ID;
    ---R_CI_REC.SOC_SEC_NUM := p_SOC_SEC_NUM;
    R_CI_REC.ID_METHOD := p_ID_OR_DANDB_TYPE;
    R_CI_REC.ID_VALUE := NULL;
    R_CI_REC.ID_REGION := p_ID_REGION;
    R_CI_REC.BIRTH_DATE := to_date(pc_Birth_Date, 'yyyymmddHH24MISS');
    R_CI_REC.HOME_PHONE_NUM := p_HOME_PHONE_NUM;
    R_CI_REC.BUSINESS_PHONE_NUM := p_BUSINESS_PHONE_NUM;
    R_CI_REC.CURR_ADDRESS_DATE := to_date(pc_Curr_Address_Date,'yyyymmddHH24MISS');
    R_CI_REC.PREV_ADDRESS1 := p_PREV_ADDRESS1;
    R_CI_REC.PREV_ADDRESS2 := p_PREV_ADDRESS2;
    R_CI_REC.PREV_CITY := p_PREV_CITY;
    R_CI_REC.PREV_COUNTY := p_PREV_COUNTY;
    R_CI_REC.PREV_STATE := p_PREV_STATE;
    R_CI_REC.PREV_POSTAL_CODE := p_PREV_ZIP;
    R_CI_REC.PREV_COUNTRY := p_PREV_COUNTRY;
    R_CI_REC.CREDIT_SCORE := p_ORIG_INTERNAL_SCORE;
    R_CI_REC.INTERNAL_CREDIT_SCORE := UPPER(p_INTERNAL_SCORE);
    R_CI_REC.INTERNAL_CREDIT_SCORE_DATE := SYSDATE;
    R_CI_REC.SALES_REP_FLAG := p_SALES_REP_FLAG;
    R_CI_REC.NAME_TITLE := p_CONTACT_TITLE;
    R_CI_REC.NAME_SUFFIX := P_CONTACT_SUFFIX;
    R_CI_REC.CREATION_DATE := SYSDATE;
    R_CI_REC.ALT_OWNER_NAME := P_ALT_OWNER_NAME;
    R_CI_REC.ALT_OWNER_PASSWORD := P_ALT_OWNER_PASSWORD;
    R_CI_REC.SALES_REP_ID := P_SALES_REP_ID;
    R_CI_REC.SALES_REP_EMAIL := P_SALES_REP_EMAIL;
    R_CI_REC.LAST_MODIFIED_DATE := SYSDATE;
    R_CI_REC.LAST_MODIFIED_BY := P_USERNAME;
    D_INS_UPD_CUSTINFO(p_Return,p_Error_Return,p_UserName,'INS',R_CI_REC);
    --INSERT RECORDS INTO CONT_CUST :
    vc_SECTION:='030';
    SELECT DECODE(P_PARENT_CONTRACT_ID,NULL,VN_CONTRACT_ID,P_PARENT_CONTRACT_ID)
    INTO VN_PARENT_CONTRACT_ID
    FROM DUAL;
    R_CC_REC.CONTRACT_ID := vn_Contract_Id;
    R_CC_REC.ACCOUNT_NO := vn_Contract_Id;
    R_CC_REC.CUSTOMER_ID := vn_customer_id;
    R_CC_REC.RP_ID := 0;
    R_CC_REC.MTA_ID := p_MTA_ID;
    R_CC_REC.TAX_REGION_ID := p_TAX_REGION_ID;
    R_CC_REC.ACT_DATE := trunc(vd_act_date);
    R_CC_REC.BILLCYCLE := vn_Billcycle;
    R_CC_REC.LAST_BILL_DATE := trunc(vd_act_date-1);
    R_CC_REC.DEACT_DATE := NULL;
    R_CC_REC.ENTRY_DATE := NVL(to_date(pc_ENTRY_DATE,'yyyymmddhh24miss'),SYSDATE);
    R_CC_REC.ENTRY_BY := p_UserName;
    R_CC_REC.OPEN_BALANCE := 0;
    R_CC_REC.PREPAY_FLAG := P_PREPAY_FLAG;
    R_CC_REC.USAGE_THRESHOLD := NVL(p_USAGE_THRESHOLD,
    B_UTIL_GET_CREDIT_LIMIT(P_Internal_Credit_Score=>UPPER(p_INTERNAL_SCORE),
    p_Contract_Type=>'ACCOUNT'));
    R_CC_REC.PMM_CUR_BALANCE := NULL;
    R_CC_REC.SUB_ACCOUNT_ID := 0;
    R_CC_REC.CATEGORY_ID := p_Category_ID;
    R_CC_REC.DEACT_REASON_ID := NULL;
    R_CC_REC.DETAIL_BILLING := NVL(P_DETAIL_BILLING,B_UTIL_DEFSTRVAL('ACCOUNT','DETAIL_BILLING'));
    R_CC_REC.CARRIER_ID := NVL(p_carrier_id,1);
    R_CC_REC.BILL_LANGUAGE_ID := NVL(p_BILL_LANGUAGE_ID,B_UTIL_DEFSTRVAL('ACCOUNT','BILL_LANGUAGE_ID'));
    R_CC_REC.BILL_LAYOUT_ID := NVL(p_BILL_LAYOUT_ID,B_UTIL_DEFSTRVAL('ACCOUNT','BILL_LAYOUT_ID'));
    R_CC_REC.BILL_CURRENCY_ID := NVL(p_BILL_CURRENCY_ID,B_UTIL_DEFSTRVAL('ACCOUNT','BILL_CURRENCY_ID'));
    R_CC_REC.FIXED_CURRENCY := NVL(p_FIXED_CURRENCY,B_UTIL_DEFSTRVAL('ACCOUNT','FIXED_CURRENCY'));
    R_CC_REC.APPLY_LATE_FEES := NVL(p_APPLY_LATE_FEES,B_UTIL_DEFSTRVAL('ACCOUNT','APPLY_LATE_FEES'));
    R_CC_REC.PARENT_CONTRACT_ID := VN_PARENT_CONTRACT_ID;
    R_CC_REC.LEVEL_NO := 0;
    R_CC_REC.AP_FLAG := 'Y';
    R_CC_REC.RESTRICTION_CLASS_ID := NULL;
    R_CC_REC.OMM_UPDATE_FLAG := 'N';
    R_CC_REC.INACTIVE_FLAG := 'N';
    R_CC_REC.SWITCH_PROFILE := NULL;
    R_CC_REC.ALT_ACCOUNT_NO := p_ALT_ACCOUNT_NO;
    R_CC_REC.ALT_SUB_ACCOUNT_ID := p_ALT_SUB_ACCOUNT_ID;
    R_CC_REC.DEPOSITED_AMT := NULL;
    R_CC_REC.READY_TO_ACT := NULL;
    R_CC_REC.ACCOUNT_STATUS := NVL(p_STATUS,'SHELL');
    R_CC_REC.EARLY_TERMINATION_FEE := NULL;
    R_CC_REC.EARLY_TERMINATION_DATE := NULL;
    R_CC_REC.SALES_REP_ID := NULL;
    R_CC_REC.MANUAL_OMM_ACTIVATE := NULL;
    R_CC_REC.PERMANENT_USAGE_THRESHOLD := R_CC_REC.USAGE_THRESHOLD;
    D_INS_UPD_CONTCUST(p_Return,p_Error_Return,p_UserName,'INS',R_CC_REC);
    --INSERT RECORDS INTO CONT_PAYMENT_INFO :
    vc_SECTION:='040';
    R_CPI_REC.CONTRACT_ID := vn_Contract_Id;
    R_CPI_REC.AUTO_PAYMENT_FLAG := NVL(p_AUTO_PAYMENT_FLAG,B_UTIL_DEFSTRVAL('ACCOUNT','AUTO_PAYMENT_FLAG'));
    R_CPI_REC.PAYMENT_METHOD := NVL(p_PAYMENT_METHOD,'CASH');
    R_CPI_REC.BANK_NAME := p_DEF_PAY_BANK_NAME;
    R_CPI_REC.OWNER_NAME := p_DEF_PAY_OWNER_NAME;
    R_CPI_REC.OWNER_ADDRESS := p_DEF_PAY_CARD_ADDRESS;
    R_CPI_REC.OWNER_ADDRESS2 := p_DEF_PAY_ADDRESS2;
    R_CPI_REC.OWNER_CITY := p_DEF_PAY_CITY;
    R_CPI_REC.OWNER_COUNTY := p_DEF_PAY_COUNTY;
    R_CPI_REC.OWNER_STATE := p_DEF_PAY_STATE;
    R_CPI_REC.BANK_CC_NUMBER := p_DEF_PAY_CARD_NUMBER;
    R_CPI_REC.CC_CARD_TYPE_ID := p_DEF_PAY_CARD_TYPE;
    R_CPI_REC.CC_EXPIRATION_DATE := to_date(pc_DEF_PAY_CARD_EXPIRES,'YYYYMMDDHH24MISS');
    R_CPI_REC.CC_AMEX_CID := p_DEF_PAY_AMEX_CID;
    R_CPI_REC.CC_AUTH_NUMBER := NULL;
    R_CPI_REC.CC_AUTH_REQUEST_AMOUNT := NULL;
    R_CPI_REC.CC_AUTH_AMOUNT := NULL;
    R_CPI_REC.CC_AUTH_DATE := NULL;
    R_CPI_REC.CARDHOLDER_POSTAL_CODE := p_DEF_PAY_ZIP;
    R_CPI_REC.ABA := P_DEF_PAY_ROUTING_NO;
    R_CPI_REC.ACCOUNT_TYPE := P_DEF_CHK_ACCOUNT_TYPE;
    R_CPI_REC.CC_CCV2_NUMBER := p_DEF_PAY_CARD_CCV2;
    R_CPI_REC.LAST_MODIFIED_DATE := SYSDATE;
    R_CPI_REC.LAST_MODIFIED_BY := P_USERNAME;
    D_INS_UPD_CONTPAYMENTSINFO(p_Return,p_Error_Return,p_UserName,'INS',R_CPI_REC);
    --INSERT RECORDS INTO CONT_ADDRESS
    vc_SECTION:='050';
    R_CA_REC.CONTRACT_ID := vn_Contract_id;
    R_CA_REC.ADDRESS_TYPE := 'B';
    R_CA_REC.NAME := vc_bill_to_name;
    R_CA_REC.ADDRESS1 := p_BILL_TO_ADDRESS1;
    R_CA_REC.ADDRESS2 := p_BILL_TO_ADDRESS2;
    R_CA_REC.CITY := p_BILL_TO_CITY;
    R_CA_REC.COUNTY := P_BILL_TO_COUNTY;
    R_CA_REC.STATE := p_BILL_TO_STATE;
    R_CA_REC.POSTAL_CODE := p_BILL_TO_ZIP;
    R_CA_REC.COUNTRY := P_BILL_TO_COUNTRY;
    R_CA_REC.GEOCODE := p_BILL_TO_GEOCODE;
    R_CA_REC.BUS_OR_RES_FLAG := p_BILL_TO_BUS_OR_RES_FLAG;
    R_CA_REC.INSIDE_CORP_FLAG := p_BILL_TO_INSIDE_CORP_FLAG;
    D_INS_UPD_CONTADDRESS(p_Return,p_Error_Return,p_UserName,'INS',R_CA_REC);
    -- INSERT RECORD INTO CONT_CCTRL_INFO :
    vc_SECTION:='060';
    IF p_Credit_Risk is not NULL then
    vc_Credit_Risk := p_Credit_Risk ;
    ELSE
    IF R_CI_REC.INTERNAL_CREDIT_SCORE IS NULL THEN
    vc_Credit_Risk := 'High';
    ELSIF R_CI_REC.INTERNAL_CREDIT_SCORE IN ('A','B') THEN
    vc_Credit_Risk := 'Low';
    ELSIF R_CI_REC.INTERNAL_CREDIT_SCORE = 'C' THEN
    vc_Credit_Risk := 'Medium';
    ELSE
    vc_Credit_Risk := 'High';
    END IF;
    END IF;
    R_CCTRL_INFO_REC.CONTRACT_ID := vn_CONTRACT_ID;
    R_CCTRL_INFO_REC.ENTRY_BY := p_UserName;
    R_CCTRL_INFO_REC.CREDIT_RISK := vc_Credit_Risk;
    R_CCTRL_INFO_REC.CREDIT_CATEGORY := NVL(p_Credit_CATEGORY,B_UTIL_DEFSTRVAL('ACCOUNT','CREDIT_CATEGORY'));
    R_CCTRL_INFO_REC.CREDIT_STATUS := NVL(p_Credit_STATUS,B_UTIL_DEFSTRVAL('ACCOUNT','CREDIT_STATUS'));
    R_CCTRL_INFO_REC.PTP_DATE := to_date(pc_PTP_Date,'yyyymmddhh24miss');
    R_CCTRL_INFO_REC.RECEIVE_SMS_FLAG := 'N';
    R_CCTRL_INFO_REC.AUTO_RECONNECT_FLAG := NVL(p_AUTO_RECONNECT_FLAG,'Y');
    R_CCTRL_INFO_REC.CCTRL_BYPASS_FLAG := NVL(p_CCTRL_BYPASS_FLAG,'N');
    R_CCTRL_INFO_REC.LAST_MODIFIED_BY := p_UserName;
    R_CCTRL_INFO_REC.LAST_MODIFIED_DATE := SYSDATE;
    D_INS_UPD_CONTCCTRLINFO(P_Return,P_Error_Return,p_UserName,'INS',R_CCTRL_INFO_REC);
    -- INSERT RECORD INTO CONT_MISC_DATA :
    vc_SECTION:='070';
    INSERT INTO CONT_MISC_DATA
    (CONTRACT_ID)
    VALUES
    (vn_Contract_Id);
    p_Return := vn_Contract_Id;
    EXCEPTION
    WHEN others THEN
    p_Return:='';
    p_Error_Return :=cc_PROC_NAME||' '|| vc_SECTION||':'|| SUBSTR(sqlerrm,1,300);
    END; -- D_ACCT_NEW

  • Error with stored procedure block datasource

    Hi all,
    I tried to base a datablock on a stored procedure in order to get better runtime performance. I work with Forms Builder 6i with patch 17 , and our database is oracle 8.1.7.1.4
    But when compiling I got errors.
    Here are what I did :
    create or replace type TSourceObject as object(name varchar2(30), propname varchar2(200));
    create or replace type TSourceTable is table of TSourceObject;
    create or replace procedure p_query_ntwk_chnl_mirror(p_tab IN OUT NOCOPY TSourceTable, p_action varchar2, p_lien number)
    is
    begin
    if p_action = 'VISU' then
    select TSourceObject(B.bdw_name, P.prop_bdw_name)
    bulk collect into p_tab
    from T_NETWORK_CHANNEL N, t_bdw_mw B, t_prop_bdw_mw P
    where B.comp_bdw = P.comp_bdw and P.comp_prop_bdw = N.comp_prop_bdw
    and EXISTS (SELECT 1
    FROM t_channel_element C
    WHERE N.comp_network_channel = C.comp_network_channel and comp_lien = p_lien);
    else
    select TSourceObject(B.bdw_name, P.prop_bdw_name)
    bulk collect into p_tab
    from T_NETWORK_CHANNEL N, t_bdw_mw B, t_prop_bdw_mw P
    where B.comp_bdw = P.comp_bdw and P.comp_prop_bdw = N.comp_prop_bdw;
    end if;
    end;
    Then I created the datablock with the wizard , I entered correctly the value of the arguments for the table type name, the argument p_action and the argument p_lien.
    And when compiling there was this alert error :
    Compiling QUERY-PROCEDURE trigger on NETWORK_CHANNEL_MIRROR data block...
    Compilation error on QUERY-PROCEDURE trigger on NETWORK_CHANNEL_MIRROR data block:
    PL/SQL ERROR 960 at line 5, column 9
    RPCs cannot use variables with schema level user-defined types in this release
    PL/SQL ERROR 0 at line 5, column 9
    Item ignored
    PL/SQL ERROR 320 at line 7, column 26
    the declaration of the type of this expression is incomplete or malformed
    PL/SQL ERROR 0 at line 7, column 1
    Statement ignored
    PL/SQL ERROR 320 at line 8, column 28
    the declaration of the type of this expression is incomplete or malformed
    PL/SQL ERROR 0 at line 8, column 1
    Statement ignored
    Compilation errors have occurred.
    So what should I do ?
    Thank you very much indeed.

    I create the package , and when creating the body then there was an error.
    Here is the package :
    create or replace package pkg_query_ntwrk_chnl_mirror
    is
    type TSourceObject is record(name varchar2(30), propname varchar2(200));
    type TSourceTable is table of TSourceObject index by binary_integer;
    procedure p_query_ntwk_chnl_mirror(p_tab IN OUT NOCOPY pkg_query_ntwrk_chnl_mirror.TSourceTable, p_action varchar2, p_lien number);
    end;
    create or replace package body pkg_query_ntwrk_chnl_mirror
    is
    procedure p_query_ntwk_chnl_mirror(p_tab IN OUT NOCOPY pkg_query_ntwrk_chnl_mirror.TSourceTable, p_action varchar2, p_lien number)
    is
    begin
    if p_action = 'VISU' then
         select B.bdw_name, P.prop_bdw_name
         bulk collect into p_tab
         from T_NETWORK_CHANNEL N, t_bdw_mw B, t_prop_bdw_mw P
         where B.comp_bdw = P.comp_bdw and P.comp_prop_bdw = N.comp_prop_bdw
         and EXISTS (SELECT 1
         FROM t_channel_element C
         WHERE N.comp_network_channel = C.comp_network_channel and comp_lien = p_lien);
    else
         select B.bdw_name, P.prop_bdw_name
         bulk collect into p_tab
         from T_NETWORK_CHANNEL N, t_bdw_mw B, t_prop_bdw_mw P
         where B.comp_bdw = P.comp_bdw and P.comp_prop_bdw = N.comp_prop_bdw;
    end if;
    end;
    end;
    And here is the error :
    7/2 PL/SQL: SQL Statement ignored
    8/20 PLS-00597: expression 'P_TAB' in the INTO list is of wrong type
    15/2 PL/SQL: SQL Statement ignored
    16/20 PLS-00597: expression 'P_TAB' in the INTO list is of wrong type
    And what is the problem here ? I think it is right!

  • Get variable values from a stored procedure

    I am using SQL 2008R2 and I want to replace a view inside a stored procedure with a new stored procedure to return multiple variable values. Currently I am using the code below to get values for 4 different variables.  I would rather get the 4 variables
    from a stored procedure (which returns all of these 4 values and more) but not sure how to do so.  Below is the code for getting the 4 variable values in my current sp.
    DECLARE @TotalCarb real;
    DECLARE @TotalPro real;
    DECLARE @TotalFat real;
    DECLARE @TotalLiquid real;
    SELECT @TotalCarb = ISNULL(TotCarb,0),
    @TotalPro = ISNULL(TotPro,0),
    @TotalFat = ISNULL(TotFat,0),
    @TotalLiquid = ISNULL(TotLiq,0)
    FROM dbo.vw_ActualFoodTotals
    WHERE (MealID = @MealID);

    You can replace the view with inline table valued user-defined function:
    http://www.sqlusa.com/bestpractices/training/scripts/userdefinedfunction/
    See example: SQL create  INLINE table-valued function like a parametrized view
    Kalman Toth Database & OLAP Architect
    SQL Server 2014 Design & Programming
    New Book / Kindle: Exam 70-461 Bootcamp: Querying Microsoft SQL Server 2012

  • Error in stored procedure while using dbms_datapump for transportable

    Hi,
    I'm facing following issue:
    SQL> select * from v$version;
    BANNER
    Oracle Database 10g Enterprise Edition Release 10.2.0.4.0 - 64bi
    PL/SQL Release 10.2.0.4.0 - Production
    CORE 10.2.0.4.0 Production
    TNS for Solaris: Version 10.2.0.4.0 - Production
    NLSRTL Version 10.2.0.4.0 - Production
    ====================================================================================
    I'm trying to do transportable tablespace through stored procedure with help of DBMS_DATAPUMP, Following is the code :
    ==================================================================================
    create or replace
    procedure sp_tts_export(v_tbs_name varchar2) as
    idx NUMBER; -- Loop index
    JobHandle NUMBER; -- Data Pump job handle
    PctComplete NUMBER; -- Percentage of job complete
    JobState VARCHAR2(30); -- To keep track of job state
    LogEntry ku$_LogEntry; -- For WIP and error messages
    JobStatus ku$_JobStatus; -- The job status from get_status
    Status ku$_Status; -- The status object returned by get_status
         dts           varchar2(140):=to_char(sysdate,'YYYYMMDDHH24MISS');
         exp_dump_file varchar2(500):=v_tbs_name||'_tts_export_'||dts||'.dmp';
         exp_log_file varchar2(500):=v_tbs_name||'_tts_export_'||dts||'.log';
         exp_job_name varchar2(500):=v_tbs_name||'_tts_export_'||dts;
         dp_dir varchar2(500):='DATA_PUMP_DIR';
         log_file UTL_FILE.FILE_TYPE;
         log_filename varchar2(500):=exp_job_name||'_main'||'.log';
         err_log_file UTL_FILE.FILE_TYPE;
         v_db_name varchar2(1000);
         v_username varchar2(30);
         t_dir_name VARCHAR2(4000);
    t_file_name VARCHAR2(4000);
    t_sep_pos NUMBER;
         t_dir varchar2(30):='temp_0123456789';
         v_sqlerrm varchar2(4000);
    stmt varchar2(4000);
         FUNCTION get_file(filename VARCHAR2, dir VARCHAR2 := 'TEMP')
    RETURN VARCHAR2 IS
    contents VARCHAR2(32767);
    file BFILE := BFILENAME(dir, filename);
    BEGIN
              DBMS_LOB.FILEOPEN(file, DBMS_LOB.FILE_READONLY);
              contents := UTL_RAW.CAST_TO_VARCHAR2(
    DBMS_LOB.SUBSTR(file));
              DBMS_LOB.CLOSE(file);
              RETURN contents;
         END;
    begin
    --execute immediate ('drop tablespace test including contents and datafiles');
    --execute immediate ('create tablespace test datafile ''/home/smishr02/test.dbf'' size 10m');
    --execute immediate ('create table prestg.test_table (a number) tablespace test');
    --execute immediate ('insert into prestg.test_table values (1)');
    --commit;
    --execute immediate ('alter tablespace test read only');
    --dbms_output.put_line('11111111111111111111');
    dbms_output.put_line(log_filename||'>>>>>>>>>>>>>>>>>>>>>>>>>>>'|| dp_dir);
    log_file:=UTL_FILE.FOPEN (dp_dir, log_filename, 'w');
    UTL_FILE.PUT_LINE(log_file,'#####################################################################');
    UTL_FILE.PUT_LINE(log_file,'REPORT: GENERATED ON ' || SYSDATE);
    UTL_FILE.PUT_LINE(log_file,'#####################################################################');
    select global_name,user into v_db_name,v_username from global_name;
    UTL_FILE.PUT_LINE(log_file,'Database:'||v_db_name);
    UTL_FILE.PUT_LINE(log_file,'user running the job:'||v_username);
    UTL_FILE.PUT_LINE(log_file,'for tablespace:'||v_tbs_name);
    UTL_FILE.NEW_LINE (log_file);
    stmt:='ALTER TABLESPACE '||v_tbs_name || ' read only';
    dbms_output.put_line('11111111111111111111'||stmt);
    execute immediate (stmt);
    UTL_FILE.PUT_LINE(log_file,' '||v_tbs_name || ' altered to read only mode.');
    UTL_FILE.NEW_LINE (log_file);
    UTL_FILE.PUT_LINE(log_file,'#####################################################################');
    UTL_FILE.NEW_LINE (log_file);
    UTL_FILE.PUT_LINE(log_file,' Initiating the Datapump engine for TTS export..............');
    UTL_FILE.NEW_LINE (log_file);
    dbms_output.put_line('11111111111111111111');
    JobHandle :=
    DBMS_DATAPUMP.OPEN(
    operation => 'EXPORT'
    *,job_mode => 'TRANSPORTABLE'*
    *,remote_link => NULL*
    *,job_name => NULL*
    --,job_name => exp_job_name
    --        ,version => 'LATEST'
    UTL_FILE.PUT_LINE(log_file,'Done');
    UTL_FILE.NEW_LINE (log_file);
    UTL_FILE.PUT_LINE(log_file,' Allocating dumpfile................');
    DBMS_DATAPUMP.ADD_FILE(
    handle => JobHandle
    ,filename => exp_dump_file
    ,directory => dp_dir
    ,filetype => DBMS_DATAPUMP.KU$_FILE_TYPE_DUMP_FILE
    -- ,filesize => '100M'
    UTL_FILE.PUT_LINE(log_file,'Done');
    UTL_FILE.NEW_LINE (log_file);
    UTL_FILE.PUT_LINE(log_file,' Allocating logfile................');
    DBMS_DATAPUMP.ADD_FILE(
    handle => JobHandle
    ,filename => exp_log_file
    ,directory => dp_dir
    ,filetype => DBMS_DATAPUMP.KU$_FILE_TYPE_LOG_FILE
    UTL_FILE.PUT_LINE(log_file,'Done');
    UTL_FILE.NEW_LINE (log_file);
    UTL_FILE.PUT_LINE(log_file,' Setting attributes................');
    DBMS_DATAPUMP.set_parameter(handle => JobHandle,
    name=>'TTS_FULL_CHECK',
    value=>1);
    DBMS_DATAPUMP.METADATA_FILTER(
    handle => JobHandle
    ,NAME => 'TABLESPACE_EXPR'
    ,VALUE => 'IN ('''||v_tbs_name||''')'
    -- ,object_type => 'TABLE'
    UTL_FILE.PUT_LINE(log_file,'Done');
    UTL_FILE.NEW_LINE (log_file);
    UTL_FILE.PUT_LINE(log_file,' Now starting datapump job................');
    DBMS_DATAPUMP.START_JOB(JobHandle);
    UTL_FILE.PUT_LINE(log_file,'Done');
    UTL_FILE.NEW_LINE (log_file);
    UTL_FILE.PUT_LINE(log_file,' Monitoring the job................');
    --------------Monitor the job
    PctComplete := 0;
    JobState := 'UNDEFINED';
    WHILE(JobState != 'COMPLETED') and (JobState != 'STOPPED')
    LOOP
    DBMS_DATAPUMP.GET_STATUS(
    handle => JobHandle
    ,mask => 15 -- DBMS_DATAPUMP.ku$_status_job_error + DBMS_DATAPUMP.ku$_status_job_status + DBMS_DATAPUMP.ku$_status_wip
    ,timeout => NULL
    ,job_state => JobState
    ,status => Status
    JobStatus := Status.job_status;
    -- Whenever the PctComplete value has changed, display it
    IF JobStatus.percent_done != PctComplete THEN
    DBMS_OUTPUT.PUT_LINE('*** Job percent done = ' || TO_CHAR(JobStatus.percent_done));
    PctComplete := JobStatus.percent_done;
    END IF;
    -- Whenever a work-in progress message or error message arises, display it
    IF (BITAND(Status.mask,DBMS_DATAPUMP.ku$_status_wip) != 0) THEN
    LogEntry := Status.wip;
    ELSE
    IF (BITAND(Status.mask,DBMS_DATAPUMP.ku$_status_job_error) != 0) THEN
    LogEntry := Status.error;
    ELSE
    LogEntry := NULL;
    END IF;
    END IF;
    IF LogEntry IS NOT NULL THEN
    idx := LogEntry.FIRST;
    WHILE idx IS NOT NULL
    LOOP
    DBMS_OUTPUT.PUT_LINE(LogEntry(idx).LogText);
    idx := LogEntry.NEXT(idx);
    END LOOP;
    END IF;
    END LOOP;
         --copy the datafiles to data dump dir     
         UTL_FILE.PUT_LINE(log_file,'Done');
    UTL_FILE.NEW_LINE (log_file);
    UTL_FILE.PUT_LINE(log_file,' Copying datafiles to dump directory................');
    -- grant select on dba_directories to prestg;
    declare
    cnt number;
    begin
    select count(*) into cnt from dba_directories
    where directory_name=upper(t_dir);
    if cnt=1 then
    execute immediate('DROP DIRECTORY '||t_dir);
    end if;
    end;
         FOR rec in (select file_name from sys.dba_data_files where tablespace_name=v_tbs_name)
         LOOP
         t_sep_pos:=instr(rec.file_name,'/',-1);
    t_dir_name:=substr(rec.file_name,1,t_sep_pos-1);
    t_file_name:=substr(rec.file_name,t_sep_pos+1,length(rec.file_name));
    dbms_output.put_line(t_dir_name|| ' ' || t_dir);
    dbms_output.put_line(t_file_name);
         execute immediate('CREATE DIRECTORY '||t_dir||' AS '''||t_dir_name||'''');
         UTL_FILE.PUT_LINE(log_file,' Copying '||rec.file_name||'................');
         utl_file.fcopy(t_dir, t_file_name, dp_dir, t_file_name);
         UTL_FILE.PUT(log_file,'Done');
         execute immediate('DROP DIRECTORY '||t_dir);
         END LOOP;
    UTL_FILE.NEW_LINE (log_file);
    UTL_FILE.PUT_LINE(log_file,' Altering tablespace to read write................');
         execute immediate ('ALTER TABLESPACE '||v_tbs_name || ' read write');
    UTL_FILE.PUT(log_file,' Done');
         err_log_file:=utl_file.fopen(dp_dir, exp_log_file, 'r');
         UTL_FILE.NEW_LINE (log_file);
    UTL_FILE.PUT_LINE(log_file,' content of export logfile................');
         loop
    begin
         utl_file.get_line(err_log_file,v_sqlerrm);
         if v_sqlerrm is null then
         exit;
         end if;
         UTL_FILE.PUT_LINE(log_file,v_sqlerrm);
    EXCEPTION
    WHEN NO_DATA_FOUND THEN
    EXIT;
    END;
         end loop;
              utl_file.fclose(err_log_file);
    utl_file.fclose(log_file);
    END;
    I'm getting following error when DBMS_DATAPUMP.OPEN is called in procedure:
    SQL> exec sp_tts_export('TEST');
    BEGIN sp_tts_export('TEST'); END;
    ERROR at line 1:
    ORA-31626: job does not exist
    ORA-06512: at "SYS.DBMS_SYS_ERROR", line 79
    ORA-06512: at "SYS.DBMS_DATAPUMP", line 938
    ORA-06512: at "SYS.DBMS_DATAPUMP", line 4566
    ORA-06512: at "PRESTG.SP_TTS_EXPORT", line 78
    ORA-06512: at line 1
    ==============================================================================================
    This procedure is part of user ABC. I'm getting the above when I'm running this under ABC schema. However I have tested the same procedure under sys schema. When I'm creating same procedure in SYS schema it is running fine. I am clueless on this. Pls help
    Thanks
    Shailesh
    Edited by: shaileshM on Jul 28, 2010 11:15 AM

    Privileges acquired via ROLE do NOT apply within named PL/SQL procedures.
    Explicit GRANT is required to resolve this issue.

  • Error executing Stored Procedure that returns a recordset in Visual Basic 6

    Hello, i tried to use the example in the link posted as a response to my question in a previous thread, and in Visual Basic 6, when i execute the Stored procedure it gives me the following error:
    This is the package created as indicated in the example FAQ you posted.
    package types
    as
    type cursorType is ref cursor;
    end;
    This is the procedure created as indicated in the example FAQ you posted.
    PROCEDURE SP_TITUVALO(T_BR IN VARCHAR2,
    P_Cursor OUT TYPES.cursorType )
    AS
    BEGIN
    OPEN P_Cursor FOR
    SELECT * FROM TASAS WHERE BR=T_BR AND TASA > 0;
    END;
    This is the code used to execute the Stored Procedure in VB6:
    Dim objConn As New ADODB.Connection
    Dim connString
    Dim cmdStoredProc As New ADODB.Command
    Dim param1 As New ADODB.Parameter
    Dim RS As ADODB.Recordset
    Set param1 = cmdStoredProc.CreateParameter("T_BR", adVarChar, adParamInput, 255, "97")
    cmdStoredProc.Parameters.Append param1
    objConn.Open strconex
    Set cmdStoredProc.ActiveConnection = objConn
    cmdStoredProc.CommandText = "SP_TITUVALO"
    cmdStoredProc.CommandType = adCmdStoredProc
    Set RS = cmdStoredProc.Execute
    This is the error returned:
    ORA-06550: line 1, column 7:
    PLS-00306: wrong number or types of arguments in call to 'SP_TITUVALO'
    ORA-06550: line 1, column 7:
    PL/SQL: Statement ignored
    ****************************************************************

    Juan,
    Not sure about FAQ you are referring to, but it seems that you need to set PLSQLRSet property of ADODB.Command to TRUE. Because if you fail to do so - errors with refcursors are likely to happen.
    Consider:
    Set objConn = CreateObject("ADODB.Connection")
    objConn.ConnectionString = "Provider=OraOLEDB.Oracle;Persist Security Info=False;Data Source=test9ora;User ID=max;Password=blabla"
    objConn.Open
    'Dim cmdStoredProc
    Set cmdStoredProc = CreateObject("ADODB.Command")
    Dim param1
    Set param1 = cmdStoredProc.CreateParameter("T_BR", adVarChar, adParamInput, 255, "97")
    param1.Value = "X"
    cmdStoredProc.Parameters.Append param1
    'Dim RS
    Set cmdStoredProc.ActiveConnection = objConn
    'The following line was missed out
    cmdStoredProc.Properties("PLSQLRSet") = True
    cmdStoredProc.CommandText = "SP_TITUVALO"
    cmdStoredProc.CommandType = adCmdStoredProc
    Set RS = cmdStoredProc.ExecuteThis works fine, at least for me.
    Cheers.

  • Error calling stored procedure from MFC using odbc

    Hello,
    I am using MFC to call a stored procedure written in PL/SQL, but when I make the call I get the next error in Spanish:
    "No se enlazaron columnas antes de llamar a SQLFetchScroll o SQLExtendedFetch", which more or less in English means:
    "No rows were binded before calling SQLFetchScroll or SQLExtendedFetch".
    I am using a CRecordset derived class to access the stored procedure. I am unable to find the error.
    THE STORED PROCEDURE'S HEADER:
    Sp_Int_Ot_Ordendetrabajoalta ( lineatrabajo NUMBER, lv_orden NUMBER, usuario
    VARCHAR2, idvehiculo NUMBER, fechamax1 VARCHAR2, resumen VARCHAR2, detalle
    VARCHAR2,
    coderp VARCHAR2, numtrabrecibidos NUMBER, lv_CODOT VARCHAR2, retorno OUT
    INTEGER)
    THE .H FOR THE CRECORDSET DERIVED CLASS (Visual Studio 6 comments removed)
    class CRecSP : public CRecordset
    public:
    CRecSP(CDatabase* pDatabase = NULL);
    DECLARE_DYNAMIC(CRecSP)
    CString m_szSQL;
    long m_RETORNO;
    virtual CString GetDefaultConnect();
    virtual CString GetDefaultSQL();
    virtual void DoFieldExchange(CFieldExchange* pFX);
    THE .CPP FOR THE CLASS (VS6 comments removed)
    IMPLEMENT_DYNAMIC(CRecSP, CRecordset)
    CRecSP::CRecSP(CDatabase* pdb) : CRecordset(pdb)
    m_RETORNO = 0;
    m_nParams = 1;
    m_nDefaultType = snapshot;
    CString CRecSP::GetDefaultConnect()
    return T( DBCONNECTION_STRING );
    CString CRecSP::GetDefaultSQL()
    return m_szSQL;
    void CRecSP::DoFieldExchange(CFieldExchange* pFX)
    pFX->SetFieldType(CFieldExchange::outputParam);
    RFX_Long(pFX, _T("[retorno]"), m_RETORNO );
    USING THE CRECORDSET DERIVED CLASS: (Vars read from EditBoxes as CStrings
    and formatted in the SQL)
    CRecSP *rec = new CRecSP(&db);
    szSQL.Format( "{CALL
    FGROT2005.SP_INT_OT_ORDENDETRABAJOALTA(%s,%s,'%s',%s,'%s','%s','%s','%s',%s,'%s',?)}",
    szLinea, szOrden, "USER", szIdVeh, szFechaMax, szResumen,
    szDetalle, "ERP", "0", szCodOT
    rec->m_szSQL = szSQL;
    //rec->Open( CRecordset::forwardOnly,szSQL,CRecordset::readOnly );
    rec->Open( );
    iError = rec->m_RETORNO;
    rec->Close();

    This forum is meant for discussions about OTN content/site and services.
    Questions about Oracle products and technologies will NOT be answered in this forum. Please post your product or technology related questions in the appropriate product or technology forums, which are monitored by Oracle product managers.
    Product forums:
    http://forums.oracle.com/forums/index.jsp?cat=9
    Technology forums:
    http://forums.oracle.com/forums/index.jsp?cat=10

  • Error Calling Stored Procedure Receiver adapter

    Hi Guys,
    I am trying to send data to a stored procedure SQL server R2 2008 from SAP PI7.11.
    Transport Protocol: JDBC2.0
    Message Protocol : XMLSQLFORMAT
    I am able to read from same database using sender adapter.
    Name of SP:  InderTest
    Paramters in SP :      @Carrier Varchar(20), @Location Varchar(20), @Product Varchar(20), @Zone Varchar(20),
         @dteStart date, @dteEnd date, @strType Varchar(1),     @intRate Float
      <?xml version="1.0" encoding="UTF-8" ?>
    - <ns0:MT_FreightPricing xmlns:ns0="http://na.holcim.com/pi/o2c/pricingmaster">
    - <StatementName1>
    - <InderTest action="EXECUTE">
      <table>InderTest</table>
      <Carrier isInput="true" type="VARCHAR">4000004</Carrier>
      <Location isInput="true" type="VARCHAR">3600</Location>
      <Product isInput="true" type="VARCHAR">3553</Product>
      <Zone isInput="true" type="VARCHAR">Zone1</Zone>
      <dteStart isInput="true" type="DATE">20110704</dteStart>
      <dteEnd isInput="true" type="DATE">20120704</dteEnd>
      <strType isInput="true" type="VARCHAR">A</strType>
      <intRate isInput="true" type="FLOAT">10.00</intRate>
      </InderTest>
      </StatementName1>
      </ns0:MT_FreightPricing>
    Error in JDBC Receiver
    Message processing failed. Cause: com.sap.engine.interfaces.messaging.api.exception.MessagingException: Error processing request in sax parser: Error when executing statement for table/stored proc. 'InderTest' (structure 'StatementName1'): java.lang.IllegalArgumentException
    Any clue...
    I was reading this help document. They have mentioned 5 configuration step, i have worked on JDBC earlier but never did anything like that.... Any idea ?
    http://help.sap.com/saphelp_nw70/helpdata/en/b0/676b3c255b1475e10000000a114084/content.htm
    Regards
    Inder

    <table> element is optional in the structure. In that case you can try:
    <?xml version="1.0" encoding="UTF-8" ?>
    <ns0:MT_FreightPricing xmlns:ns0="http://na.holcim.com/pi/o2c/pricingmaster">
    <StatementName1>
    <InderTest action="EXECUTE">
    <Carrier isInput="true" type="VARCHAR">4000004</Carrier>
    <Location isInput="true" type="VARCHAR">3600</Location>
    <Product isInput="true" type="VARCHAR">3553</Product>
    <Zone isInput="true" type="VARCHAR">Zone1</Zone>
    <dteStart isInput="true" type="DATE">20110704</dteStart>
    <dteEnd isInput="true" type="DATE">20120704</dteEnd>
    <strType isInput="true" type="VARCHAR">A</strType>
    <intRate isInput="true" type="FLOAT">10.00</intRate>
    </InderTest>
    </StatementName1>
    </ns0:MT_FreightPricing>
    Regards
    Raj

  • Error calling stored procedure from MFC.

    Hello,
    I am using MFC to call a stored procedure written in PL/SQL, but when I make the call I get the next error in Spanish:
    "No se enlazaron columnas antes de llamar a SQLFetchScroll o SQLExtendedFetch", which more or less in English means:
    "No rows were binded before calling SQLFetchScroll or SQLExtendedFetch".
    I am using a CRecordset derived class to access the stored procedure. I am unable to find the error.
    THE STORED PROCEDURE'S HEADER:
    Sp_Int_Ot_Ordendetrabajoalta ( lineatrabajo NUMBER, lv_orden NUMBER, usuario
    VARCHAR2, idvehiculo NUMBER, fechamax1 VARCHAR2, resumen VARCHAR2, detalle
    VARCHAR2,
    coderp VARCHAR2, numtrabrecibidos NUMBER, lv_CODOT VARCHAR2, retorno OUT
    INTEGER)
    THE .H FOR THE CRECORDSET DERIVED CLASS (Visual Studio 6 comments removed)
    class CRecSP : public CRecordset
    public:
    CRecSP(CDatabase* pDatabase = NULL);
    DECLARE_DYNAMIC(CRecSP)
    CString m_szSQL;
    long m_RETORNO;
    virtual CString GetDefaultConnect();
    virtual CString GetDefaultSQL();
    virtual void DoFieldExchange(CFieldExchange* pFX);
    THE .CPP FOR THE CLASS (VS6 comments removed)
    IMPLEMENT_DYNAMIC(CRecSP, CRecordset)
    CRecSP::CRecSP(CDatabase* pdb) : CRecordset(pdb)
    m_RETORNO = 0;
    m_nParams = 1;
    m_nDefaultType = snapshot;
    CString CRecSP::GetDefaultConnect()
    return T( DBCONNECTION_STRING );
    CString CRecSP::GetDefaultSQL()
    return m_szSQL;
    void CRecSP::DoFieldExchange(CFieldExchange* pFX)
    pFX->SetFieldType(CFieldExchange::outputParam);
    RFX_Long(pFX, _T("[retorno]"), m_RETORNO );
    USING THE CRECORDSET DERIVED CLASS: (Vars read from EditBoxes as CStrings
    and formatted in the SQL)
    CRecSP *rec = new CRecSP(&db);
    szSQL.Format( "{CALL
    FGROT2005.SP_INT_OT_ORDENDETRABAJOALTA(%s,%s,'%s',%s,'%s','%s','%s','%s',%s,'%s',?)}",
    szLinea, szOrden, "USER", szIdVeh, szFechaMax, szResumen,
    szDetalle, "ERP", "0", szCodOT
    rec->m_szSQL = szSQL;
    //rec->Open( CRecordset::forwardOnly,szSQL,CRecordset::readOnly );
    rec->Open( );
    iError = rec->m_RETORNO;
    rec->Close();

    I am trying to pass parameter to test my procedure but it is giving this error : ORA-06531: Reference to uninitialized collection
    ORA-06512: at line 12
    Here is example for my test procedure:
    declare
    v_session_id_tab SESSION_ID_TAB_TYPE;
    v_service_type_tab SERVICE_TYPE_TAB_TYPE ;
    v_service_location_tab SERVICE_LOCATION_TAB_TYPE ;
    v_service_call_name_tab SERVICE_CALL_NAME_TAB_TYPE;
    v_service_call_start_time_tab SERVICE_CALL_ST_TAB_TYPE;
    v_service_call_end_time_tab SERVICE_CALL_ET_TAB_TYPE;
    v_service_call_duration_tab SERVICE_CALL_DUR_TAB_TYPE;
    v_status_tab STATUS_TAB_TYPE;
    v_notes_tab NOTES_TAB_TYPE;
    begin
    v_session_id_tab(1) := 1;
    v_service_type_tab(1) := 'db';
    v_service_location_tab(1) := 'local';
    v_service_call_name_tab(1) := 'Name of call';
    v_service_call_start_time_tab(1) := SYSDATE;
    v_service_call_end_time_tab(1) := SYSDATE;
    v_service_call_duration_tab(1) := 100;
    v_status_tab(1) := 'Z';
    v_notes_tab(1) := 'NOTES';
    BULK_INSERTS (v_session_id_tab,v_service_type_tab, v_service_location_tab,v_service_call_name_tab,v_service_call_start_time_tab,v_service_call_end_time_tab,
    v_service_call_duration_tab, v_status_tab, v_notes_tab);
    end;
    I declare all types at schema level.
    Please give your comments.
    Thank you

  • Error creating stored procedure using Apex

    Hello,
    I have worked with Access, SQL Server, and Firebird before, but am new to Oracle. I am trying to create a stored procedure to return the count of multiple hash values in a table. I want to know the number of rows that contain hash values that are duplicates somewhere else in the table. So if my table has 10 rows containing hash values: a, b, a, b, c, d, e, a, b, a, my return value should be 7. Here is my create procedure statement:
    CREATE OR REPLACE PROCEDURE CommonHashValuesCount (dupThreshold in number, totalCount out number)
    IS
    BEGIN
    totalCount := 0;
    FOR h IN
    (SELECT DISTINCT xf.MD5_HASH, COUNT(xf.MD5_HASH) as "HashCount"
    FROM XFILE xf
    GROUP BY xf.MD5_HASH)
    LOOP
    IF h.HashCount > dupThreshold THEN
    totalCount := totalCount + h.HashCount;
    END IF;
    END LOOP;
    END;
    I get the following error when I try and run it:
    ERROR at line 12: PL/SQL: Statement ignored
    1. CREATE OR REPLACE PROCEDURE CommonHashValuesCount (dupThreshold in number, totalCount out number)
    2. IS
    3. BEGIN
    Can anyone tell me what is wrong with my create statement? Or if anyone knows how to accomplish what I want in a single sql statement, I'd love to hear it!
    TIA,
    Theresa

    Why not do it in a SQL statement so you can test it in the APEX SQL command window?
    SELECT Sum(HashCount)
      FROM (SELECT DISTINCT xf.MD5_HASH
                 , COUNT(xf.MD5_HASH) HashCount
              FROM XFILE xf
             GROUP BY xf.MD5_HASH
    WHERE HashCount > <testvalue>
    not tested
    and then simply put that into your stored procedure/package:
    SELECT Sum(HashCount)
      INTO totalCount
      FROM (SELECT DISTINCT xf.MD5_HASH
                 , COUNT(xf.MD5_HASH) HashCount
              FROM XFILE xf
             GROUP BY xf.MD5_HASH
    WHERE HashCount > dubThreshold
    also not tested
    C.

  • Error - remote stored procedure includes in a function

    Hi,
    I have a stored procedure, it runs properly
    ecos.GetCustTier@BSCSDEV in PL/SQL
    But after included into function F_GETCUSTTIER, it comes error.
    SQL> select f_getcusttier(585510,'20020808') from dual
    ORA-06571: Function F_GETCUSTTIER does not guarantee not to update database
    [Function F_GETCUSTTIER]
    create or replace FUNCTION f_getcusttier(
    Begin
    ecos.GetCustTier@BSCSDEV(i_customer_id, i_at_date, o_seqno, o_custcode, o_tier_id, o_tier_des, o_join_date, o_join_reason,
    o_renewal_date, o_next_review_date, o_last_review_amt_no, o_exit_date, o_exit_reason,
    o_input_by, o_input_date, o_update_by, o_update_date, o_expiry_date, o_next_job_review_date,
    o_status_id, o_return_code);
    RETURN o_tier_id;
    I also try to create a package for this function
    CREATE OR REPLACE PACKAGE abc AS
    FUNCTION f_getcusttier(i_customer_id number, i_at_date varchar2) RETURN NUMBER;
    PRAGMA RESTRICT_REFERENCES(f_getcusttier, WNDS);
    END abc;
    CREATE OR REPLACE PACKAGE BODY bwan AS
    FUNCTION f_getcusttier(
    i_customer_id in number,
    i_at_date in varchar2
    Begin
    ecos.GetCustTier@BSCSDEV(i_customer_id, i_at_date, o_seqno, o_custcode, o_tier_id, o_tier_des, o_join_date, o_join_reason,
    o_renewal_date, o_next_review_date, o_last_review_amt_no, o_exit_date, o_exit_reason,
    o_input_by, o_input_date, o_update_by, o_update_date, o_expiry_date, o_next_job_review_date,
    o_status_id, o_return_code);
    RETURN o_tier_id;
    But with Warning: Package Body created with compilation errors.
    2/1 PLS-00452: Subprogram 'F_GETCUSTTIER' violates its associated
    pragma
    How can I fixed it? Can function pack with remote stored procedure?
    DB version: 8.0.4.4.0
    I know that this problem is resolved in Release 8.1, is it no solution for release 8.0.4.4.0?

    First of all, please do not post three separate threads for the one problem. It simply clutters up the forum for the rest of us.
    Prior to 8i you need to explicitly guarantee that your function does not write to the database. You do this with the RESTRICT_REFERENCES pragma:
    CREATE PACKAGE yr_package AS  -- package specification
       FUNCTION whatever
             (pn IN NUMBER) RETURN NUMBER;
       PRAGMA RESTRICT_REFERENCES (whatever, WNDS);
    END yr_package;The following link goes to a page of helpful stuff assembeled by some of use regulars:Re: How to attach a java bean in forms6i
    It includes jumps to the Oracle online documentation. You may find the Application Developer's Guide - Fundamentals an instructive read.
    Regards, APC

  • SQLJ error in stored procedure

    Okay I'm kind of new to this stuff so this is probably an easy
    question but I can't fix my current problem. Know I have been
    creating and compiling several java stored procedures in my
    oracle 8.1.7.0.0 enterprise edition database. So far everything
    is create I have created about a dozen and done all of their
    call specs and everything works without a hitch.
    The problem I have came into being when I tried to create a
    stored procedure that uses SQLJ. When I create my stored
    procedures I compile my java code straight into the database
    using the
    CREATE OR REPLACE AND COMPILE JAVA SOURCE named "myClass" AS
    source
    this has always worked from me except when I place my
    #sql ; lines at which point it issues a the following error
    SP2-7034 : unknown command beginning
    at which point is it ignores the line of code and continues to
    compile my java source. Does this mean the SQLJ is not enabled
    in my database or what? I have checked out the SQLJ developer&#8217;s
    hand book and it did not help me with this problem. Oh please
    wont some wise oracle god help me!

    user21354 wrote:
    i am creating the collection in my Stored procedure it is giving me this error
    declare
    type t_number is table of number;
    v_numbers t_number;
    begin
    select VISIT_ID
    bulk collect into v_numbers
    from visit
    where VISITTYPEID = 2;
    select VISIT_ID from v_numbers;
    end;
    error
    PL/SQL: ORA-00942: table or view does not exist
    please tell me this why this happeningcouple of things...
    context switching - Your second 'select visit_id' query is actually parsed outside plsql, in the 'sql engine'. This sql engine has no knowledge of what v_numbers is, it's expecting an actual table name but it can't find anything called v_numbers in it's metadata. So it bombs out with that error. Google 'context switching plsql' for more info. :o)
    - as v_numbers is a collection, you could just loop through the results:
      for n in 1..v_numbers.count
      loop
        dbms_output.put_line(v_numbers(n));
      end loop;- as stated above, a 'select' without 'into' won't work in plsql anyway.
    - there is a way of getting round the context switch, by creating your Type in sql rather than plsql and 'casting' it to a table. Let us know if you want to know the steps to do it, but try reading up on context switch first.
    cheers.

  • Error when stored procedure returns cursor in pro c

    Hi
    I was trying to make work the stuff explained at
    [m-2537153]
    It executes a stored procedure from pro c that returns a cursor.
    But when i compllie at pro c I get following error. My procedure name is TEST.
    If i change the output parameter to a int value. It compiles ok.
    PLS-S-00306, wrong number or types of arguments in call to 'TEST'
    Error at line 34, column 5 in file E:\C\Test\tt.pc
    TEST(:test_cursor);
    +....1+
    PLS-S-00000, Statement ignored
    Semantic error at line 33, column 1, file E:\C\Test\tt.pc:
    BEGIN
    +1+
    PCC-S-02346, PL/SQL found semantic errors
    Can any one point out what could be the error?
    I am working from oracle 8i client. which connects to oracle 9.0.1.
    OS is win 2000 sp4

    This is my code
    int main(int argc, char** argv)
    +{+
    EXEC SQL BEGIN DECLARE SECTION;
    char user[]="scott";
    char pwd[]="tiger";
    char server[]="testdb";
    char msg_buf[51|http://forums.oracle.com/forums/]+="";+
    int intarg1;
    int intId;
    char strName[]="";
    SQL_CURSOR tcr;
    EXEC SQL END DECLARE SECTION;
    +/* Register sql_error() as the error handler. */+
    EXEC SQL WHENEVER SQLERROR DO sql_error("ORACLE error\n");
    EXEC SQL CONNECT :user IDENTIFIED BY :pwd USING :server;
    Printf("Connected to %s successfully",server);
    EXEC SQL ALLOCATE :tcr;
    EXEC SQL EXECUTE
    BEGIN
    TEST(:tcr);
    END;
    END-EXEC;
    Procedure name is TEST and it like
    CREATE OR REPLACE PROCEDURE TEST (crsdata out sys_refcursor)
    as
    BEGIN
    open crsdata for select id,name from newtab;
    END;

  • Invalid Month error in stored procedure

    Hello, I have a simple stored procedure that I pass a begin and end date into and it is complaining about the date formatting. Below is the table layout and stored procedure in question. How can I format the date for example as MM-DD-YYYY and not have it complain? I have tried using TO_DATE and TO_CHAR and it still complains.
    Thank you.
    -- Table
    CREATE TABLE INV_MOVE_ARCHIVE
    *( "RETAILER_ID" NUMBER NOT NULL,*
    *"SKU_ID" VARCHAR2(18 BYTE) NOT NULL,*
    *"OUTLET_ID" VARCHAR2(20 BYTE) NOT NULL,*
    *"QTY_CHANGE" NUMBER NOT NULL,*
    *"TRANS_DATE" DATE DEFAULT sysdate*
    -- Stored procedure
    CREATE OR REPLACE PROCEDURE inv_move_update(beginDate IN DATE, endDate IN DATE, retailerId IN INT)
    IS
    skuId VARCHAR(18);
    outletId VARCHAR(20);
    qtyChange INTEGER;
    -- Declaring the cursor
    CURSOR getInvRecord IS
    SELECT
    sku_id,
    outlet_id,
    qty_change
    INTO
    skuId,
    outletId,
    qtyChange
    FROM
    inv_move_archive
    WHERE
    retailer_id = retailerId AND
    trans_date &gt;= beginDate AND
    trans_date &lt;= endDate;
    BEGIN
    FOR rec_getInvRecord IN getInvRecord LOOP
    UPDATE OUTLET_SKU_XREF
    SET qty = qty + qtyChange
    WHERE outlet_id = outletId
    AND sku_id = skuId;
    COMMIT;
    END LOOP;
    EXCEPTION
    WHEN OTHERS THEN
    IF getInvRecord%isopen THEN CLOSE getInvRecord;
    END IF;
    END inv_move_update;
    */*

    Okay, I do not wantto change the table. I believe thatthe Java developers will need to change their code to call this procedure correctly. Another iss I am having is when I call this procedure manually from the database is is NOT doing the update. I put some debug statements in it and they indicate that the update statement is NOT updating any rows. If I run the select statement that is in the sp using the same parameters I pass into the sp it comes back with 1 row. The row to be updated is present in the table being updated.
    -- Here is my sp call
    DECLARE
      BEGINDATE DATE;
      ENDDATE DATE;
      RETAILERID NUMBER;
    BEGIN
      BEGINDATE := to_date('01/07/2009 00:00:00', 'MM/DD-YYYY HH24:MI:SS');
      ENDDATE := to_date('01/07/2009 11:59:59', 'MM/DD-YYYY HH24:MI:SS');
      RETAILERID := 104;
      INV_MOVE_UPDATE(
        BEGINDATE => BEGINDATE,
        ENDDATE => ENDDATE,
        RETAILERID => RETAILERID
    END;
    -- Select statement with same values
    SELECT
       sku_id,
       outlet_id,
       qty_change
    FROM
       inv_move_archive
    WHERE
       retailer_id = 104 AND
       trans_date >= to_date('01/07/2009 00:00:00', 'MM/DD-YYYY HH24:MI:SS') AND
       trans_date <= to_date('01/07/2009 11:59:59', 'MM/DD-YYYY HH24:MI:SS')
    -- Results from select
    036266579804040     9900165     500
    -- Here is the procedure with the debug statements in it.
    CREATE OR REPLACE PROCEDURE inv_move_update(beginDate IN DATE, endDate IN DATE, retailerId IN  INT)
    IS
            skuId VARCHAR(18);
            outletId VARCHAR(20);
            qtyChange NUMBER;
            errorMessage  VARCHAR(2500) := NULL;       
    -- Declaring the cursor
    CURSOR getInvRecord IS
          SELECT
             sku_id,
             outlet_id,
             qty_change
          INTO
             skuId,
             outletId,
             qtyChange
          FROM
             inv_move_archive
          WHERE
             retailer_id = retailerId AND
             trans_date >= beginDate AND
             trans_date <= endDate;
    BEGIN
       FOR rec_getInvRecord IN getInvRecord LOOP
          DBMS_OUTPUT.PUT_LINE('Rows Updated: ' || SQL%ROWCOUNT);
          UPDATE OUTLET_SKU_XREF
           SET qty = qty + qtyChange
          WHERE outlet_id = outletId
                AND sku_id = skuId;
          DBMS_OUTPUT.PUT_LINE('SKUID: ' || skuId);
          DBMS_OUTPUT.PUT_LINE('Rows Updated: ' || SQL%ROWCOUNT);
          COMMIT;       
       END LOOP;
    EXCEPTION
    WHEN OTHERS THEN
        errorMessage := 'Error updating the OUTLET_SKU_XREF table: ' || SQLCODE || ':' || SQLERRM;
        RAISE_APPLICATION_ERROR(-20001,errorMessage);
        DBMS_OUTPUT.PUT_LINE(errorMessage);
        IF getInvRecord%isopen THEN CLOSE getInvRecord;
        END IF;  
    END inv_move_update;
    /I get no errors when running it. The DBMS_OUTPUT shows null for the skuId and 0 for Rows Updated. Like I said I ran the select manually and it returns a row and I see that the row does exist in the target table. Any ideas what is going on here?
    Thank you
    -- David

Maybe you are looking for

  • Why are my Contacts NOT in alpha order (neither First nor Last order works)?

    It doesn't matter what order I specify in Preferences, the Contacts are not in alphabetical order. This is crazy! What am I doing wrong? It has to be something very simple and it's right in front of me, but I just can't see what the problem is. Thank

  • How do I a SMC reset and PRAM zap?

    Hi, My MBP will go to a blue/grey screen ahortly after I try to open a browser (Safari and Firefox). I have to hold down the power button to reboot it. I'd like to do a SMC reset and PRAM zap to see if that will help solve the problem, but have forgo

  • REP-498 Error

    I am executing the following query in Reports and I am getting the error REP-498: Number of columns selected by the query is incompatible with report definition. Select 1, sysdate &P_1 from dual I pass the string for the lexical parameter P_1 => ,sys

  • To enable drill through in EISeveryleaf membe of dimensionis at samelevel

    Hi All, I a facing a drill through problem in EIS,to enable drill through feature in EIS,every leaf member of a dimension must be at same generation,is it correct? Plz guide me in this as it is very urgent. Thanks, Ravi

  • Micro Sim cards in Italy and India

    I am going abroad from the UK and want use my IPad1 can anybody recommend a sim card for Italy (Venice short of WiFi cafes, sensibly) Plus India in January