Exception to cursor for no data found

Question

Hello, i want to add exception to the following procedure. i tried its not trapping my no data found error.
here is my procedure:
can someone help me where to add my exception. i am trying to generate a weekly report to a clob field into the database and sends that as an email. when there is no data i wnat capture the no data found error. please help.
CREATE OR REPLACE PROCEDURE test.IWREPORT
AS
--DECLARE
    v_ReturnNumber1  NUMBER := 0;
    v_Text       VARCHAR2(135);
    Display_CLOB     clob;
    TAB constant     varchar2(1):= CHR(9);
    v_space constant varchar2(1):= CHR(13);
    v_heading        varchar2(135);
    err      varchar2(100);
    num      number;
BEGIN
--    DBMS_OUTPUT.ENABLE(100000);
    CLOB_PKG.Rep_Record.Report_Name := 'Weekly Report';
    CLOB_PKG.Rep_Record.Return_Message := 'OK';
    CLOB_PKG.Rep_Record.EMSG_Type := '22';
    CLOB_PKG.Report_Record.Report_Segment := 1;
    Display_CLOB := CLOB_PKG.Open_TempCLOB;
    v_heading := '                   WEEKLY REPORT||v_space;
    v_TextLine := 'UID                     NAME                          TOB                DATE IN';
    CLOB_PKG.Write_To_CLOB( Display_CLOB, V_HEADING||CHR(13)|| v_Text );
    v_Text := '------------------'|| TAB ||'-------------------------'|| TAB || '-----------'|| TAB ||TAB ||'--------------';
    CLOB_PKG.Write_To_CLOB( Display_CLOB,v_Text );
    FOR i_rec IN (select  V.uid, V.pn || ','||V.pgn as name,  C.ACode as TOB, TO_char(V.date_in,'mm/dd/yyyy') AS date_in
                    FROM test V, cost  C
                    WHERE V.uid like '%TES%'
                    and V.date_in >= trunc(SYSDATE,'IW') -8
                    and V.date_in < trunc(SYSDATE,'IW') -1
                    and V.TOB = C.aCode
                    ORDER BY 4,1,2,3)
    LOOP
        v_Text := i_rec.UID || TAB || i_rec.name|| TAB || TAB ||TAB ||i_rec.TOB|| TAB || TAB ||TAB                          ||I_REC.DATE_IN;
     CLOB_PKG.Write_To_CLOB( Display_CLOB, v_Text );
    END LOOP;
    clob_PKG.Write_To_CLOB( Display_CLOB, ' ' );
    clob_PKG.Report_Record.Report_TimeStamp := localtimestamp;
    dbms_output.put_line( 'REPORT_TIMESTAMP: ' || Report_CLOB_PKG.Report_Record.Report_TimeStamp );
     CLOB_PKG.Save_CLOB( Display_CLOB );
     CLOB_PKG.SMTP_CLOB( Report_Name => 'Weekly');
END;
/Thanks a lot...
Edited by: BluShadow on 18-Apr-2011 15:30
added {noformat}{noformat} tags. Please read the [url=SQL and PL/SQL FAQ and PL/SQL FAQ[/url] for details on posting on the forums                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   

Answer 1

789287 wrote:
Yes, someoneelse. i read all the posts and try to implement the counter which is not working. that s why i posted again where exactly this counter should be... since i am writing to clob etc...Something like this should do it...
CREATE OR REPLACE PROCEDURE test.IWREPORT AS
  v_ReturnNumber1  NUMBER := 0;
  v_Text           VARCHAR2(135);
  Display_CLOB     clob;
  TAB constant     varchar2(1):= CHR(9);
  v_space constant varchar2(1):= CHR(13);
  v_heading        varchar2(135);
  err                 varchar2(100);
  num                 number;
  v_cnt            number := 0;
BEGIN
  CLOB_PKG.Rep_Record.Report_Name := 'Weekly Report';
  CLOB_PKG.Rep_Record.Return_Message := 'OK';
  CLOB_PKG.Rep_Record.EMSG_Type := '22';
  CLOB_PKG.Report_Record.Report_Segment := 1;
  Display_CLOB := CLOB_PKG.Open_TempCLOB;
  v_heading := '                   WEEKLY REPORT||v_space;
  v_TextLine := 'UID                     NAME                          TOB                DATE IN';
  CLOB_PKG.Write_To_CLOB( Display_CLOB, V_HEADING||CHR(13)|| v_Text );
  v_Text := '------------------'|| TAB ||'-------------------------'|| TAB || '-----------'|| TAB ||TAB ||'--------------';
  CLOB_PKG.Write_To_CLOB( Display_CLOB,v_Text );
  FOR i_rec IN (select V.uid, V.pn || ','||V.pgn as name,  C.ACode as TOB, TO_char(V.date_in,'mm/dd/yyyy') AS date_in
                FROM   test V, cost  C
                WHERE  V.uid like '%TES%'
                and    V.date_in >= trunc(SYSDATE,'IW') -8
                and    V.date_in < trunc(SYSDATE,'IW') -1
                and    V.TOB = C.aCode
                ORDER BY 4,1,2,3)
  LOOP
    v_Text := i_rec.UID || TAB || i_rec.name|| TAB || TAB ||TAB ||i_rec.TOB|| TAB || TAB ||TAB                          ||I_REC.DATE_IN;
    CLOB_PKG.Write_To_CLOB( Display_CLOB, v_Text );
    v_cnt := v_cnt + 1;
  END LOOP;
  IF v_cnt = 0 THEN
    RAISE NO_DATA_FOUND;
  END IF;
  clob_PKG.Write_To_CLOB( Display_CLOB, ' ' );
  clob_PKG.Report_Record.Report_TimeStamp := localtimestamp;
  dbms_output.put_line('REPORT_TIMESTAMP: ' || Report_CLOB_PKG.Report_Record.Report_TimeStamp );
  CLOB_PKG.Save_CLOB( Display_CLOB );
  CLOB_PKG.SMTP_CLOB( Report_Name => 'Weekly');
EXCEPTION
  WHEN NO_DATA_FOUND THEN
    -- do whatever needs doing
    RAISE;
END;