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!
nullHere 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 AMPrivileges 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,
TheresaWhy 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’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 sp4This 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 >= beginDate AND
trans_date <= 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
-
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