移植Oracle procedure 到 postgresql

1.登录postgresql

psql -h 192.168.137.131 -p 5432 postgres sa
tusc@6789#JKL

2.创建用户

CREATE USER name thunisoft createdb; --(equal CREATE ROLE name LOGIN createdb);

3.创建数据库
create database test_database owner = thunisoft;

4.查看帮助 psql 下敲help

[thunisoft@localhost ~]$ psql test_database
psql (9.3.6)
Type "help" for help.

test_database=> help
You are using psql, the command-line interface to PostgreSQL.
Type:  \copyright for distribution terms
       \h for help with SQL commands
       \? for help with psql commands
       \g or terminate with semicolon to execute query
       \q to quit
test_database=>

5.与其他数据库的类比

a.支持大多数的标准SQL.
b.支持复杂查询、外键、多版本并发控制、事务....
c.数据类型和函数十分丰富.

6.连接方式可以用Navicate Premium,当然还有自带的psql类似Oracle的sqlplus.

7.将Oracle存储过程迁移到PostgreSql 上.
PostgreSQL 支持多种过程语言,PostgreSQL原生的过程语言是pl/pgsql,还支持PL/Python,PL/perl等.
这里我们演示PL/pgsql（对原始脚本进行了删减和重命名）

Porcedure in Oracle:

 --抽数到结果表
   procedure scheme_test_etl(in_scheme_id varchar2,
                                 in_bbq       varchar2,
                                 table_Prefix varchar2) is
     v_error_rows number;
     v_row_cnt    number;
     v_bbq        varchar2(10);
     v_model      varchar2(30);
     v_table      varchar2(32);
     v_sql        varchar2(3000);

   begin
     v_bbq   := in_bbq;
     v_model := table_Prefix;

     /*临时表数据清理*/
     execute immediate 'truncate table TEMP_EDQ10_DIM_LEVEL_ANAYS';

     /*抽数到临时表*/
     v_sql := 'insert into TEMP_EDQ10_DIM_LEVEL_ANAYS select * from ' ||
              v_model || '_DIM_LEVEL_ANAYS';
     execute immediate v_sql;

     --被检测表信息
     v_table := v_model || '_checkedtb';
     execute immediate 'delete from ' || v_table ||
                       ' t where t.schemeid_ = ' || chr(39) || in_scheme_id ||
                       chr(39) || ' and t.bbq =' || v_bbq;
     for c in (select t.PERIOD_ BBQ_,
                      t.SCHEMEID_,
                      t.HIERARCHY_, --数据级次
                      t2.facttableid_, --表名
                      100 - sum(nvl(DUETABLESCORE_, 0) - nvl(TABLESCORE_, 0)) table_score, --表分数
                      sum(nvl(t.TOTALCNT_, 0)) TOTALCNT_, --此期此户此规则全部数据行数 ==> 规则检查次数
                      sum(nvl(t.ERRORCNT_, 0)) ERRORCNT_ --错误数 ==>错误次数
                 from temp_EDQ10_STATISTICS t, EDQ10_RULES t2
                where t.ruleid_ = t2.id_
                group by t.PERIOD_,
                         t.SCHEMEID_,
                         t.HIERARCHY_,
                         t2.facttableid_) loop

       v_error_rows := get_scheme_error_rows(c.hierarchy_, c.facttableid_); --得到方案错误行数
       v_row_cnt    := get_scheme_total_rows(c.hierarchy_, c.facttableid_); --得到方案总数据行数

       v_sql := 'insert into ' || v_table || '
         (bbq,
          SCHEMEID_,
          hierarchy_,
          checkedtable_score,
          checkedtable_id,
          checkedtable_rows,
          error_rows,
          checked_times,
          error_times)
         select :1,:2,:3,:4,:5,:6,:7,:8,:9 from dual';
       execute immediate v_sql
         using c.BBQ_, c.SCHEMEID_, c.HIERARCHY_, c.table_score, c.facttableid_, v_row_cnt, v_error_rows, c.TOTALCNT_, c.ERRORCNT_;
     end loop;

     commit;

   exception
     when others then
       dbms_output.put_line(sqlcode || '--' || sqlerrm);
       rollback;
   end;

