oracle调用子存储过程+游标循环实例

CREATE OR REPLACE PROCEDURE "PRO_INIT_SORT" AS
CURSOR cur_department_all IS select * from tbl_department;
VAR_COUNT NUMBER ;
VAR_OUT_COUNT NUMBER := 0;
BEGIN
FOR department_row IN cur_department_all LOOP
SELECT COUNT(1) INTO VAR_COUNT FROM tbl_department WHERE unit_id = department_row.unit_id AND department_supercode = department_row.department_code ;
--上述查询的是有所有的子节点的部门
IF VAR_COUNT != 0 THEN
--dbms_output.put_line(department_row.unit_id||'-'||department_row.department_code||'-'||var_count);
PRO_INIT_DEPARTMENT_SORT(department_row.unit_id , department_row.department_id) ;
END IF ;
VAR_OUT_COUNT := VAR_OUT_COUNT + 1 ;
END LOOP ;
DBMS_OUTPUT.PUT_LINE('总数：'||VAR_OUT_COUNT);
END PRO_INIT_SORT ;

CREATE OR REPLACE PROCEDURE "PRO_INIT_DEPARTMENT_SORT"
(
UNIT_ID IN NUMBER ,
SUPER_CODE IN NUMBER
)
-- 初始化TBL_DEPARTMENT表的DEPARTMENT_SORT字段 以同DEPARTMENT_SUPERCODE方式查询使用rownum值更新DEPARTMENT_SORT字段
AS
-- CURSOR cur_department IS SELECT * FROM tbl_department where unit_id = TARGET_UNIT_ID and department_supercode = TARGET_SUPERCODE ORDER BY department_sort ASC;
CURSOR cur_department IS SELECT rownum rn , d.* FROM tbl_department d where unit_id = UNIT_ID and department_supercode = SUPER_CODE;
BEGIN
FOR department_row IN cur_department LOOP
update tbl_department set department_sort = department_row.rn where department_id = department_row.department_id ;
-- NULL ;
END LOOP ;
--  NULL;
END PRO_INIT_DEPARTMENT_SORT;

CREATE OR REPLACE PROCEDURE "INT_SORT_N" AS
P_OUT  NUMBER;
P_COUNT NUMBER:=0;
CURSOR  CUR_DEPARTMENT IS SELECT T.UNIT_ID FROM TBL_DEPARTMENT T GROUP BY T.UNIT_ID ORDER BY T.UNIT_ID;
BEGIN
FOR  DEP_ROW  IN CUR_DEPARTMENT  LOOP
SELECT COUNT(1) INTO P_OUT FROM TBL_DEPARTMENT T WHERE T.UNIT_ID = DEP_ROW.UNIT_ID AND T.DEPARTMENT_SUPERCODE = 0;
DBMS_OUTPUT.put_line('UID--'||DEP_ROW.UNIT_ID||'--部门--'||P_OUT);
INT_DEPARMENT_SORT(DEP_ROW.UNIT_ID);
P_COUNT := P_COUNT + 1;
END LOOP;
DBMS_OUTPUT.put_line('总数:'||P_COUNT);
END;

create or replace procedure INT_DEPARMENT_SORT(UNIT_ID2 IN NUMBER) AS
CURSOR DEPARTMENT_ALL IS SELECT rownum rn,T.* FROM TBL_DEPARTMENT T WHERE T.UNIT_ID = UNIT_ID2 AND T.DEPARTMENT_SUPERCODE = 0 ORDER BY T.DEPARTMENT_ID;
begin
FOR DEP_ROW IN DEPARTMENT_ALL LOOP
--dbms_output.put_line('---'||UNIT_ID2);
UPDATE TBL_DEPARTMENT T SET T.DEPARTMENT_SORT = DEP_ROW.RN WHERE T.DEPARTMENT_ID = DEP_ROW.DEPARTMENT_ID;
END LOOP;
end INT_DEPARMENT_SORT;