whenever i call this function it will return error like - invalid cursor
so, this is the body part of the package, the package specification also return a sys_refcursor. the error message shows that sys_refcursor invalid cursor.
FUNCTION SUMMARY
(i_name VARCHAR2, i_id VARCHAR2, i_label VARCHAR2)
RETURN SYS_REFCURSOR
IS
rc_result SYS_REFCURSOR;
v_sql CLOB;
Server VARCHAR2(100) := '#AI';
v_r_count NUMBER;
v_sp_count VARCHAR2(200);
V VARCHAR2(10);
BEGIN
EXECUTE IMMEDIATE 'select count(*) from run'||Server||' where id='''||i_id||''' and label='''||i_label||''' and re is not null' INTO v_r_count;
EXECUTE IMMEDIATE 'select table_name from all_tables where table_name like ''%se%'' and owner ='''||i_name||'''' INTO v_sp_count;
IF v_r_count > 0 THEN
BEGIN
v_sql := 'select RE from run'||v_Server||' where id='''||i_id||''' and label='''||i_label||'''';
END;
ELSIF v_sp_count IS NOT NULL THEN
BEGIN
v_sql := 'SELECT
process,
desc,
p_desc,
date
FROM
'||i_name||'.se
WHERE
errors = 1
AND lower(p_desc) LIKE lower(''%summary%'')';
END;
ELSE v_sql := NULL;
END IF;
OPEN result FOR v_sql;
RETURN result;
EXCEPTION
WHEN no_data_found THEN
RETURN NULL;
WHEN OTHERS THEN
dbms_output.put_line(SQLERRM);
END;
You can simply assign NULL to the refcursor like this: Example
PROCEDURE test( id_number IN VARCHAR2,
resultIN OUT SYS_REFCURSOR) AS
BEGIN
if false then
OPEN resultIN FOR
SELECT dummy
from dual;
ELSE
resultIN := null;
END IF;
END;
I have a requirement to write a procedure (that calls itself recursively).
The condition is like:
If the CONTACT NUMBER(assuming it as varchar2) STARTS WITH '100-%', then the procedure should print all the CONTACT NUMBERS that starts with 100 for the given group.
If CONTACT NUMBER starts with '50-%' then it should call recursively.
I have tried writing a sample procedure, but unfortunately not getting the result.
CREATE OR REPLACE TYPE type_t AS
TABLE OF VARCHAR2(100);
CREATE OR REPLACE PROCEDURE proc_test (
in_group IN VARCHAR2,
contact_nmbr OUT VARCHAR2
) AS
v_out type_t := type_t ();
BEGIN
SELECT
contact_id
BULK COLLECT INTO
v_out
FROM
my_table
WHERE
group_id = in_group;
FOR i IN 1..v_out.count LOOP
v_out.extend;
IF
v_out(i) LIKE '100-%'
THEN
contact_nmbr := v_out(i);
ELSIF v_out(i) LIKE '50-%' THEN
proc_test(v_out(i),contact_nmbr);
END IF;
END LOOP;
END;
/
I am not getting the output after running this proc.
DECLARE
in_group VARCHAR2(30) := '123ABC';
contact_nmbr VARCHAR2(30);
BEGIN
proc_test(in_group,contact_nmbr);
dbms_output.put_line(contact_nmbr);
END;
/
This is the sample data in table MY_TABLE
Group_Id Contact_Id
---------------------------------------
001 100-001-01
001 70-001-01
001 100-002-01
001 50-001-01
50-001-01 30-001-01
50-001-01 100-100-01
50-001-01 50-100-01
50-100-01 50-200-01
Couple of issues I can see with your script....
1) You are declaring the in_group to = 123ABC there is no data matching in your sample data so it will never return anything...
in_group VARCHAR2(30) := '123ABC';
2) You do not exit the loop when you successfully find a contact number so unless your last record is a match you will get no output;
3) when you increment the v_out collection on each loop this serves no purpose this does not do any harm but is not necassary
v_out.extend;
So remove the extend and add a exit as below....
CREATE OR REPLACE PROCEDURE proc_test (
in_group IN VARCHAR2,
contact_nmbr OUT VARCHAR2
) AS
v_out type_t := type_t ();
BEGIN
SELECT
contact_id
BULK COLLECT INTO
v_out
FROM
my_table
WHERE
group_id = in_group;
FOR i IN 1..v_out.count LOOP
IF
v_out(i) LIKE '100-%'
THEN
contact_nmbr := v_out(i);
exit;
ELSIF v_out(i) LIKE '50-%' THEN
proc_test(v_out(i),contact_nmbr);
END IF;
END LOOP;
END;
and call with a valid id as below and you should be good to go.
DECLARE
in_group VARCHAR2(30) := '001';
contact_nmbr VARCHAR2(30);
BEGIN
proc_test(in_group,contact_nmbr);
dbms_output.put_line(contact_nmbr);
END;
When I run this code, the result should be 636790 but 63679 is only returned. Beating brains out on this one!!! Why the missing digit? Source table and column contain correct number of 636790.
create or replace package jt_types
as
type ttest is ref cursor;
end;
CREATE OR REPLACE FUNCTION jt_test
RETURN jt_types.ttest
IS
o_return jt_types.ttest;
BEGIN
OPEN o_return FOR
SELECT offn_id
FROM jt_offn_4
where offn_ID in (636790)
ORDER BY offn_id;
RETURN o_return;
END jt_test;
DECLARE
l_ids jt_types.ttest;
l_id NUMBER;
BEGIN
l_ids := jt_test;
LOOP
FETCH l_ids INTO l_id;
EXIT WHEN l_ids%NOTFOUND;
dbms_output.put_line('Rec: ' || l_id);
END LOOP;
CLOSE l_ids;
END;
The easiest way to do is to return sys_refcursor, here is the code:
create or replace
function jt_test
return sys_refcursor
is
o_return sys_refcursor;
begin
open o_return for
select offn_id
from jt_offn_4
where offn_ID = 636790;
return o_return;
end jt_test;
declare
l_ids sys_refcursor;
l_id number;
begin
l_ids := jt_test;
loop
fetch l_ids into l_id;
dbms_output.put_line('Rec: ' || l_id);
exit when l_ids%NOTFOUND;
end loop;
close l_ids;
end;
Hi I have the following procedure:
create or replace procedure
SP_DELETE_FROM_TABLE(pTableName in VARCHAR2, pFieldName in VARCHAR2,
pFieldValue in VARCHAR2,pFieldType in VARCHAR2) is
querystring VARCHAR2(500);
begin
queryString := 'DELETE FROM ' ||pTableName||
' WHERE '||pFieldName ||' = DECODE(:pFieldType,integer,:pFieldValue)' ;
EXECUTE IMMEDIATE queryString USING pFieldType,pFieldValue;
end SP_DELETE_FROM_TABLE;
all my Parameters are of Type VARCHAR2, What I am trying to do is: When I call the procedure with the following values ('users_table','users_id','11','integer')
so by using DECODE I would like to check if pFieldValue is of type pFieldTypeand if yes return pFieldValue
so if pFieldValue is:11 and pfieldType is:integer it should delete users_id 11 if fieldType is string do nothing..
I'd create a function that checks parameter has correct type
and then use it in main procedure
--main procedure
create or replace procedure SP_DELETE_FROM_TABLE(pTableName in VARCHAR2, pFieldName in VARCHAR2,pFieldValue in VARCHAR2,pFieldType in VARCHAR2) is
querystring VARCHAR2(500);
begin
if 'Y' = is_type_correct(pFieldValue, pFieldType ) then
queryString := 'DELETE FROM ' ||pTableName|| ' WHERE '
||pFieldName ||' = :pFieldValue';
EXECUTE IMMEDIATE queryString USING pFieldValue;
end
else
null; --incorrect type and parameter, do nothing
end;
end SP_DELETE_FROM_TABLE;
--check function
CREATE OR REPLACE FUNCTION is_type_correct( p_val IN VARCHAR2, p_type varchar2 )
RETURN VARCHAR2 DETERMINISTIC PARALLEL_ENABLE
IS
l_num NUMBER;
l_date date;
BEGIN
if 'integer' = p_type
then
l_num := to_number( p_val );
elsif 'date' = p_type then
l_date := to_date(p_val, 'YYYY.MM.DD');
elsif 'varchar2' then
null;//do nothing
else
return 'N'; //uknown type
end if;
RETURN 'Y';
EXCEPTION
WHEN value_error THEN
RETURN 'N';
END is_number;
Just try to convert a string to a number, and when an exception occurs, do nothing:
querystring VARCHAR2(500);
some_number number;
begin
some_number := to_number( pFieldValue ); /* trying to convert to a number */
queryString := 'DELETE FROM ' ||pTableName||
' WHERE '||pFieldName ||' = :x' ;
EXECUTE IMMEDIATE queryString USING some_number;
EXCEPTION
WHEN VALUE_ERROR THEN null; /* do nothing when pFieldValue is not a number*/
end SP_DELETE_FROM_TABLE;
Attempting to execute package stored procedure using ODP.NET
The call fails with message "ORA-00942: table or view does not exist\nORA-06512: at \"SAAP.PKGPRICEWORX\", line 25\nORA-06512:....
However the procedure works fine when run though the server server explorer !.
I am using ODP.net4 assemblies on VS2010;
Any help to resolve this appreciated.
Here is the package:
clear;
/
create or replace
PACKAGE pkgPriceWorx
AS
defaultQANP NUMBER:=99999999;
procedure dbg(s varchar2,INDENT NUMBER DEFAULT 0,APPEND NUMBER DEFAULT 0);
FUNCTION frSls031CunoCpgsStdt( comno VARCHAR2,cuno VARCHAR2,cpgs VARCHAR2,stdt DATE,found OUT NUMBER)RETURN baan.ttdsls031010%rowtype ;
FUNCTION frSLS034( comno VARCHAR2, cuno VARCHAR2, cpgs VARCHAR2, found OUT NUMBER) RETURN baan.ttdsls034010%rowtype;
PROCEDURE prUpdateOrInsertDiscount( COMNO VARCHAR2 , CPLS VARCHAR2, CUNO VARCHAR2 , CPGS VARCHAR2, stdt DATE , DISC IN OUT NUMBER, O OUT VARCHAR2);
PROCEDURE prUpdateSLS031(R2U baan.ttdsls031010%rowtype,Comno varchar2, RowsUpdated out number);
PROCEDURE prUpdateOrInsertSLS034( comno VARCHAR2, cuno VARCHAR2, cpgs VARCHAR2, rowCount OUT NUMBER) ;
FUNCTION fnDefaultQANP RETURN NUMBER ;
procedure testNumPrecision(precie number);
END ;
/
show error;
/
create or replace
PACKAGE BODY pkgPriceWorx IS
spc varchar2(1):=' ';
jed varchar2(10):='1,J';-- Julian Expiry format
------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-------------------------------------------------------------------------------------
procedure dbg(s varchar2,INDENT NUMBER DEFAULT 0,APPEND NUMBER DEFAULT 0) as
BEGIN
if append =0 then
BEGIN
DBMS_output.Put_line(s);
END;
else
BEGIN
dbms_output.Put(s);
end;
End if;
END;
-------------------------------------------------------------------------------------
procedure prInsertSLS031(comno varchar2,cuno varchar2,cpgs varchar2,stdt Date,disc number, rowCount out number) as
sQ varchar2(3000);
BEGIN
dbms_output.put_line('#prInsertSLS031');
sQ:= ' Insert into baan.ttdsls031' ||comno|| '(t$cuno,t$cpgs,t$dile,t$qanp ,t$stdt ,t$tdat ,t$disc ,t$damt,t$cdis,t$gnpr,t$refcntd,t$refcntu)' || ' values( :cuno,:cpgs ,1 ,:qanp ,:stdt ,to_date('||'''1' || ''' ,'||'''J '''||') ,:disc ,0 ,' || ''' '''||' ,1 ,0 ,0)';
dbms_output.put_line(sQ);
EXECUTE immediate sQ USING cuno,cpgs,defaultqanp,STDT,disc;
rowCount:=sql%rowcount;
END;
-----------------------------------------------------------------------------------
PROCEDURE prUpdateOrInsertDiscount(COMNO VARCHAR2 ,CPLS VARCHAR2, CUNO VARCHAR2 , CPGS VARCHAR2 , stdt date, DISC in out NUMBER ,O out varchar2) AS
R31 BAAN.TTDSLS031010%ROWTYPE;
R34 BAAN.TTDSLS034010%ROWTYPE;
rowCount number;
sQ varchar2(3000);
rc number;
edt date;
iRC number;
uRc number;
BEGIN
/*------------------------------------------------------------------
1). Check SLS031.DISC(Customer and priceGroup, ?OPEN)
1.1) If a match found
1.2.1) Compare NewDiscount == current
return :
1.2.2) NewDisc != CURRENT
I . Update current to expire
II. Insert an entry
2.1) If No match found
I . insert new 31 entry
IDX1=CUNO,CPGS,DILE
?open=tdat=4712-01-01;
----------------------------------------------------------------*/
DBG('#prUpdateOrInsertDiscount');
R31:=frSLS031CunoCpgsStdt(COMNO,cuno,cpgs,stdt,rowCount );
DBMS_OUTPUT.PUT_LINE('ROW COUNT ON FRSLS031='|| ROWCOUNT);
IF (rowCount > 0) then -- 1.1 Match found
BEGIN
dbg('Match found');
if((stdt ) > R31.T$STDT Or (disc != R31.t$disc)) then
Begin
dbg('Ok : OpenRecord has stdt > (stdt-1)');
r31.t$tdat:=stdt-1;
prUpdateSLS031(R31,comno,uRc);
dbg('Updated rowCount ='||urc);
prInsertSLS031(comno,cuno,cpgs,stdt,disc, rowCount);
return;
End;
end if;
dbg('Both stdt and disc has no change.. nothing was done');
END;
ELSE -- NO NMATCH
Begin
dbg( ' No Match inserting new ' );
prInsertSLS031(comno,cuno,cpgs,stdt,disc,rowCount);
End;
END IF;
END prUpdateOrInsertDiscount;
----------------------------------------------------------------------------------
PROCEDURE prUpdateOrInsertSLS034(comno varchar2,cuno varchar2, cpgs varchar2,rowCount out number) AS
R baan.ttdsls034010%rowtype;
sQ varchar2(3000);
rc number;
cpls varchar2(3);
cuni varchar2(3);
BEGIN
R:=frSls034(comno,cuno,cpgs,rc);
if (rc > 0 ) then return; end if;
cpls :=' ';
cuni :='ea';
-- sQ:='insert into baan.ttdsls034' ||comno|| '(t$cuno,t$cpgs ,t$dile,t$APYN,T$CPLS,T$STSA,T$STSB,T$STSC,T$KOGR,T$CUNI,T$DMTH,T$REFCNTD,T$REFCNTU)' ;
-- ' VALUES(:CUNO ,:CPGS ,1 ,2 ,:CPLS ,2 ,2 ,2 ,1 , :CUNI ,1 ,0 ,0)';
dbms_output.put_line(sQ);
execute immediate sQ using cuno,cpgs,cpls,cuni;
END prUpdateOrInsertSLS034;
-----------------------------------------------------------------------------------
function fnDefaultQANP return number is n number;
Begin
return defaultQANP;
End;
-----------------------------------------------------------------------------------
function frSls031CunoCpgsStdt(comno varchar2,cuno varchar2,cpgs varchar2,stdt date,found out number) return baan.ttdsls031010%rowtype is
r baan.ttdsls031010%rowtype;
sQ varchar2(600);
BEGIN
sQ :='SELECT * FROM BAAN.TTDSLS031'||COMNO || ' WHERE ' ||
' TRIM(T$CUNO)=trim( :CUNO) AND ' || ' TRIM(T$CPGS)=trim( :CPGS) AND ' ||
' T$QANP = :qanp AND ' ||
' t$tdat =(select MIN(t$tdat) from baan.ttdsls031'||comno||' where trim(t$cuno)=trim(:cuno) ' ||
' and trim(t$cpgs)=trim(:cpgs) and t$qanp=:qanp) ';
execute immediate sQ into r using cuno,cpgs,fndefaultQanp,cuno,cpgs,fndefaultQanp;
found:=sql%rowcount;
RETURN R;
exception
when
no_data_found then found:=-1;
return null;
end;
-------------------------------------------------------------
function frSLS034(comno varchar2,cuno varchar2,cpgs varchar2,found out number) return baan.ttdsls034010%rowtype is
r baan.ttdsls034010%rowtype;
sQ varchar2(3000);
BEGIN
sQ :='SELECT * FROM BAAN.TTDSLS034'||COMNO || ' WHERE' || ' TRIM(T$CUNO)= trim(:CUNO) AND ' || ' TRIM(T$CPGS)=trim( :CPGS)';
EXECUTE immediate sQ INTO r USING cuno,cpgs;
FOUND:=SQL%ROWCOUNT;
RETURN R;
EXCEPTION
WHEN no_data_found THEN
found:=-1;
return null;
END;
----
PROCEDURE prUpdateSLS031(R2U baan.ttdsls031010%rowtype,Comno varchar2,RowsUpdated out number) as
sQ varchar2(3000);
Begin
sQ:='update baan.ttdsls031'||comno|| ' set t$tdat=:rtdat where t$cuno=:cuno and t$cpgs=:cpgs and t$dile=:dile and t$qanp=:qanp and t$stdt = :stdt ';
dbg( '#prUpdateSLS031');
dbg(' '||sQ);
execute immediate SQ using R2U.t$tdat , R2U.t$cuno , R2U.t$cpgs , R2U.t$dile , R2U.t$qanp , R2U.t$stdt;
RowsUpdated:=Sql%rowCount;
End ;
----
procedure testNumPrecision(precie number)as
Begin
null;
end;
-------------------------------------------------------------
-------------------------------------------------------------
END pkgPriceWorx;
/
show error;
/
Sorry folks for bothering you and thanks to Justin Cave for hinting where could be the error, It was a error in the net code, in which I had lopped a character in the parameter name, so when the dynamic sql was constructing the code, it did not find the parameter specified (which is suffix of the one of the table).