Passing Substitution Variable

Question

Hi Everyone,
I'm trying to pass a substitution variable that contains a where clause from TEST2_PROC to TEST1_PROC, but all records are selected by TEST1_PROC as though the variable is ignored even though it contains the correct syntax.
Code below.
Any suggestions?
Thank You in Advance for Your Help,
Lou
create or replace
PROCEDURE TEST2_PROC
AS
my_refcur SYS_REFCURSOR;
my_id ci_summrpt_report_codes.id% TYPE;
my_descr ci_summrpt_report_codes.descr% TYPE;
my_valid_flag ci_summrpt_report_codes.valid_flag% TYPE;
my_success VARCHAR2(100);
my_where VARCHAR2(50) := ' WHERE ID = 1';
BEGIN
TEST1_PROC(my_refcur,my_where) ;
DBMS_OUTPUT.PUT_LINE('ID DESCR VALID_FLAG');
DBMS_OUTPUT.PUT_LINE('----- ------- ---------');
LOOP
FETCH my_refcur INTO my_id, my_descr, my_valid_flag;
EXIT
WHEN my_refcur%NOTFOUND;
DBMS_OUTPUT.PUT_LINE(my_id || CHR(9) || RPAD(my_descr,25) || CHR(9) || my_valid_flag);
END LOOP;
CLOSE my_refcur;
END TEST2_PROC;
create or replace
PROCEDURE TEST1_PROC (
p_refcur OUT SYS_REFCURSOR,
p_where in VARCHAR2
IS
v_id ci_summrpt_report_codes.id% TYPE;
v_descr ci_summrpt_report_codes.descr% TYPE;
v_valid_flag ci_summrpt_report_codes.valid_flag% TYPE;
BEGIN
DBMS_OUTPUT.PUT_LINE(p_where);
OPEN p_refcur FOR SELECT id, descr, valid_flag FROM
(SELECT 1 AS "ID", 'ONE' AS "DESCR", 'Y' AS "VALID_FLAG" FROM DUAL
UNION ALL
SELECT 2, 'TWO', 'Y' FROM DUAL
UNION ALL
SELECT 3, 'THREE','Y' FROM DUAL
UNION ALL
SELECT 4, 'FOUR','Y' FROM DUAL)
p_where;
END TEST1_PROC;

Answer 1

In TEST1_PROC you need to open ref cursor with dynamic SQL:
create or replace
PROCEDURE TEST1_PROC (
p_refcur OUT SYS_REFCURSOR,
p_where in VARCHAR2
IS
v_id ci_summrpt_report_codes.id% TYPE;
v_descr ci_summrpt_report_codes.descr% TYPE;
v_valid_flag ci_summrpt_report_codes.valid_flag% TYPE;
BEGIN
DBMS_OUTPUT.PUT_LINE(p_where);
OPEN p_refcur FOR 'SELECT id, descr, valid_flag FROM ' ||
'(SELECT 1 AS "ID", ''ONE'' AS "DESCR", ''Y'' AS "VALID_FLAG" FROM DUAL ' ||
'UNION ALL ' ||
'SELECT 2, ''TWO'', ''Y'' FROM DUAL ' ||
'UNION ALL ' ||
'SELECT 3, ''THREE'',''Y'' FROM DUAL ' ||
'UNION ALL ' ||
' SELECT 4, ''FOUR'',''Y'' FROM DUAL) ' ||
p_where;
END TEST1_PROC;SY.