create or replace procedure modifyPartition()
as
declare
 nextDate date;
begin
 nextDate :=date_trunc('hour',sysdate);
 alter table TB_MOVIL_CDR add partition ***** values less than (nextDate);
end;
/