Oracle 저장 프로 세 스 기본 사용
2338 단어 Oacle 저장 프로시저
-
CREATE OR REPLACE PROCEDURE xxxxxxxxxxx_p
(
-- IN ,OUT , Oracle 。
is_ym IN CHAR
)
AS
--
vs_msg VARCHAR2(4000); --
vs_ym_beg CHAR(6); --
vs_ym_end CHAR(6); --
vs_ym_sn_beg CHAR(6); --
vs_ym_sn_end CHAR(6); --
-- ( )
CURSOR cur_1 IS
SELECT area_code,CMCODE,SUM(rmb_amt)/10000 rmb_amt_sn,SUM(usd_amt)/10000 usd_amt_sn
FROM BGD_AREA_CM_M_BASE_T
WHERE ym >= vs_ym_sn_beg
AND ym <= vs_ym_sn_end
GROUP BY area_code,CMCODE;
BEGIN
-- , Oralce SUBSTR TO_CHAR ADD_MONTHS TO_DATE 。
vs_ym_beg := SUBSTR(is_ym,1,6);
vs_ym_end := SUBSTR(is_ym,7,6);
vs_ym_sn_beg := TO_CHAR(ADD_MONTHS(TO_DATE(vs_ym_beg,'yyyymm'), -12),'yyyymm');
vs_ym_sn_end := TO_CHAR(ADD_MONTHS(TO_DATE(vs_ym_end,'yyyymm'), -12),'yyyymm');
-- 。
DELETE FROM xxxxxxxxxxx_T WHERE ym = is_ym;
-- DBMS_OUTPUT put_line , SQL%rowcount
DBMS_OUTPUT.put_line('del ='||SQL%rowcount||' ');
INSERT INTO xxxxxxxxxxx_T(area_code,ym,CMCODE,rmb_amt,usd_amt)
SELECT area_code,is_ym,CMCODE,SUM(rmb_amt)/10000,SUM(usd_amt)/10000
FROM BGD_AREA_CM_M_BASE_T
WHERE ym >= vs_ym_beg
AND ym <= vs_ym_end
GROUP BY area_code,CMCODE;
DBMS_OUTPUT.put_line('ins ='||SQL%rowcount||' ');
-- 。 , for 。
FOR rec IN cur_1 LOOP
UPDATE xxxxxxxxxxx_T
SET rmb_amt_sn = rec.rmb_amt_sn,usd_amt_sn = rec.usd_amt_sn
WHERE area_code = rec.area_code
AND CMCODE = rec.CMCODE
AND ym = is_ym;
END LOOP;
COMMIT;
-- 。OTHERS 。SQLERRM 。
EXCEPTION
WHEN OTHERS THEN
vs_msg := 'ERROR IN xxxxxxxxxxx_p('||is_ym||'):'||SUBSTR(SQLERRM,1,500);
ROLLBACK;
-- 。
INSERT INTO LOG_INFO(proc_name,error_info,op_date)
VALUES('xxxxxxxxxxx_p',vs_msg,SYSDATE);
COMMIT;
RETURN;
END;