DECLARE
TYPE my_dcf_cur_t IS REF CURSOR RETURN pf_by_sol_std%ROWTYPE;
my_dcf_cur my_dcf_cur_t;
my_dcf_rec my_dcf_cur%ROWTYPE;
BEGIN
:rec_count := 0;
-- Solicitor_id_in: 0000062482 - has more than 10 records in aeo_dcf_parent table
aeo_dcf_parent_fund.dcf_parent_fund_by_solicitor(title1_in => :title1_in,
solicitor_id_in => :solicitor_id_in,
ex_fund_omit_in => :ex_fund_omit_in,
ex_act_no_solicit_in => :ex_act_no_solicit_in,
ex_hold_in => :ex_hold_in,
giv_info_in => :giv_info_in,
dcf_cur => :dcf_cur);
my_dcf_cur := :dcf_cur;
WHILE my_dcf_cur%ISOPEN
LOOP
FETCH my_dcf_cur
INTO my_dcf_rec;
IF my_dcf_cur%FOUND
THEN
:rec_count := :rec_count + 1;
END IF;
END LOOP;
CLOSE my_dcf_cur;
END;