(URGENT)Problem in PL/SQL package with date.

Question

Hi,
When I am running this query
"SELECT a.street_addr address, a.mailing_city_name city,
d.pa_cust_name county, a.zip_cd zip,
a.last_update_dt lastdate, a.status_cd status
FROM CWT003_PEND_ADDR a,
CWT004_ACTVITY_LOG b,
CWT005_PUBLIC_AUTH c,
CWT005_PUBLIC_AUTH d
WHERE a.address_id = b.address_id(+)
AND a.city_cust_num = c.pa_cust_num(+)
AND c.parent_pa_num = d.pa_cust_num(+)
AND (b.action_flag = 'A' OR b.action_flag = 'I')
AND b.user_prof_id = NVL(NULL,b.user_prof_id)
AND ( NVL (TO_DATE('01-oct-2006'),
TO_DATE ('1-1-1900', 'MM-DD-YYYY')) =
TO_DATE ('1-1-1900', 'MM-DD-YYYY')
OR b.activity_tstmp >= TO_DATE('01-oct-2006')
AND ( NVL (TO_DATE('01-nov-2006'),
TO_DATE ('1-1-1900', 'MM-DD-YYYY')
) = TO_DATE ('1-1-1900', 'MM-DD-YYYY')
OR b.activity_tstmp <= TO_DATE('01-nov-2006')
AND ( NVL (NULL, -1) = -1
OR a.district_no = ''
AND a.city_cust_num IN (SELECT pa_cust_num
FROM CWT005_PUBLIC_AUTH Y
                                   WHERE NVL(Y.parent_pa_num,-1) =
                                             NVL(NULL,NVL(Y.parent_pa_num,-1)))
AND NVL(a.city_cust_num,-1) = NVL(NULL,NVL(a.CITY_CUST_NUM,-1))"
I am getting the desired o/p.
But when I call the following package;
CREATE OR REPLACE PACKAGE Test_Pkg_Dip
AS
PROCEDURE test_proc;
END Test_Pkg_Dip;
CREATE OR REPLACE PACKAGE BODY Test_Pkg_Dip
AS
PROCEDURE test_proc
IS
l_report_req_date CWT009_REPORT_RQST.report_req_dt%TYPE;
l_report_type CWT009_REPORT_RQST.report_type%TYPE;
l_req_user_prof_id CWT009_REPORT_RQST.req_user_prof_id%TYPE;
l_rqst_city_num CWT009_REPORT_RQST.rqst_city_num%TYPE;
l_rqst_county_num CWT009_REPORT_RQST.rqst_county_num%TYPE;
l_rqst_from_dt VARCHAR2 (50);
l_rqst_org_num CWT009_REPORT_RQST.rqst_org_num%TYPE;
l_rqst_to_dt VARCHAR2 (50);
l_rqst_user_prof_id CWT009_REPORT_RQST.rqst_user_prof_id%TYPE;
l_city_cust_num CWT002_USR_CTY_REL.city_cust_num%TYPE;
l_count NUMBER := 0;
l_address CWT003_PEND_ADDR.street_addr%TYPE;
l_city CWT003_PEND_ADDR.mailing_city_name%TYPE;
l_county CWT005_PUBLIC_AUTH.pa_cust_name%TYPE;
l_zip CWT003_PEND_ADDR.zip_cd%TYPE;
l_last_worked_date CWT003_PEND_ADDR.last_update_dt%TYPE;
l_status CWT003_PEND_ADDR.status_cd%TYPE;
CURSOR cur_report_entries
IS
SELECT a.report_req_dt, a.report_type, a.req_user_prof_id,
a.rqst_city_num, a.rqst_county_num,
TO_CHAR (a.rqst_from_dt, 'DD-MON-YYYY'), a.rqst_org_num,
TO_CHAR (a.rqst_to_dt, 'DD-MON-YYYY'), a.rqst_user_prof_id
FROM (SELECT x.report_req_dt, x.report_type, x.req_user_prof_id,
x.rqst_city_num, x.rqst_county_num, x.rqst_from_dt,
x.rqst_org_num, x.rqst_to_dt, x.rqst_user_prof_id
FROM CWT009_REPORT_RQST x
ORDER BY report_type) a
WHERE ROWNUM <= 1;
CURSOR test_cur
IS
SELECT a.street_addr address, a.mailing_city_name city,
d.pa_cust_name county, a.zip_cd zip,
a.last_update_dt lastdate, a.status_cd status
FROM CWT003_PEND_ADDR a,
CWT004_ACTVITY_LOG b,
CWT005_PUBLIC_AUTH c,
CWT005_PUBLIC_AUTH d
WHERE a.address_id = b.address_id(+)
AND a.city_cust_num = c.pa_cust_num(+)
AND c.parent_pa_num = d.pa_cust_num(+)
AND (b.action_flag = 'A' OR b.action_flag = 'I')
AND b.user_prof_id = NVL (l_rqst_user_prof_id, b.user_prof_id)
AND ( NVL (TO_DATE (l_rqst_from_dt, 'DD-MON-YYYY'),
TO_DATE ('01-JAN-1900', 'DD-MON-YYYY')
) = TO_DATE ('01-JAN-1900', 'DD-MON-YYYY')
OR b.activity_tstmp >=
TO_DATE (l_rqst_from_dt, 'DD-MON-YYYY')
AND ( NVL (TO_DATE (l_rqst_to_dt, 'DD-MON-YYYY'),
TO_DATE ('01-JAN-1900', 'DD-MON-YYYY')
) = TO_DATE ('01-JAN-1900', 'DD-MON-YYYY')
OR b.activity_tstmp <=
TO_DATE (l_rqst_to_dt, 'DD-MON-YYYY')
AND (NVL (l_rqst_org_num, -1) = -1
OR a.district_no = l_rqst_org_num
AND a.city_cust_num IN (
SELECT pa_cust_num
FROM CWT005_PUBLIC_AUTH y
WHERE NVL (y.parent_pa_num, -1) =
NVL (l_rqst_county_num, NVL (y.parent_pa_num, -1)))
AND NVL (a.city_cust_num, -1) =
NVL (l_rqst_city_num, NVL (a.city_cust_num, -1));
BEGIN
DBMS_OUTPUT.put_line ('11111' || CHR (10));
OPEN cur_report_entries;
FETCH cur_report_entries
INTO l_report_req_date, l_report_type, l_req_user_prof_id,
l_rqst_city_num, l_rqst_county_num, l_rqst_from_dt,
l_rqst_org_num, l_rqst_to_dt, l_rqst_user_prof_id;
CLOSE cur_report_entries;
DBMS_OUTPUT.put_line ( l_req_user_prof_id
|| '---'
|| l_report_req_date
|| '---'
|| l_report_type
|| '---'
|| l_rqst_user_prof_id
|| '---'
|| l_rqst_from_dt
|| '---'
|| l_rqst_to_dt
|| '---'
|| l_rqst_org_num
|| '---'
|| l_rqst_city_num
|| '---'
|| l_rqst_county_num
DBMS_OUTPUT.put_line
|| CHR (10)
IF l_rqst_city_num = 0
THEN
l_rqst_city_num := NULL;
END IF;
IF l_rqst_county_num = 0
THEN
l_rqst_county_num := NULL;
END IF;
IF l_rqst_user_prof_id = 0
THEN
l_rqst_user_prof_id := NULL;
END IF;
--l_rqst_from_dt := NULL;
--l_rqst_to_dt   := NULL;
l_count := l_count + 1;
--FOR rec1 IN test_cur
OPEN test_cur;
LOOP
BEGIN
FETCH test_cur
INTO l_address, l_city, l_county, l_zip, l_last_worked_date,
l_status;
EXIT WHEN test_cur%NOTFOUND;
DBMS_OUTPUT.put_line
|| l_count
|| ' ] street_addr::'
|| l_address
|| CHR (10)
|| 'mailing_city_name::'
|| l_city
|| CHR (10)
|| 'pa_cust_name::'
|| l_county
|| CHR (10)
|| 'zip_cd::'
|| l_zip
|| CHR (10)
|| 'last_update_dt::'
|| l_last_worked_date
|| CHR (10)
|| 'status_cd::'
|| l_status
|| CHR (10)
|| '-------------------------------------------------------------------------------------------'
|| CHR (10)
l_count := l_count + 1;
EXCEPTION
WHEN OTHERS
THEN
DBMS_OUTPUT.put_line ( 'Inside Error::'
|| SQLCODE
|| '------'
|| SQLERRM
END;
END LOOP;
CLOSE test_cur;
EXCEPTION
WHEN OTHERS
THEN
DBMS_OUTPUT.put_line ('Error::' || SQLCODE || '------' || SQLERRM);
END test_proc;
END Test_Pkg_Dip;
as
BEGIN
Test_Pkg_Dip.test_proc;
END;
I do not get any output. And also if I remove the date comparison from the query it works.
Thanks & regards,
Dipankar Kushari.

Answer 1

Yeh.
But the real error was "ERROR:
ORA-06502: PL/SQL: numeric or value error: host bind array too small
ORA-06512: at line 1"
I found that it was coming due to more than 255 characters in a single line in dbms_output.put_line.
Anyway, thanks for the answer.
Dipankar.