PL/SQL存儲過程-中國電力負荷數據存儲功能-僅供參考

CREATE OR REPLACE PACKAGE BODY ssl AS
  PROCEDURE insert_ssl(s In ssl_array) AS
  v_month varchar2(20);
  v_sql varchar2(5000);
  v_result number;
  v_status number;
  BEGIN
  delete from E_TMP_MP_SSL_CURVE;
  select to_char(s(s.FIRST).data_time,'yyyymm') into v_month from dual;
 v_result:=-10;
    FOR i IN s.FIRST .. s.LAST LOOP
      BEGIN
        INSERT INTO E_TMP_MP_SSL_CURVE(MPED_ID,DATA_TIME,PS_FLAG,P,PA,PB,PC,Q,QA,QB,QC,UA,UB,UC,IA,IB,IC,COS,COSA,COSB,COSC,PAIA,PAIB,PAIC,PAUA,PAUB,PAUC,SAVEDATETIME,P_COEF,Q_COEF,V_COEF,C_COEF,AREA_CODE,FACTOR_COEF)
        VALUES
          (s(i).mped_id, s(i).data_time, s(i).ps_flag, s(i).p ,s(i).pa,s(i). pb,s(i).pc ,s(i).q ,s(i).qa,s(i).qb,s(i).qc,
          s(i).ua,s(i).ub,s(i).uc,s(i).ia,s(i).ib,s(i).ic,
          s(i).cos,s(i).cosa,s(i).cosb,s(i).cosc,s(i).paia,s(i).paib,s(i).paic,s(i).paua,s(i).paub,s(i).pauc
          ,sysdate,1,1,1,1,s(i).AREA_CODE,s(i).FACTOR_COEF);
      END;
    END LOOP;
 v_result:=-20;
    v_sql := 'delete from E_MP_SSL_CURVE_'||v_month||' a where exists (select 1 from E_TMP_MP_SSL_CURVE b where a.MPED_ID = b.MPED_ID and a.DATA_TIME = b.DATA_TIME and a.PS_FLAG = b.PS_FLAG ) ';
    execute immediate v_sql;
 v_result:=-30;
    v_sql := 'insert into E_MP_SSL_CURVE_'||v_month||' (mped_id, data_time, ps_flag, ua, ub, uc, ia, ib, ic, i0, p, pa, pb, pc, q, qa, qb, qc, cos, cosa, cosb, cosc, sp, spa, spb, spc, fn, paia, paib, paic, paua, paub, pauc, temple, avgp, avgq, p_coef, q_coef, v_coef, c_coef, factor_coef, savedatetime, area_code) select * from E_TMP_MP_SSL_CURVE';
    execute immediate v_sql;
commit;

  EXCEPTION
    WHEN OTHERS THEN
      begin
        ROLLBACK;
        v_status := ERROR_LOG(v_result, SQLCODE, SQLERRM, 'insert_ssl');
      end;

  END insert_ssl;
END ssl;