Oracle Procedure 用ref cursor来返回记录集

用在存储过程中：

-- 在Spec中定义
TYPE type_refcursor  IS  REF  CURSOR ;

-- 在Body中写Procedure
PROCEDURE  check_form_field (p_table_name  IN   VARCHAR2 , o_curs OUT type_refcursor)
IS
BEGIN
    IF  p_table_name  IS   NULL
    THEN
       OPEN  o_curs  FOR   '
SELECT  '' NO_TABLE ''  AS field_name,  '' NO_TABLE ''  AS field_type,
        '' 0 ''  AS field_length
  FROM DUAL ' ;
    END   IF ;
EXCEPTION
    WHEN  OTHERS
    THEN
      RAISE;
END  check_form_field;

测试：

DECLARE
   TYPE cursor_type_1  IS  REF  CURSOR ;

   v_curs         cursor_type_1;
   l_rec_num       NUMBER ;
   field_name      VARCHAR2  ( 100 );
   field_type      VARCHAR2  ( 100 );
   field_length    NUMBER ;
BEGIN
   l_rec_num : =   0 ;
   form_define_advance.check_form_field (p_table_name       =>   ' BQEFORM7 ' ,
                                         o_curs             =>  v_curs
                                        );

   LOOP
       FETCH  v_curs
        INTO  field_name, field_type, field_length;

       EXIT   WHEN  v_curs % NOTFOUND;
      l_rec_num : =  l_rec_num  +   1 ;
      DBMS_OUTPUT.put_line (l_rec_num);
      DBMS_OUTPUT.put_line (field_name);
      DBMS_OUTPUT.put_line (field_type);
      DBMS_OUTPUT.put_line (field_length);
    END  LOOP;

    IF  v_curs % ISOPEN
    THEN
       CLOSE  v_curs;
    END   IF ;
EXCEPTION
    WHEN  OTHERS
    THEN
      DBMS_OUTPUT.put_line (SUBSTR (    ' Error  '
                                     ||  TO_CHAR (SQLCODE)
                                     ||   ' :  '
                                     ||  SQLERRM,
                                     1 ,
                                     255
                                   )
                           );
      RAISE;
END ;

转载于:https://www.cnblogs.com/songsh96/archive/2008/01/24/1051245.html