test

create or replace procedure pc_clear_areaHistory_data AUTHID DEFINER
is
       i number(10);
       tableName varchar2(30);
       v_tableName varchar2(30);
begin
       delete from t_area_sum;   --清空当前读数旧数据
       i:=1;
       tableName:='T_AREA_HISTORY_000100';
       while i < 32 LOOP 
             v_tableName:=tableName||i;
             begin
             if i<10 then
                v_tableName:='';
                v_tableName:=tableName||'0'||i;
             end if;
             execute immediate 'delete from '||v_tableName;
             i:= i + 1;
             end; 
       end LOOP;
       commit;
end;