欢迎您访问程序员文章站本站旨在为大家提供分享程序员计算机编程知识!
您现在的位置是: 首页

oracle存储过程游标遍历

程序员文章站 2022-06-07 12:35:53
...
create or replace procedure PRO_GETYFBGYZB(jgidInput  in varchar2, yfsbInput  in varchar2 --输入变量
                                    ) as
  cursor cursorParam is select a.ypxh as YPXH,a.YPCD,a.ypsl,b.yfgg ,a.lsje   
    from yf_kcmx a, yf_ypxx b
   where a.jgid = b.jgid
     and a.yfsb = b.yfsb
     and a.ypxh = b.ypxh
     and a.jgid = jgidInput
     and a.yfsb = yfsbInput;
begin
     DBMS_OUTPUT.ENABLE( 1000000);
     for temp in cursorParam
     Loop
     dbms_output.put_line( '药品序号:' || temp.ypxh);
     end Loop ;
end PRO_GETYFBGYZB;