急！急！急！oracle 动态游标传日期参数是怎么传的呢，请赐教，谢谢！
create or replace procedure P_T_LCD_MAJOR_REPORT
(
  T_MONTH IN VARCHAR2 ---定义传入年月参数
)
AS
T_DAYS INT;-- 天数
T_CNT INT;
T_IN_MONTH varchar2(20);
T_IN_DAY DATE;
T_DEFAULT_LINE VARCHAR2(8);--线别
T_MO_START_DATE DATE;--日期
T_INPUT_QTY INT;--投入数
T_ErrorPinQty INT;--不良数
T_PPM INT;--PPM值
type refCur is ref cursor;--定义动态游标
cur refCur ;
sqlstr varchar2(10000);
BEGIN
   
  T_IN_DAY:=to_date(T_MONTH ||'26','yyyy-MM-dd' );
  select add_months(trunc(to_date(T_MONTH||'01','yyyy-MM-dd'),'mm'),1) - trunc(to_date(T_MONTH||'01','yyyy-MM-dd'),'mm') tt into T_DAYS from dual;-- 求传入月份的天数
  --DBMS_OUTPUT.put_line(T_DAYS);
  open cur for 'select a.default_line,a.mo_start_date,a.input_qty,decode(b.ErrorPinQty,null,0,b.ErrorPinQty)ErrorPinQty,
  round(decode(b.ErrorPinQty,null,0,b.ErrorPinQty)*1000000/decode(a.input_qty,null,1,a.input_qty),0) PPM
  from (select default_line,TRUNC(mo_start_date) mo_start_date,sum(input_qty) input_qty
  from t_pm_mo_base 
  where mo_start_date is not null
  group by default_line,TRUNC(mo_start_date)
  order by mo_start_date,default_line) a
  left join(select TEST_LINE,TEST_TIME,count(serial_number) ErrorPinQty 
  from
  (select distinct t.serial_number,t.TEST_LINE, trunc(t.TEST_TIME) TEST_TIME,t.SUPPLIER,c.ERROR_TYPE1 
  from t_re_repair t,t_co_error_code c
  where t.test_code=c.error_code and c.error_type1=0
  order by t.TEST_LINE,TEST_TIME)
  group by TEST_LINE,TEST_TIME
  order by TEST_LINE,TEST_TIME)b
  on a.default_line=b.TEST_LINE and a.mo_start_date=b.TEST_TIME
  where TRUNC(a.mo_start_date)=' || T_IN_DAY ;
  loop
  fetch cur into T_DEFAULT_LINE,T_MO_START_DATE,T_INPUT_QTY,T_ErrorPinQty,T_PPM;
  dbms_output.put_line(T_DEFAULT_LINE); 
  exit when cur %notfound; 
  end loop;

END;




------解决方案--------------------
试一下把T_IN_DAY改为字符型再组合
where TRUNC(a.mo_start_date)=to_date('||T_IN_DAY||')' ;