简单存储过程实例：P_ABASICCSRADIO

ZTE库内表名A_BASIC_CS_RADIO每15分钟一次统计，按小时求和后表名A_BASIC_CS_RADIO_H。

存储过程 P_ABASICCSRADIO 。
CREATE OR REPLACE PROCEDURE P_ABASICCSRADIO(V_BEGIN IN VARCHAR,
V_END IN VARCHAR) AS
V_EXIST INT;
V_TIME_BEGIN DATE := TO_DATE(V_BEGIN, 'YYYY-MM-DD HH24');
V_TIME_END DATE := TO_DATE(V_END, 'YYYY-MM-DD HH24');
MY_CONTINUE EXCEPTION;

TYPE T_VARRAY IS VARRAY(18) OF VARCHAR2(50);
V_VAR T_VARRAY := T_VARRAY('PGZTECELLSUM0', 'PGZTECELLSUM1');
BEGIN
FOR I IN 1 .. V_VAR.COUNT LOOP
SELECT COUNT(1)
INTO V_EXIST
FROM USER_TABLES
WHERE TABLE_NAME = V_VAR(I);
IF V_EXIST > 0 THEN
EXECUTE IMMEDIATE ('DROP TABLE ' || V_VAR(I));
END IF;
END LOOP;

WHILE V_TIME_BEGIN <= V_TIME_END LOOP
--检查记录数量
DBMS_OUTPUT.PUT_LINE(TO_CHAR(V_TIME_BEGIN, 'YYYY-MM-DD HH24'));
SELECT COUNT(1)
INTO V_EXIST
FROM A_BASIC_CS_RADIO
WHERE COLLECTTIME = V_TIME_BEGIN;

IF V_EXIST = 0 THEN
DBMS_OUTPUT.PUT_LINE('没有记录，跳过。');
V_TIME_BEGIN := V_TIME_BEGIN + 1 / 24;
ELSE
DBMS_OUTPUT.PUT_LINE('A_BASIC_CS_RADIO ' || V_EXIST);
--求和插入小时表
BEGIN
--异常处理开始点
INSERT INTO A_BASIC_CS_RADIO_H
SELECT TRUNC(COLLECTTIME, 'HH24') COLLECTTIME,
BSCID,
SITEID,
BTSID,
sum(C100030001) C100030001,
sum(C100030002) C100030002,
sum(C100030003) C100030003,
................................................
sum(C100030245) C100030245
FROM A_BASIC_CS_RADIO
WHERE TRUNC(COLLECTTIME, 'HH24') = V_TIME_BEGIN
GROUP BY TRUNC(COLLECTTIME, 'HH24'), BSCID, SITEID, BTSID;
COMMIT;
EXCEPTION
WHEN DUP_VAL_ON_INDEX THEN
DBMS_OUTPUT.PUT_LINE('A_BASIC_CS_RADIO_H 试图插入重复数据，已经阻止。'); -- ORA-00001 SQLCODE = -1 向唯一索引中插入重复数据
END; --异常处理结束点
DBMS_OUTPUT.PUT_LINE('A_BASIC_CS_RADIO_H 4IN1按小时求和完成');
V_TIME_BEGIN := V_TIME_BEGIN + 1 / 24;
END IF;
END LOOP;

END;