DEFINE
  str_tab DBMS_SQL.NUMBER_TABLE;
  store_tab DBMS_SQL.NUMBER_TABLE;
  lbl_tab DBMS_SQL.VARCHAR2_TABLE;
  cur INTEGER := DBMS_SQL.OPEN_CURSOR;
  fdbk INTEGER;
BEGIN
  store_tab (1) := 3000;
  store_tab (2) := 121;
  DBMS_SQL.PARSE (cur, 'SELECT store_nbr, store_label_state FROM EX_TABLE where store_nbr = :str_lst', DBMS_SQL.NATIVE);
  -- Add all the stores to search by.
  DBMS_SQL.BIND_ARRAY (cur, ':str_lst', store_tab);

  -- Define the columns returned in an array?
  DBMS_SQL.DEFINE_ARRAY (cur, 1, str_tab, 2, -10);
  DBMS_SQL.DEFINE_ARRAY (cur, 2, lbl_tab, 2, -10);
  fdbk := DBMS_SQL.EXECUTE (cur);
...

DECLARE
  str_tab DBMS_SQL.NUMBER_TABLE;
  store_tab DBMS_SQL.NUMBER_TABLE;
  lbl_tab DBMS_SQL.VARCHAR2_TABLE;
  cur INTEGER := DBMS_SQL.OPEN_CURSOR;
  fdbk INTEGER;
BEGIN
/*
  Insert to Global TEMPORARY table
*/

DBMS_SQL.PARSE (cur, 'SELECT store_nbr, store_label_state FROM EX_TABLE  ET, GTT_PARAMS P where ET.store_nbr = P.store_nbr', DBMS_SQL.NATIVE);
  -- Define the columns returned in an array?
  DBMS_SQL.DEFINE_ARRAY (cur, 1, str_tab, 2, -10);
  DBMS_SQL.DEFINE_ARRAY (cur, 2, lbl_tab, 2, -10);
  fdbk := DBMS_SQL.EXECUTE (cur);

STORE_LISTING=3000,121
sqlplus -s <<-%%
$DBLOG/$DBPWD
...
DECLARE
   CURSOR cur_TPR_Cnt IS select ... where store_nbr in ($STORE_LISTING) ... ;
BEGIN
...
EXCEPTION
...
END;
/
exit $SQL_SUCCESS
%%

    g_bind_values my_collection;
-- ...
    functions get_binds return my_collection
    begin
        return g_bind_values;
    end;
--...
    procedure some_prc(...)
    begin
        -- dbms_sql routine with query " ... where x in (select /*+ cardinality (...)*/column_value from table(cast(mypkg.get_binds as my_collection)) t)"
        --this is a bind
        g_bind_values := some_collection;
        -- do other things
    end;