How to modify a Procedure "select into" statement to use a cursor

Question

The below code fails with exception too many rows. How do I modify the Procedure's Select Into statement to use a cursor?
CREATE OR REPLACE PROCEDURE Track_Asset(
   business_date IN NUMBER DEFAULT NULL,
   missing_table_name  OUT VARCHAR2)
IS
   ln_business_date NUMBER;
    incorrectdateformat EXCEPTION;
BEGIN
   IF business_date < 0
   THEN
      RAISE incorrectdateformat;
   ELSE
      DECLARE
        ln_business_date NUMBER;
      BEGIN
         SELECT MAX(business_date)
         INTO ln_business_date
         FROM sproof ;
      EXCEPTION
        WHEN NO_DATA_FOUND THEN
         dbms_output.put_line('NO MATCH FOUND');
        WHEN OTHERS THEN
        dbms_output.put_line('ORACLE ERROR :' || SQLERRM);       
      END;
      DECLARE
        missedfeedfnd EXCEPTION;
      BEGIN
         SELECT 'Missing Value : ' || table_name
         INTO missing_table_name
         FROM (
            SELECT UPPER(table_name) table_name
            FROM filespec
            WHERE data_table_name IN ('TABLE1','TABLE2','TABLE3')
            MINUS (
            SELECT DISTINCT UPPER(first_table_name)
            FROM dpca
            WHERE business_date = ln_business_date
            AND first_table_name IN ('TABLE1','TABLE2','TABLE3')
            GROUP BY UPPER(first_table_name) UNION
            SELECT UPPER(first_table_name)
            FROM dpca
            WHERE business_dt_num = TO_NUMBER( SUBSTR('201111', 1, 6) || '01' )
            AND first_table_name = 'TABLE4'
            GROUP BY UPPER(first_table_name) ));
            IF missing_table_name  IS NOT NULL THEN
               dbms_output.put_line('Missing Value : '|| missing_table_name);
               RAISE missedfeedfnd;
            ELSE
              NULL;
            END IF;
      EXCEPTION
         WHEN TOO_MANY_ROWS THEN
   DBMS_OUTPUT.PUT_LINE (' SELECT INTO statement retrieved multiple rows');
          WHEN missedfeedfnd THEN
          raise_application_error ( - 20003, 'Missed Feed');
      END;
    END IF;
      EXCEPTION
   WHEN incorrectdatevalue
   THEN
      raise_application_error ( - 20001, 'Incorrect/Bad Date Entered');
END;

Answer 1

ok try this - OUT param will be populated with comma separated list of table names:
PROCEDURE Track_Asset(
   business_date IN NUMBER DEFAULT NULL,
   missing_table_name  OUT VARCHAR2)
cursor c_table_names is
select datatablename
from   ( select upper(datatablename) datatablename
         from   filespec
         where  data_table_name in ('TABLE1','TABLE2','TABLE3'                                 )
        MINUS
        ( select upper(first_table_name)
          from   dpca
          where  business_dt_num = [-- this date is retrieved by getting the MAX(business_date) from sproof table]
                 and fus_data_table_name in ('TABLE1','TABLE2','TABLE3'
          group  by
                 upper(first_table_name)
         UNION
          select upper(first_table_name)
          from   dpca
          where  business_dt_num = to_number( substr('201111',1,6) || '01' )
                 and first_table_name = 'TABLE4'
          group  by
                 upper(first_table_name)
begin
   for rec in c_table_names
   loop
       missing_table_name  := missing_table_name  || rec.datatablename ||',';
   end loop;
   missing_table_name  := rtim(missing_table_name , ',');
end ;HTH
Edited by: user130038 on Dec 28, 2011 8:46 AM