--删除测试 PKG
--DROP PACKAGE SL_PKG_TEST;

--PKG头文件
CREATE OR REPLACE PACKAGE SL_PKG_TEST IS
  --*******************************************************************************************
  --功能说明:  测试用PKG
  --参数说明: 输入
  -- P_APPLY_NO        VARCHAR2      XXX 号
  --输出
  -- p_o_flag          OUT     VARCHAR2     执行结果：Y-成功；N-失败；
  -- p_o_msg           OUT     VARCHAR2     结果描述
  --调用函数:
  --修改记录： create by zyl 2013.9.10
  --
  --*******************************************************************************************
  PROCEDURE DEMO_1(P_APPLY_NO VARCHAR2,
                   P_O_FLAG   OUT VARCHAR2,
                   P_O_MESG   OUT VARCHAR2);
END SL_PKG_TEST;

--PKG 包体
CREATE OR REPLACE PACKAGE BODY SL_PKG_TEST IS
  --*******************************************************************************************
  --功能说明:  测试用PKG
  --参数说明: 输入
  -- P_APPLY_NO        VARCHAR2      XXX 号
  --输出
  -- p_o_flag          OUT     VARCHAR2     执行结果：Y-成功；N-失败；
  -- p_o_msg           OUT     VARCHAR2     结果描述
  --调用函数:
  --修改记录： create by zyl 2013.9.10
  --
  --*******************************************************************************************
  PROCEDURE DEMO_1(P_APPLY_NO VARCHAR2,
                   P_O_FLAG   OUT VARCHAR2,
                   P_O_MESG   OUT VARCHAR2) IS
    --网点代码              
    V_DEPT_NO VARCHAR2(20);
  BEGIN
    P_O_FLAG := 'Y';
    P_O_MESG := '成功';
  
  
    --异常处理  
  EXCEPTION
    WHEN OTHERS THEN
      P_O_FLAG := 'N';
      P_O_MESG := '失败' || SQLCODE || SUBSTR(SQLERRM, 1, 150);
  END;
END SL_PKG_TEST;

?