CREATE OR REPLACE PACKAGE BODY PKG_A_TESTPACKAGE IS
PROCEDURE PKG_A_TESTPROCEDURE(PRM_参数 IN VARCHAR2,
PRM_返回值 OUT NUMBER,
PRM_错误信息 OUT VARCHAR2) IS
TYPE CURSOR_TYPE IS REF CURSOR;
CUR_SQL CURSOR_TYPE;
TYPE TYP_REC_INFO IS RECORD(
COLUMN VARCHAR2(1000));
LREC_INFO TYP_REC_INFO;
BEGIN
PRM_返回值 := 0;
-- 循环获取查询SQL
FOR REC_SQL IN (SELECT 查询SQL FROM 存放SQL的表 WHERE 条件) LOOP
BEGIN
OPEN CUR_SQL FOR REC_SQL.查询SQL;
LOOP
-- 获取查询的信息
FETCH CUR_SQL
INTO LREC_INFO; --存放查询结果,这里只针对单列的查询结果
-- 如果没有取到退出
EXIT WHEN CUR_SQL%NOTFOUND;
END LOOP;
CLOSE CUR_SQL;
END;
END LOOP;
EXCEPTION
WHEN OTHERS THEN
PRM_返回值 := -1;
PRM_错误信息 := '执行PKG_A_TESTPROCEDURE出错';
END PKG_A_TESTPROCEDURE;
END PKG_A_TESTPACKAGE;
按照你的思路写的,具体需要根据你自己实际需求修改扩充一下
http://blog.csdn.net/zhoufoxcn/article/details/1776375
希望能帮到你