Question

There is a problem executing this block of code while passing the parameter. Parameter rf is a list of variables to be input into the WHERE clause. The number of variables to be input is not static.

create or replace
procedure test_pl(rf in varchar2)
IS 
counter number;

BEGIN
  select count(*) into counter from test_pl_imp where column_name in (rf);
  dbms_output.put_line(counter);
END;

The execution code is as follows:

declare 
inparam varchar2(20) := 'xyz,ran,dom';
begin
goku.test_pl(inparam);
end;
/

I want the WHERE condition to be executed like :

where column_name in ('xyz','ran','dom');

But it gets executed considering xyz,ran,dom as a string itself.

Is there any way to achieve it?

Answer 1

You can either explode the string out or the simplest way would be to use INSTR.

rf := ',' || rf || ',';

SELECT
    COUNT(*)
INTO
    counter
FROM
    test_pl_imp
WHERE
    INSTR(rf, ',' || column_name || ',') > 0;

If you have the option to redesign this slightly, I think it would be a cleaner design to take an array of strings and you casting it to a TABLE so that you can join to test_pl_imp.

This could be done as follows:

DECLARE
    l_array   goku.t_type := goku.t_type();
BEGIN
    l_array.extend(3);
    l_array(1) := 'xzy';
    l_array(2) := 'abc';
    l_array(2) := '123';

    goku.test_pl(l_array);
END;

And then your package spec would including the following since you want the types and procedures public for the above call:

CREATE OR REPLACE PACKAGE goku
    TYPE r_type IS RECORD (
        search_term    VARCHAR2 (30)
    );

    TYPE t_type IS TABLE OF r_type;

    PROCEDURE test_pl(l_array IN t_type);
END goku;

And your package body would be something like the following:

CREATE OR REPLACE PACKAGE BODY goku
    PROCEDURE test_pl(l_array IN t_type) IS
        v_counter NUMBER;
    BEGIN

        SELECT
            COUNT(tpi.*)
        INTO
            v_counter
        FROM
            test_pl_imp tpi
            , TABLE( CAST(l_array as r_type)) la
        WHERE
            tpi.column_name = la.search_term;

        DBMS_OUTPUT.PUT_LINE('Count :' || v_counter);
    END;
END goku;