Oracle10g下简单存储过程编写

经过个把小时的折腾，写了一个简单的存储过程。一直都是改别人的存储过程，没有自己
写过，这样很不好。写了一个简单功能的：
有判断选择，循环遍历游标。

存储过程注意点：
1.注意其基本的语法。
2.关注游标，在10g中定义游标一般都使用sys_refcursor
而cursor只是用来在申明部分进行初始化，而sys_refcursor可以直接
使用。
3.%found %notfound %isopen等游标属性

/**
*@date:2009-06-16
*
*/
CREATE OR REPLACE PROCEDURE SP_TEST(STRFLAG      IN STRING,
                                    CUR_FCONSIGN out sys_refcursor,
                                    CUR_FEE      out sys_refcursor,
                                    INTCOUNT     OUT INTEGER) AS

  fcsgConsignId varchar2(200); --委托表ID
  fcsgConsignNo varchar2(200); --委托表NO
  i             integer;
 
  --定义中间游标
   cursor CUR_TEMP is
    SELECT fc.fcsg_consign_id, fc.fcsg_consign_no
      FROM FCONSIGN fc
     where rownum <= 5;
  
BEGIN

  --如果传的标志为1，则返回CUR_FCONSIGN
  IF STRFLAG = 0 THEN
    SELECT COUNT(*) INTO INTCOUNT FROM FCONSIGN;
    DBMS_OUTPUT.PUT_LINE(INTCOUNT);
    --返回fconsign表的所有数据
    open CUR_FCONSIGN for
      select fc.fcsg_consign_id, fc.fcsg_consign_no
        from fconsign fc
       where rownum <= 100;
 
  ELSIF STRFLAG = 1 then
    select count(*) into INTCOUNT from fexpense;
    dbms_output.put_line(INTCOUNT);
  --返回费用的数据fexpenses
    open CUR_FEE for
      select fe.fexp_expense_id, fe.fexp_bill_no
        from fexpense fe
       where rownum <= 5;
   END IF;


  --打开游标
  open CUR_TEMP;
 --把游标的某行值赋值给变量
  fetch CUR_TEMP
    into fcsgConsignId, fcsgConsignNo;
  dbms_output.put_line('first' || fcsgConsignId || fcsgConsignNo);
  dbms_output.put_line('------------------------');

  --打印委托表中的前一百条数据
  --遍历游标
  i := 1;
  while CUR_TEMP%found loop
    fetch CUR_TEMP
      into fcsgConsignId, fcsgConsignNo;
    dbms_output.put_line(i);
    dbms_output.put_line(fcsgConsignId || fcsgConsignNo);
    i := i + 1;
  end loop;

--关闭游标
  if CUR_TEMP%isopen then
    close CUR_TEMP;
  end if;

END SP_TEST;

凡事由简入难~~~~基础很重要，要不停的补充。