DECLARE 
CURSOR rf_cr IS SELECT countryid FROM mine_country;
TYPE rf IS REF CURSOR; 
rc rf;
id NUMBER;
BEGIN
FOR a IN rf_cr LOOP
EXECUTE IMMEDIATE 'select count(cityid) from mine_city where countryid=:a' INTO id USING a.countryid; 
END LOOP;
END;

DECLARE 
CURSOR rf_cr IS SELECT countryid FROM mine_country;
TYPE rf IS REF CURSOR; 
rc rf;
id NUMBER;
TYPE tt IS TABLE OF NUMBER
INDEX BY BINARY_INTEGER;
t tt;
i NUMBER:=0;
l NUMBER:=0;
BEGIN
FOR a IN rf_cr LOOP
EXECUTE IMMEDIATE 'select count(cityid) from mine_city where countryid=:a' INTO id USING a.countryid; 
t(i):=id;
i:=i+1;
END LOOP;
l:=t.COUNT;
OPEN rc FOR SELECT * FROM t;
END;

open rc for select * from t;

SQL> variable aa refcursor;
SQL> begin
  2  Mine_Ref.mine_proc(:aa);
  3  end;
  4  /

PL/SQL procedure successfully completed.

SQL> print aa;
ERROR:
ORA-24338: statement handle not executed


SP2-0625: Error printing variable "aa"
SQL> print :aa;
SP2-0625: Error printing variable "aa"

CREATE OR REPLACE PACKAGE Mine_Ref AS
TYPE rc IS REF CURSOR;
PROCEDURE mine_proc(rr IN OUT rc);
END;

CREATE OR REPLACE PACKAGE BODY Mine_Ref AS
PROCEDURE mine_proc(rr IN OUT rc) IS
CURSOR rf_cr IS SELECT countryid FROM mine_country;
TYPE rf IS REF CURSOR; 
rc rf;
id NUMBER;
TYPE tt IS TABLE OF NUMBER
INDEX BY BINARY_INTEGER;
t tt;
i NUMBER:=0;
l NUMBER:=0;
BEGIN
FOR a IN rf_cr LOOP
EXECUTE IMMEDIATE 'select count(cityid) from mine_city where countryid=:a' INTO id USING a.countryid; 
t(i):=id;
i:=i+1;
END LOOP;
l:=t.COUNT;
OPEN rc FOR SELECT * FROM t;
END;
END;