PLSQL 过程之间的调用 （实现递归删除目录功能）

 --=======================删除
  PROCEDURE DEL_POWER(P_ID INTEGER) IS
  BEGIN
    UPDATE EX_SYS_POWER A SET A.YXBZ = 0 WHERE A.ID = P_ID;
    DEL_CHILDREN_POWER(P_ID);
    --处理异常
  EXCEPTION
    WHEN OTHERS THEN
      ROLLBACK;
  END;

  --====================删除子节点
  PROCEDURE DEL_CHILDREN_POWER(FUNCTION_ID INTEGER) IS
    IDCOUNT    INTEGER;
    ITEM_COUNT INTEGER;
  BEGIN
    FOR ITEM IN (SELECT ID FROM EX_SYS_POWER WHERE PARENT_ID = FUNCTION_ID) LOOP 
      SELECT COUNT(*)
        INTO IDCOUNT
        FROM EX_SYS_POWER
       WHERE PARENT_ID = ITEM.ID;
      IF IDCOUNT > 0 THEN
        DEL_POWER(ITEM.ID);
      END IF;
      IF IDCOUNT = 0 THEN
        UPDATE EX_SYS_POWER A SET A.YXBZ = 0 WHERE ID = ITEM.ID;
        ITEM_COUNT := ITEM_COUNT + 1;
      END IF;
    END LOOP;
    COMMIT;
  END;