oracle10g分区表自动按时间创建删除分区存储过程

CREATE TABLE GPSLOATIONHISTORY(
GPSTERMINAL_ID VARCHAR2(20),
    GPSDATETIME Date,
GPSEVENTID NUMBER(4),
GPSHEIGHT NUMBER(5),
GPSLATITUDE NUMBER(16,6),
GPSLONGITUDE NUMBER(16,6),
GPSMILEAGE NUMBER(16),
GPSOILMASS NUMBER(20),
GPSPLATALARM NUMBER(2),
GPSSPEED NUMBER(5,1),
GPSSPEEDRECORD NUMBER(5,1),
GPSSTATEBIT NUMBER(5),
GPSTOWARDS NUMBER(3),
GPSWARININGSIGN NUMBER(10),
GPSDIRECTION NUMBER(1),
GPSIOINFOID NUMBER(4),
GPSIOINFOTYPE NUMBER(1),
GPSDRIVINGTIME NUMBER(16),
GPSLTINFOID NUMBER(4),
GPSRESULT NUMBER(1),
GPSOSINFOID NUMBER(4),
    GPSOSINFOTYPE NUMBER(1),
CONSTRAINT PK_TAB PRIMARY KEY(GPSTERMINAL_ID,GPSDATETIME)
)

PARTITION BY RANGE(GPSDATETIME)
(  
PARTITION part20150717 VALUES LESS THAN(TO_DATE('2015-07-18 00:00:00','yyyy-mm-dd hh24:mi:ss')) TABLESPACE BDGPS
);