TRUCK_GPS_TRANS表利用oracle11的INTERVAL PATITION自動建立分割槽功能按天分割槽，現在要定時刪除30天之前的分割槽資料，保持表裡只有30天的業務資料，因為分割槽是動態建立，無法獲得分割槽名，所以要用到字典表user_objects ，儲存過程為：

CREATE OR REPLACE PROCEDURE PROC_DROP_PATITION_GPS_TRANS(beforeDays NUMBER  
                                                         ) As
  v_SqlExec VARCHAR2(2000);  
  v_err_num NUMBER;  
  v_err_msg VARCHAR2(100);  


   
  cursor cursor_cpu_info_part is
    select t.SUBOBJECT_NAME partition_name
      from user_objects t
     where object_name = upper('TRUCK_GPS_TRANS')
       and t.OBJECT_TYPE = 'TABLE PARTITION'
       and t.GENERATED ='Y'                                --第一個分割槽也就是建立表時候建立的第一個分割槽是不允許被刪除的，oracle報錯，自動GENERATED 的分割槽是可以刪除的
       and t.CREATED < sysdate - 30;                 -- 尋找30天之前的
  record_cpu_info_oldpart cursor_cpu_info_part%rowType;


BEGIN
  open cursor_cpu_info_part;
  loop
    fetch cursor_cpu_info_part
      into record_cpu_info_oldpart;
    exit when cursor_cpu_info_part%notfound;
    --刪除 TRUCK_GPS_TRANS表分割槽
    v_SqlExec := 'ALTER TABLE TRUCK_GPS_TRANS DROP PARTITION ' ||
                 record_cpu_info_oldpart.partition_name;
    dbms_output.put_line('刪除TRUCK_GPS_TRANS表分割槽=' || v_SqlExec);
    DBMS_Utility.Exec_DDL_Statement(v_SqlExec);
  end loop;
  close cursor_cpu_info_part;


EXCEPTION
  WHEN OTHERS THEN
    v_err_num := SQLCODE;
    v_err_msg := SUBSTR(SQLERRM, 1, 100);
    dbms_output.put_line('MALS_NM_DROP_PARTITION_PROC執行出現異常,錯誤碼=' ||
                         v_err_num || '錯誤描述=' || v_err_msg);
END PROC_DROP_PATITION_GPS_TRANS;