存储过程返回数据集

--create by luwenbing
--2014/2/27
--查找用户所在科室下的所有已签收的检品，再根据检品的检项是否分配给用户去筛选
CREATE OR REPLACE PROCEDURE eln_Sample_GetSampleInfo
(
  p_starter IN varchar2(10),
  p_SampleCursor OUT pkg_query.cur_query
)
AS

v_Sql CLOB;

BEGIN

     v_Sql:='';
EXCEPTION
   WHEN OTHERS THEN v_Sql:='';
END;

 --执行SQL并返回
  IF v_Sql IS NOT NULL THEN
    OPEN p_SampleCursor FOR v_Sql;
  END IF;


EXCEPTION
  WHEN OTHERS THEN
    DBMS_OUTPUT.PUT_LINE(SQLCODE || '---' || SQLERRM);
END;