我是在PB里调用的。 调用形式如下: DECLARE pro_pjcrk PROCEDURE FOR QMS.PRO_SC_JJ_PJCRK ; execute pro_pjcrk; if sqlca.sqlcode = 0 then messagebox("系统提示","OK") end if
可以使用commit;我在别的过程中都使用过没有问题的。
create or replace procedure pro_sc_jj_pjcrk is begin insert into temp_sc_jj_pjcrk select d.xh,a.njh,f.xb,b.jcs syjcs,a.jcs byjcs,c.ths,a.lx,e.sl,substr(e.rq,9,2) rq,to_char(to_date(e.rq,'yyyy/mm/dd'),'DAY') xq from v_sc_jj_pjkc_by a,v_sc_jj_pjkc_sy b,v_sc_jj_pjkc_hztk c, sc_jj_pjxh d,v_sc_jj_pjkc_crk e,sc_jj_pjb f where a.njh = b.njh(+) and a.njh = c.njh (+) and a.njh = d.njh (+) and a.njh = e.njh (+) and a.lx = e.lx (+) and a.njh = f.njh (+); end; /begin exec pro_sc_jj_pjcrk; end; /
调用形式如下:
DECLARE pro_pjcrk PROCEDURE FOR QMS.PRO_SC_JJ_PJCRK ;
execute pro_pjcrk;
if sqlca.sqlcode = 0 then
messagebox("系统提示","OK")
end if
is
begin
insert into temp_sc_jj_pjcrk
select d.xh,a.njh,f.xb,b.jcs syjcs,a.jcs byjcs,c.ths,a.lx,e.sl,substr(e.rq,9,2) rq,to_char(to_date(e.rq,'yyyy/mm/dd'),'DAY') xq from v_sc_jj_pjkc_by a,v_sc_jj_pjkc_sy b,v_sc_jj_pjkc_hztk c,
sc_jj_pjxh d,v_sc_jj_pjkc_crk e,sc_jj_pjb f where a.njh = b.njh(+) and a.njh = c.njh (+) and a.njh = d.njh (+)
and a.njh = e.njh (+) and a.lx = e.lx (+) and a.njh = f.njh (+);
end;
/begin
exec pro_sc_jj_pjcrk;
end;
/