循环调用MAIN

--单位转移录入
declare
oi_errcode integer;
oc_errtext varchar2(100);
begin
for p in (select * from ssunitinfo where ocid = '104' and hjstatus > 10 and hjstatus < 31 and snmend > 0) loop
PKG_CPDWZY_PROCESS.p_main('014010',p.sncode,1,'<ywsj><zrocid>121</zrocid><zrorgcode>100</zrorgcode></ywsj>', oi_errcode, oc_errtext);
end loop;
end;