Re: input parameters

[Ambrosio Lorraine RDOG <Lorraine.Ambrosio@COMINCO.COM>]

I've made some modifications but I am getting the following error.
thanks again,
Lorraine

(SQR 5528) ORACLE OPARSE error -911 in cursor 1:
   ORA-00911: invalid character
SQL:  select distinct dbaprod.cid_eq_crct_cmplx_tb.ecc_desc,
      dbaprod.cid_eq_crct_cmplx_status_tb.ecc_stts_desc,
      dbaprod.cid_eq_crct_cmplx_notes_tb.effctv_dt,
      dbaprod.cid_eq_crct_cmplx_notes_tb.ecc_cmmnt  from
      dbaprod.cid_eq_crct_cmplx_tb, dbaprod.cid_eq_crct_cmplx_status_tb,
      dbaprod.cid_eq_crct_cmplx_notes_tb where
      dbaprod.cid_eq_crct_cmplx_tb.ecc_id =
      dbaprod.cid_eq_crct_cmplx_notes_tb.ecc_id and
      dbaprod.cid_eq_crct_cmplx_notes_tb.effctv_dt >= :1 and
      dbaprod.cid_eq_crct_cmplx_notes_tb.effctv_dt <= :2 and
      dbaprod.cid_eq_crct_cmplx_tb.ecc_stts_cd =
      dbaprod.cid_eq_crct_cmplx_status_tb.ecc_stts_cd and
      dbaprod.cid_eq_crct_cmplx_tb.ecc_desc like (%$eccname%) order by
      dbaprod.cid_eq_crct_cmplx_tb.ecc_desc asc
Error at:  %$eccname%)

Error on line 37:
   (SQR 3722) Could not set up cursor.
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
++++++++++++++++++++++++++++
begin-program
        input $eccname 'Enter CCE Name(press <Enter> to select all):'
type=char
                IF $eccname <> ''
                        let $whereclause =
'dbaprod.cid_eq_crct_cmplx_tb.ecc_desc like '|| '(%$eccname%)'
                end-if
        input $startdate 'Enter Start Date:(DD-MON-YYYY)' type=date
format='DD-MON-YYYY'
                let #diff =datediff (datenow (), $startdate, 'day')
        input $enddate 'Enter End Date:(DD-MON-YYYY)' type=date
format='DD-MON-YYYY'
                let #diff =datediff (datenow (), $enddate, 'day')

                do cce_memo
end-program

begin-procedure cce_memo
begin-select distinct
dbaprod.cid_eq_crct_cmplx_tb.ecc_desc !(+1,{c1},
dbaprod.cid_eq_crct_cmplx_status_tb.ecc_stts_desc !(,{c2}) ,
dbaprod.cid_eq_crct_cmplx_notes_tb.effctv_dt !(+1,{c3}),
dbaprod.cid_eq_crct_cmplx_notes_tb.ecc_cmmnt !(,{c4})
        from    dbaprod.cid_eq_crct_cmplx_tb,
                        dbaprod.cid_eq_crct_cmplx_status_tb,
                        dbaprod.cid_eq_crct_cmplx_notes_tb
        where dbaprod.cid_eq_crct_cmplx_tb.ecc_id =
dbaprod.cid_eq_crct_cmplx_notes_tb.ecc_id
                and             dbaprod.cid_eq_crct_cmplx_notes_tb.effctv_dt
>= $startdate
                and     dbaprod.cid_eq_crct_cmplx_notes_tb.effctv_dt <=
$enddate
                and     dbaprod.cid_eq_crct_cmplx_tb.ecc_stts_cd =
dbaprod.cid_eq_crct_cmplx_status_tb.ecc_stts_cd
                and [$whereclause]
order by dbaprod.cid_eq_crct_cmplx_tb.ecc_desc asc
end-select
end-procedure