17,086
社区成员
发帖
与我相关
我的任务
分享
create or replace procedure COLLECT_CHEM
(CompanyCode in nvarchar2)
as
CURSOR NAME1 IS SELECT * from PPMS_CHEM_PRODCLASS where PARENT_PID='P_HGP' ORDER BY SORT_NO;
current_row PPMS_CHEM_PRODCLASS%ROWTYPE;
current_row1 PPMS_CHEM_PRODSUBCLASS%ROWTYPE;
current_row2 PPMS_CHEM_PRODITEM%ROWTYPE;
BEGIN
create table tmp (sname PPMS_CHEM_PRODSUBCLASS.sname%TYPE, itemname PPMS_CHEM_PRODITEM.itemname%TYPE);
for current_row in NAME1 LOOP
DBMS_OUTPUT.PUT_LINE(current_row.cname);
for current_row1 in (select * from PPMS_CHEM_PRODSUBCLASS where PARENT_PID=current_row.cid and sort_no is not null ORDER BY SORT_NO ASC) loop
--DBMS_OUTPUT.put_line(current_row1.sname);
for current_row2 in (select * from PPMS_CHEM_PRODITEM where PARENT_ID=current_row1.sid and compcode=CompanyCode and sort_no is not null ORDER BY SORT_NO ASC) loop
--DBMS_OUTPUT.put_line(' '||current_row2.itemname);
insert into tmp values(current_row1.sname,current_row2.itemname);
end loop;
end looP;
END LOOP;
COMMIT;
END;