oracle¶¯Ì¬ÓαêÎÊÌâ - Oracle / ¿ª·¢

CREATE OR REPLACE PROCEDURE TEST2
AS
cursor cl is select * from jkzb where xybz='g' order by zbdm;
rec cl%rowtype;
  BEGIN
  open cl;
  loop
  fetch cl into rec;
  p_test(rec.zbdm,rec.zbmc,rec.zbms,rec.ywml_dm,
  rec.jklx_dm,rec.xglx_dm,rec.xgff,rec.zrbm_dm,
  rec.sclb_sql,rec.lyb_sqlxg,rec.gltj_sql,
  rec.fztj_sql,rec.pxtj_sql);
  exit when cl%notfound;
  end loop;
  close cl;
  END;


   
create or replace procedure p_test(v_zbdm in varchar,v_zbmc in varchar,
  v_zbms in varchar,v_ywml_dm in varchar,v_jklx_dm in varchar,
  v_xglx_dm in varchar,v_xgff in varchar,v_zrbm_dm in varchar,
  v_sc in varchar,v_ly in varchar,
  v_tj in varchar,v_fz in varchar,v_px in varchar)
 is
  type cur_type is ref cursor;
  cur cur_type;
  str varchar2(32767);
  v_nsrsbh varchar2(20);
  v_nsr_swjg_dm varchar2(11);
  v_lrr_dm varchar2(11);
  v_lrrq date;
  v_xgr_dm varchar2(11);
  v_xgrq date;
  v_gjzd varchar2(100);
begin
  str:='';
  str:='select '||ltrim(rtrim(v_sc))||'