Add_months problem

Question

hi
i have:
V_YEAR_MONTH VARCHAR2(6);
when i put this in my procedure:
select * from tab where reportingdate >= add_months(to_date('201009' || '01','yyyymmdd'), -12);
then it is ok.
but when i put this:
in V_YEAR_MONTH as parameter i have: '201009'
select * from tab where reportingdate >= add_months(to_date(V_YEAR_MONTH || '01','yyyymmdd'), -12);
then i have error:
ORA-01840: input value not long enough for date format
what's wrong?
regards

Answer 1

hey,
thank you very much for try to help me. I gave you to small piece of code but i found my problem. This is my incorrect code:
CREATE OR REPLACE PACKAGE BIULETYN_02_test IS
  V_DATE                       date;
  V_DATE_ID                    number;
  v_nazwa_kamp                 varchar2(100);
  v_czas_start                 date;
  v_czas_stop                  date;
  err_code                     varchar2(50);
  err_msg                      varchar2(2000);
  v_owner_name                 varchar2(30);
  PROCEDURE INIT(V_YEAR_MONTH VARCHAR2);
  PROCEDURE BECO;
  PROCEDURE BECO_2;
  -- exception - wyjatek zglaszany gdy nie ma rekordow spelniajacych kryteria do insert'u
  e_INSERT_NotFound                EXCEPTION;
  e_INSERT_NotFound_test           pls_integer;
  -- zly format daty - wyjatek
  e_DATE_Format                EXCEPTION;
END BIULETYN_02_test;
CREATE OR REPLACE PACKAGE BODY BIULETYN_02_test IS
PROCEDURE INIT(V_YEAR_MONTH VARCHAR2) IS
BEGIN
        e_INSERT_NotFound_test := 0;
        v_czas_start := sysdate;
        v_nazwa_kamp := 'PACKAGE:BIULETYN_02_TEMPLATES_4_BECO';
        select sys_context ('USERENV','CURRENT_USER') into v_owner_name from dual;
        if (riskscore.is_date(V_YEAR_MONTH || '01')) then
           V_DATE := last_day(to_date(V_YEAR_MONTH || '01', 'yyyymmdd'));
           SELECT distinct month_id INTO V_DATE_ID FROM edw.day_attr WHERE last_day(day_desc) = V_DATE;
           BECO;
           BECO_2;
        else
           RAISE e_DATE_Format;
        end if;
        v_czas_stop:= sysdate;
        insert into log_objects (object_name, time_start, time_stop, time_diff_min, parameters)
        values (v_nazwa_kamp, v_czas_start, v_czas_stop, round((v_czas_stop - v_czas_start) * 24 * 60, 2), V_YEAR_MONTH);
        commit;
  EXCEPTION
       WHEN e_DATE_Format THEN
          INSERT INTO log_objects_errors (time_err, object_name, error_message)
          VALUES (sysdate, v_owner_name || '.' || v_nazwa_kamp, 'niepoprawny format daty: ' || V_YEAR_MONTH);
          COMMIT;
       WHEN e_INSERT_NotFound THEN
          INSERT INTO log_objects_errors (time_err, object_name, error_message)
          VALUES (sysdate, v_owner_name || '.' || v_nazwa_kamp, 'e_INSERT_NotFound nr: ' || e_INSERT_NotFound_test);
          COMMIT;
       WHEN OTHERS THEN
          err_code := SQLCODE;
          err_msg := substr(SQLERRM, 1, 2000);
          INSERT INTO log_objects_errors (time_err, object_name, error_number, error_message)
          VALUES (sysdate, v_owner_name || '.' || v_nazwa_kamp, err_code, err_msg);
          COMMIT;
END INIT;
PROCEDURE BECO IS
BEGIN
null;
END BECO;
PROCEDURE BECO_2 IS
BEGIN
delete from bi_tem_4_beco_all_ccms_scr purge;
commit;
insert into bi_tem_4_beco_all_ccms_scr
select case when (substr(w.prod_code,1,1)=1 or substr(w.prod_code,1,2) in (91,93,95)) then 'AUTO_NEW'
            when (substr(w.prod_code,1,1)=2 or substr(w.prod_code,1,2) in (92,94,96)) then 'AUTO_USED'
            else 'AUTO_OTHER'
       end PORTFOLIO
       , w.reportingdate
       , sum(case when w.grade='1' and v.delqbucket<4 then w.net_bal_pln end) sum_netbal_grade_1
       , sum(case when w.grade='2' and v.delqbucket<4 then w.net_bal_pln end) sum_netbal_grade_2
       , sum(case when w.grade='3' and v.delqbucket<4 then w.net_bal_pln end) sum_netbal_grade_3
       , sum(case when w.grade='4' and v.delqbucket<4 then w.net_bal_pln end) sum_netbal_grade_4
       , sum(case when w.grade='5' or v.delqbucket>=4 then w.net_bal_pln end) sum_netbal_grade_5
       , sum(w.net_bal_pln) sum_netbal
       , avg(w.beco) avg_beco
       , avg(case when v.delqbucket>=4 and beco_5 < beco then beco_5 else beco end) avg_beco_2
       , count(*) count_all
from riskapp.beco_auto_ccms w,
     (select w.prod_code, w.reportingdate, avg(w.beco) beco_5 from riskapp.beco_auto_ccms w
      where w.grade = '5' and w.net_bal_pln>0 and w.beco is not null group by w.prod_code, w.reportingdate
     ) x,
     riskmain.account_var v
where w.reportingdate >= add_months(to_date(V_YEAR_MONTH, 'yyyymm'), -12)
  and v.reportingdate = w.reportingdate
  and v.acct_id = w.acct_id
  and x.reportingdate(+) = w.reportingdate
  and x.prod_code(+) = w.prod_code
  and w.net_bal_pln>0
  and w.beco is not null
group by w.reportingdate,
      case when (substr(w.prod_code,1,1)=1 or substr(w.prod_code,1,2) in (91,93,95)) then 'AUTO_NEW'
           when (substr(w.prod_code,1,1)=2 or substr(w.prod_code,1,2) in (92,94,96)) then 'AUTO_USED'
           else 'AUTO_OTHER'
      end;
-- jesli nie zostaly zainsertowane zadne rekordy to zglasza wyjatek
IF SQL%ROWCOUNT = 0 THEN
   e_INSERT_NotFound_test := e_INSERT_NotFound_test + 1;
   RAISE e_INSERT_NotFound;
END IF;
commit;
END BECO_2;
END BIULETYN_02_test;
/so variable V_YEAR_MONTH is parameter of INIT procedure and i cant see it in another procedures like my BECO_2. Incorrectly i thought that i can use this variable there.
thank you all!