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;
按照你的思路写的,具体需要根据你自己实际需求修改扩充一下
追问哇,非常感谢。能否简单说下
PRM_返回值 := 0;和 PRM_返回值 := -1;是个什么用法。大概用途是什么~谢谢了~
追答PRM_返回值 := 0;和 PRM_返回值 := -1;
这个返回值为了捕捉过程内的异常,‘0’为正常‘-1’为出错