Exception Trap

Question

Hello Experts,
I have the following error message been raised "ORA-14758: Last partition in the range section cannot be dropped" when i am trying to drop partition.
I have to trap this in exception part and if it get raised then i have to skip and proceed with partition process.
How can i do that?
Thanks fr ur comments...
PROCEDURE....
BEGIN..
     OPEN c_Part ;
         LOOP
            FETCH c_Part
             INTO lv_long_high_val, lv_part_name;
            EXIT WHEN c_Part%NOTFOUND;
            IF lv_long_high_val IS NOT NULL
            THEN
               -- Fetching the HIGH_VALUE and converting into CLOB type
               lv_high_val := TO_CLOB (lv_long_high_val);
               DBMS_OUTPUT.put_line
                  (   'High Value after converting to CLOB --> lv_high_val -> '
                   || lv_high_val
               BEGIN
                  SELECT TO_TIMESTAMP (TO_CHAR (DBMS_LOB.SUBSTR (lv_high_val,
                                                                 11,
                                                                 11
                                       'RRRR-MM-DD HH.MI.SSXFF AM'
                    INTO lv_tmp_high_value
                    FROM DUAL;
               EXCEPTION
                  WHEN NO_DATA_FOUND
                  THEN
                     lv_tmp_high_value := NULL;
               END;
                 IF lv_tmp_high_value <= (systimestamp - 30)
               THEN
                EXECUTE IMMEDIATE    'ALTER TABLE '
                                    ||  pv_multi_tab(i)
                                    || ' DROP PARTITION '
                                    || lv_part_name
                                    || ' UPDATE INDEXES ';
                    END IF;
            END IF;   
         END LOOP;
         CLOSE c_Part;
EXCEPTION
      WHEN OTHERS
      THEN
         IF c_Part%ISOPEN
         THEN
            CLOSE c_Part;
         END IF;
          DBMS_OUTPUT.put_line
            (   'Exception Raised in Package Procedure SQLCODE-->'
             || SQLCODE
             || 'SQLERRM-->'
             || SQLERRM
         RAISE;
END ;Edited by: Linus on Oct 22, 2010 4:31 AM

Answer 1

PROCEDURE....
IS
       lv_lst_part_err     EXCEPTION;
      PRAGMA EXCEPTION_INIT (lv_lst_part_err, -14758);
BEGIN..
     OPEN c_Part ;
         LOOP
            FETCH c_Part
             INTO lv_long_high_val, lv_part_name;
            EXIT WHEN c_Part%NOTFOUND;
            IF lv_long_high_val IS NOT NULL
            THEN
               -- Fetching the HIGH_VALUE and converting into CLOB type
               lv_high_val := TO_CLOB (lv_long_high_val);
               DBMS_OUTPUT.put_line
                  (   'High Value after converting to CLOB --> lv_high_val -> '
                   || lv_high_val
               BEGIN
                  SELECT TO_TIMESTAMP (TO_CHAR (DBMS_LOB.SUBSTR (lv_high_val,
                                                                 11,
                                                                 11
                                       'RRRR-MM-DD HH.MI.SSXFF AM'
                    INTO lv_tmp_high_value
                    FROM DUAL;
               EXCEPTION
                  WHEN NO_DATA_FOUND
                  THEN
                     lv_tmp_high_value := NULL;
               END;
                 IF lv_tmp_high_value <= (systimestamp - 30)
               THEN
           -------------Start of Newly added section ----------------    
               BEGIN
                EXECUTE IMMEDIATE    'ALTER TABLE '
                                    ||  pv_multi_tab(i)
                                    || ' DROP PARTITION '
                                    || lv_part_name
                                    || ' UPDATE INDEXES ';
              EXCEPTION
                 WHEN lv_lst_part_err  THEN
                  DBMS_OUTPUT.put_line
                    ('Trapped Error: --> Last partition in the range section during drop'
              END;
             -------------End of Newly added section ----------------                  
                    END IF;
            END IF;   
         END LOOP;
         CLOSE c_Part;
EXCEPTION
        WHEN lv_lst_part_err
      THEN
         DBMS_OUTPUT.put_line
            ('Trapped Error: --> Last partition in the range section during drop'
      WHEN OTHERS
      THEN
         IF c_Part%ISOPEN
         THEN
            CLOSE c_Part;
         END IF;
          DBMS_OUTPUT.put_line
            (   'Exception Raised in Package Procedure SQLCODE-->'
             || SQLCODE
             || 'SQLERRM-->'
             || SQLERRM
         RAISE;
END ;