create or replace function fun_create_child_table_month(begin_date date, add_partition_num int4 ) returns integer as $$
declare
 v_des_date date; 
v_year char(4);  --目标分区表年份
v_month char(2); --目标分区表月份
 i_cnt int4; 
 table_rec record;  --分区表父表结果集游标
 date_rec record; --日期后辍结果集游标
 v_partbl_name character varying(64); --父表名称
 v_childtbl_name character varying(64); --子表名称
 v_date_key character varying(32);  --日期后辍

begin
--此函数功能：批量给整库月分区表扩分区，注意以下几点：
--1  分区表子表格式: tablename_yyyymm
--2  此函数仅支持月分区表，不支持列表分区，复合分区，取模分区等模式
--3  此函数所涉及的分区表不支付触发器形式的分区表，此函数适合在日志库中使用
--4  调用函数:  select fun_create_child_table_month('2014-08-01',24); 表示从  2014-08-01  开始扩分区，给当前库所有月分区表扩  24  个分区
--5  由于新增子表的权限模块处理较复杂，  因此此函数仅新增分区表，不涉及权限处理。
--创建临时表并插入数据:  此表存储日期后辍标识

create temporary table if  not exists tbl_month_suffix( id serial,date_key character varying (32));
FOR i_cnt IN 1  .. add_partition_num LOOP
i_cnt := i_cnt-1;
v_des_date := begin_date + i_cnt* interval '1 month';
v_year := split_part(split_part(v_des_date::text,' ',1),'-',1);
v_month :=split_part(split_part(v_des_date::text,' ',1),'-',2);
--RAISE NOTICE 'date: %,%', v_year,v_month;
execute 'insert into tbl_month_suffix (date_key) values (' || v_year || v_month ||  ')';
END LOOP;

--创建分区表
--以下列出可能是月分区表，也有可能是日分区表，筛选条件  <  100，比较粗暴，建议根据自己的环境调整此 SQL
FOR table_rec IN (SELECT
nspname ,
relname ,
            COUNT(*) AS partition_num
          FROM
pg_class c ,
pg_namespace n ,
            pg_inherits i
          WHERE
            c.oid = i.inhparent
            AND c.relnamespace = n.oid
            AND c.relhassubclass
            AND c.relkind =  'r'
GROUP BY 1,2 having count(*)  <  100 ORDER BY partition_num DESC
) LOOP
v_partbl_name := table_rec.relname;
FOR date_rec in  select date_key from tbl_month_suffix order by date_key LOOP
v_date_key := date_rec.date_key;
v_childtbl_name := v_partbl_name ||  '_'  || v_date_key;
   execute 'create table if not exists '  || v_childtbl_name ||  ' ( like '  || v_partbl_name || ' including all ) inherits ('  || v_partbl_name ||  ')'  ;
   execute 'grant select on '  || v_childtbl_name ||  ' to dwetl';
  
 END LOOP;
 END LOOP;
RAISE NOTICE '分区表创建完成!';
return  1;
end;
$$ language 'plpgsql';