为单个url参数传递多个值
下面的示例代码旨在显示在单个参数中接受值列表的用法,并在过程内的where子句中对其进行处理。
步骤1:-首先创建用户定义的类型。
CREATE OR REPLACE TYPE SPLIT_TBL AS TABLE OF VARCHAR2(32767);
步骤2:-创建一个将值列表拆分为单个参数的函数。
CREATE OR REPLACE FUNCTION SPLIT
(
P_LIST VARCHAR2,
P_DEL VARCHAR2 := ','
) RETURN SPLIT_TBL PIPELINED
IS
L_IDX PLS_INTEGER;
L_LIST VARCHAR2(32767) := P_LIST;
L_VALUE VARCHAR2(32767);
BEGIN
LOOP
L_IDX := INSTR(L_LIST,P_DEL);
IF L_IDX > 0 THEN
PIPE ROW(SUBSTR(L_LIST,1,L_IDX-1));
L_LIST := SUBSTR(L_LIST,L_IDX+LENGTH(P_DEL));
ELSE
PIPE ROW(L_LIST);
EXIT;
END IF;
END LOOP;
RETURN;
END SPLIT;
步骤3:-最后尝试该示例存储过程。 在参数列表中,用户可以在单个参数中将多个值(逗号分隔)作为字符串传递。 (这是为搜索定义的)
CREATE OR REPLACE PROCEDURE proc_company_advance_search
--PURPOSE----------CREATED TO BE USED FOR COMPANY ADVANCE SEARCH
--DATE-------------05-JUN-2009
--DEVELOPED BY-----DEBASIS DAS
--MODIFICATIONS----
(
p_company_id VARCHAR2,
p_company_name VARCHAR2,
p_firm_type VARCHAR2,
p_instit_type VARCHAR2,
p_country VARCHAR2,
p_state VARCHAR2,
p_city VARCHAR2,
p_status VARCHAR2,
p_oper_asset VARCHAR2,
p_assets_1 NUMBER,
p_assets_2 NUMBER,
p_oper_date VARCHAR2,
p_date1 DATE,
p_date2 DATE,
rec OUT sys_refcursor
)
IS
mainqry VARCHAR2 (500);
qry1 VARCHAR2 (800);
qry2 VARCHAR2 (1400);
qry3 VARCHAR2 (2000);
qry4 VARCHAR2 (3000);
qry5 VARCHAR2 (4000);
qry6 VARCHAR2 (5000);
qry7 VARCHAR2 (1000);
qry8 VARCHAR2 (400);
qry9 VARCHAR2 (50):=' order by csv.company_name ';
dateqry VARCHAR2 (600);
assetqry VARCHAR2 (600);
finalqry VARCHAR2 (32000);
tmpstr1 VARCHAR2 (6000);
tmpstr2 VARCHAR2 (8000);
tmpstr3 VARCHAR2 (10000);
tmpstr4 VARCHAR2 (12000);
tmpstr5 VARCHAR2 (14000);
tmpstr6 VARCHAR2 (16000);
tmpstr7 VARCHAR2 (18000);
tmpstr8 VARCHAR2 (2000