oracle函数和存储过程示例

Function:

 --为了使产生的uuid符合rfc 4122的标准(http://tools.ietf.org/html/rfc4122),例如:a8f662b8-6e7a-13fe-e040-970a437c6bd7
 --函数
 CREATE OR REPLACE
 FUNCTION get_uuid
 RETURN VARCHAR
 IS
 guid VARCHAR (50);
 BEGIN
 guid := lower(RAWTOHEX(sys_guid()));
 RETURN
 substr(guid,1,8)||'-'||substr(guid,9,4)||'-'||substr(guid,13,4)||'-'||substr(guid,17,4)||'-'||substr(guid,21,12);
 END get_uuid;

Procedure:

--功能:结转.比如当前日期为8月31日,8月是没有数据的,需将七月份的数据拷贝一份作为8月份的

 1 create or replace procedure carryover
 (syear IN OUT varchar2,smonth  IN OUT varchar2)                 --注意: 参数是需要结转的年月,而非结转到的年月
 is
      cursor t_rows(ssyear varchar2,ssmonth varchar2) is select t.* from FYS_SCH_LVYOU2 t where t.remarks=ssmonth and t.year=ssyear;
      tmonth varchar2(10);
      t_row t_rows%rowtype;
 begin
    dbms_output.enable(100000);
    if syear is null and smonth is null then                     --没有参数时,则默认上个月的年月
      tmonth:=to_char(add_months(sysdate,-1),'yyyy-mm');
      syear:=substr(tmonth,1,4);
      smonth:=substr(tmonth,6,2);
    end if;

    --dbms_output.put_line('from:'||syear||'/'||smonth);            --打印   需要结转的年月

    for t_row in t_rows(syear,smonth)
       loop
          tmonth:=to_char(add_months(to_date(t_row.year||'-'||t_row.remarks,'yyyy-mm'),1),'yyyy-mm');--结转到的年月
          --dbms_output.put_line('  to:'||tmonth);                  --打印   结转到的年月
          insert into FYS_SCH_LVYOU2 values(   get_uuid(),        --UUID,自定义函数,用于格式化sys_guid()
                                           substr(tmonth,0,4),    --year
                                           t_row.classification,
                                           t_row.num,
                                           substr(tmonth,6,2),    --month
                                           t_row.remarks1,
                                           t_row.remarks2,
                                           t_row.remarks3,
                                           t_row.remarks4,
                                           t_row.remarks5,
                                           t_row.remarks6,
                                           t_row.remarks7,
                                           t_row.remarks8,
                                           t_row.remarks9,
                                           t_row.remarks10
                                           );
       end loop;

   if syear='' then                                           --如果是2016年之前的话,需要结转上一年的
     syear:=to_char(to_number(syear)-1);
     carryover(syear,smonth);                      --改变参数,重新调用此存储过程
   end if;

   commit;
   exception
      when others then rollback;
 end;