一个存储过程的例子

原创 2005年03月03日 12:36:00
create or replace procedure p_pre_saveimp(v_oprcd in varchar2,returnFlag out varchar2) is
v_jrfflag varchar2(2);--记录标识
v_jrfno varchar2(12);--享受编号
v_gntoprcd varchar2(10);
v_gntdept varchar2(4);
v_gntoprdt varchar2(10);
begin
  declare cursor cur_jlsrelief_tmp is
  select jrfno,jrfflag,gntoprcd,gntdept,to_char(gntoprdt,'yyyy-mm-dd') gntoprdt  from jlsrelief_temp;
  begin
  open cur_jlsrelief_tmp;
  loop
  fetch cur_jlsrelief_tmp into v_jrfno,v_jrfflag,v_gntoprcd,v_gntdept,v_gntoprdt;
  exit when cur_jlsrelief_tmp%notfound;
  begin
    if v_jrfflag = '4' then
    begin
      update jlsrelief_t set jrfstatus ='2' where jrfno = v_jrfno;
      update jlsgrant_t set gntnote =v_oprcd||':'||sysdate||'发放取消' where gntno = v_jrfno;
    end;
    end if;
    if v_jrfflag = '1' then
    begin
      update jlsrelief_t set jrfstatus = '3' where jrfno = v_jrfno;
      update jlsgrant_t set gntcheckin ='1',gntdept = v_gntdept,gntoprcd = v_oprcd,gntleavmn =0,gntnote =v_gntoprcd||':'||v_gntoprdt where gntno = v_jrfno;
    end;
    end if;
    if v_jrfflag = '2' then
    begin
      update jlsrelief_t set jrfstatus = '2' where jrfno = v_jrfno;
      update jlsgrant_t set gntnote ='重新导出'||v_oprcd||':'||sysdate where gntno = v_jrfno;
    end;
    end if;
    returnFlag := '1';
  end;
  end loop;
  commit;
  close cur_jlsrelief_tmp;
  end;
end p_pre_saveimp;
版权声明:本文为博主原创文章,未经博主允许不得转载。

相关文章推荐

存储过程的一个小例子

sql关于游标和游标、存储过程结合的一个例子

--关于游标的用法 --定义 Transact-SQL 服务器游标的特性,例如游标的滚动行为和用于生成游标对其进行操作的结果集的查询。 --DECLARE CURSOR 接受基于 SQL-92 标...

一个存储过程的例子

  • 2011-11-18 15:57
  • 284KB
  • 下载

通过一个实际的例子学习Oracle存储过程

--创建存储过程 CREATE OR REPLACE PROCEDURE xxxxxxxxxxx_p ( --参数IN表示输入参数,OUT表示输入参数,类型可以使用任意Oracle中的合法类型。 i...

sql关于游标和游标、存储过程结合的一个例子

关于游标的用法 --定义 Transact-SQL 服务器游标的特性,例如游标的滚动行为和用于生成游标对其进行操作的结果集的查询。 --DECLARE CURSOR 接受基于 SQL-92 标准的...

mysql 一个带游标的存储过程例子

只能在存储过程内部使用游标文档的原话是MySQL supports cursors inside stored programs.call test_cur; – 调用存储过程 – 该存储过程的作...

通过一个实际的例子学习Oracle存储过程

--创建存储过程CREATE OR REPLACE PROCEDURE xxxxxxxxxxx_p(--参数IN表示输入参数,OUT表示输入参数,类型可以使用任意Oracle中的合法类型。 is_ym...

mysql游标存储过程例子

oracle存储过程例子

  • 2015-09-23 11:21
  • 17KB
  • 下载
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:深度学习:神经网络中的前向传播和反向传播算法推导
举报原因:
原因补充:

(最多只允许输入30个字)