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;