Using out variable in a proceadure

Question

hi im trying to use out to return a value from a proceadure
im not getting the syntax corect below could somone point be in the right direction
-------spec--------
create or replace package test
AS
TYPE result_set_type IS REF CURSOR;
PROCEDURE run_report
(main_cursor IN OUT result_set_type,
answer out varchar2);
end testJW;
---body-----
----im expecting the reult of the select below to be loaded in to answer
the cursor bit is because ultimatly this will be used with crystal reports
create or replace package body testJW
as
PROCEDURE run_report
(main_cursor IN OUT result_set_type,
v_channel_id NUMBER,
v_on_date      DATE)
IS
BEGIN
     OPEN main_cursor FOR
select block_type_name from onair.block_type where block_type_id = 1 ;
into answer ??????
end ;
end test;

Answer 1

create or replace package test
AS
TYPE result_set_type IS REF CURSOR return block_type%ROWTYPE;
PROCEDURE run_report
(main_cursor IN OUT result_set_type,
answer out varchar2);
end test;
---body-----
----im expecting the reult of the select below to be loaded in to answer
the cursor bit is because ultimatly this will be used with crystal reports
create or replace package body test
as
PROCEDURE run_report
(main_cursor IN OUT result_set_type,
v_channel_id NUMBER,
v_on_date DATE)
IS
BEGIN
OPEN main_cursor FOR
select * from onair.block_type where block_type_id = 1 ;
end ;
end test;