For all Error In the anoymous blk

Question

Hi all,
when i execute the below query, i got error
the Error file
ORA-06550: line 54, column 1:
PLS-00103: Encountered the symbol "DBMS_OUTPUT" when expecting one of the following:
   . ( * @ % & - + / at mod rem select update <an exponent (**)>
   delete insert ||
The symbol "." was substituted for "DBMS_OUTPUT" to continue.
ORA-06550: line 54, column 95:
PLS-00103: Encountered the symbol ";" when expecting one of the following:
   . ( * % & - + / at mod rem sthe actual query below
SET SERVEROUTPUT ON;
SPOOL /tmp/customer_ext.xls
DECLARE
TYPE tpcustnos IS TABLE OF dw_customer.cust_no%TYPE INDEX BY BINARY_INTEGER;
TYPE tptitles IS TABLE OF dw_customer.title%TYPE INDEX BY BINARY_INTEGER;
TYPE tpsalutations IS TABLE OF dw_customer.salutation%TYPE INDEX BY BINARY_INTEGER;
TYPE tpfirstnames IS TABLE OF dw_customer.first_name%TYPE INDEX BY BINARY_INTEGER;
TYPE tplastnames IS TABLE OF dw_customer.last_name%TYPE INDEX BY BINARY_INTEGER;
TYPE tpcreationtimes IS TABLE OF dw_customer.creation_time%TYPE INDEX BY BINARY_INTEGER;
CURSOR customerdetails(FromCreationTime IN dw_customer.creation_time%TYPE,
                                                ToCreationTime IN dw_customer.creation_time%TYPE)
IS
SELECT dc.cust_no,
           dc.title,
           dc.salutation,
           dc.first_name,
           dc.last_name,
           dc.creation_time
FROM dw_customer dc
WHERE trunc(dc.creation_time) >=  FromCreationTime
        AND    trunc(dc.creation_time) <  ToCreationTime + 1;
lcustnos tpcustnos;
ltitles tptitles;
lsalutations tpsalutations;
lfirstnames tpfirstnames;
llastnames tplastnames;
lcreationtimes tpcreationtimes;
vCount BINARY_INTEGER;
FromCreationTime DATE      := '08-APR-2003';
ToCreationTime DATE      := '08-APR-2003';
BEGIN
DBMS_OUTPUT.PUT_LINE('Opening cursor');
OPEN customerdetails(FromCreationTime => FromCreationTime,
                                                ToCreationTime => ToCreationTime) ;
DBMS_OUTPUT.PUT_LINE('Fetching from the cursor and bulk collecting into table variables');
LOOP
FETCH customerdetails BULK COLLECT INTO lcustnos, ltitles, lsalutations, lfirstnames, llastnames, lcreationtimes;
DBMS_OUTPUT.PUT_LINE('Closing the cursor');
FORALL vCount IN 1..lcustnos.COUNT
DBMS_OUTPUT.PUT_LINE(lcustnos, ltitles, lsalutations, lfirstnames, llastnames, lcreationtimes);
--EXIT WHEN customerdetails%NOTFOUND;
END LOOP;
END;

Answer 1

after i change the coding, it executes fine. but I want to dispplay these columns thru dbms_output(lsalutations, lfirstnames, llastnames, lcreationtimes)... How can we change according to my scenario.
The script below:
DECLARE
TYPE tpcustnos IS TABLE OF dw_customer.cust_no%TYPE INDEX BY BINARY_INTEGER;
TYPE tptitles IS TABLE OF dw_customer.title%TYPE INDEX BY BINARY_INTEGER;
TYPE tpsalutations IS TABLE OF dw_customer.salutation%TYPE INDEX BY BINARY_INTEGER;
TYPE tpfirstnames IS TABLE OF dw_customer.first_name%TYPE INDEX BY BINARY_INTEGER;
TYPE tplastnames IS TABLE OF dw_customer.last_name%TYPE INDEX BY BINARY_INTEGER;
TYPE tpcreationtimes IS TABLE OF dw_customer.creation_time%TYPE INDEX BY BINARY_INTEGER;
CURSOR customerdetails(FromCreationTime IN dw_customer.creation_time%TYPE,
                                                ToCreationTime IN dw_customer.creation_time%TYPE)
IS
SELECT dc.cust_no,
           dc.title,
           dc.salutation,
           dc.first_name,
           dc.last_name,
           dc.creation_time
FROM dw_customer dc
WHERE trunc(dc.creation_time) >=  FromCreationTime
        AND    trunc(dc.creation_time) <  ToCreationTime + 1;
lcustnos tpcustnos;
ltitles tptitles;
lsalutations tpsalutations;
lfirstnames tpfirstnames;
llastnames tplastnames;
lcreationtimes tpcreationtimes;
vCount BINARY_INTEGER;
FromCreationTime DATE      := '08-APR-2003';
ToCreationTime DATE      := '08-APR-2003';
BEGIN
DBMS_OUTPUT.PUT_LINE('Opening cursor');
OPEN customerdetails(FromCreationTime => FromCreationTime,
                                                ToCreationTime => ToCreationTime) ;
DBMS_OUTPUT.PUT_LINE('Fetching from the cursor and bulk collecting into table variables');
LOOP
FETCH customerdetails BULK COLLECT INTO lcustnos, ltitles, lsalutations, lfirstnames, llastnames, lcreationtimes;
DBMS_OUTPUT.PUT_LINE('Closing the cursor');
FOR vCount IN 1..lcustnos.COUNT loop
DBMS_OUTPUT.PUT_LINE(lcustnos(vcount));
--EXIT WHEN customerdetails%NOTFOUND;
END LOOP;
END;