oracle procedure

function in PostgreSQL:

 create or replace function DataClaen_ETL.scheme_test_etl(in_scheme_id in varchar,in_bbq in varchar,table_Prefix in varchar)
 returns void as $func$
     declare
   --抽数到结果表
     v_error_rows numeric;
     v_row_cnt    numeric;
     v_bbq        varchar(10);
     v_model      varchar(30);
     v_table      varchar(32);
     v_sql        text;

         referrer_keys CURSOR IS
         select t.period_ bbq,
                      t.SCHEMEID_,
                      t.hierarchy_, --数据级次
                      100 -
                      sum(t.DUERULESCORE_ - t.RULESCORE_) scheme_score, -- ==>方案得分
                      sum(t.TOTALCNT_) TOTALCNT_, --此期此户此规则全部数据行数 ==> 规则检查次数
                      sum(t.ERRORCNT_) error_times, --错误数 ==>错误次数
                      count(distinct t.ruleid_) scheme_rule_cnt, --方案规则总数
                      sum(case
                            when t.ERRORCNT_ = 0 then
                             0
                            else
                             1
                          end) error_rule_cnt --错误规则数
                 from temp_EDQ10_STATISTICS t
                group by t.period_, t.SCHEMEID_, t.hierarchy_
                order by t.period_, t.SCHEMEID_, t.hierarchy_;

   begin
     v_bbq   := in_bbq;
     v_model := table_Prefix;

     /*临时表数据清理*/
     execute  'truncate table TEMP_EDQ10_DIM_LEVEL_ANAYS';
     /*抽数到临时表*/
     v_sql := 'insert into TEMP_EDQ10_DIM_LEVEL_ANAYS select * from ' ||
              v_model || '_DIM_LEVEL_ANAYS';
     execute  v_sql;

     --模型方案总览表
     v_table := v_model || '_scheme_vi';
     v_sql   := 'delete from ' || v_table || ' t where t.schemeid_ = ' ||
                chr(39) || in_scheme_id || chr(39) || ' and t.PERIOD_ =' ||chr(39)||v_bbq||chr(39);

     execute  v_sql;

     for c in referrer_keys loop
       v_error_rows := dataclaen_etl.get_scheme_error_rows(c.hierarchy_, 'AA'); --得到方案错误行数
       v_row_cnt    := dataclaen_etl.get_scheme_total_rows(c.hierarchy_, 'AA'); --得到方案总数据行数

       execute  '
       insert into ' || v_table || '
         (PERIOD_,
          SCHEMEID_,
          hierarchy_,
          scheme_score,
          row_cnt,
          ERR_ROW_CNT,
          ruler_checked_times,
          error_times,
          scheme_rule_cnt,
          error_rule_cnt)
         values ('||chr(39)||c.bbq||chr(39)||' , '||chr(39)||c.SCHEMEID_||chr(39)||' , '||c.hierarchy_||' , '||c.scheme_score||' ,'|| v_row_cnt||' ,'|| v_error_rows||' , '||c.totalcnt_||' , '||c.error_times||' ,'|| c.scheme_rule_cnt||' , '||c.error_rule_cnt||')';
     end loop;

 $func$ language plpgsql;

PostgreSQL function

实现方式的差异性:
a.plpgsql没有package的概念(在oracle 中是用package来组织procedure和function的),用schema代替(即创建Schema DataClaen_ETL 而不是package DataClaen_ETL)。
b.PostgreSQL 没有Procedure,但是支持函数,与Oracle的function的功能相同，更厉害的是PostgreSQL的function支持 returns void,这个角度看来function与procedure无异。
c.PLpgsql 中游标必须先声明再使用，不支持Oracle For 循环直接定义的方式。
d.PLpgsql 必须指定函数开始和结束的标识符，且需要指定函数的实现语言（如此示例中 language plpgsql）
e.PostgreSQL 中没有dual伪表。
d.plpgsql 不支持自制事务，不能添加commit