Oracle自定義函數的例子

一、單值函數：

/* Formatted on 2012/05/11 18:02 (Formatter Plus v4.8.8) */
CREATE OR REPLACE FUNCTION demo.f_basic_get_orgid
   RETURN NUMBER
IS
   i_return      NUMBER (11);
   i_get_id      NUMBER (11);
   i_line        NUMBER (11);

   CURSOR cur_org
   IS
      SELECT   organization_id, ROWNUM AS rn
          FROM t_basic_organization
      ORDER BY organization_id;

   cur_org_val   cur_org%ROWTYPE;
BEGIN
   i_return := 0;

   OPEN cur_org;

   LOOP
      FETCH cur_org
       INTO cur_org_val;

      EXIT WHEN cur_org%NOTFOUND;
      i_get_id := cur_org_val.organization_id + 1;
      i_line := cur_org_val.rn;

      IF i_get_id != i_line
      THEN
         i_return := i_line - 1;
         EXIT;
      END IF;
   END LOOP;

   CLOSE cur_org;

   IF i_return = 0
   THEN
      SELECT COUNT (1)
        INTO i_return
        FROM t_basic_organization;
   END IF;

   RETURN i_return;
EXCEPTION
   WHEN NO_DATA_FOUND
   THEN
      NULL;
   WHEN OTHERS
   THEN
      RAISE;
END f_basic_get_orgid;

 

功能：獲取t_basic_organization表主鍵的下一個值，用於向該表中插入新值。

二、記錄集函數：

/* Formatted on 2012/05/11 18:03 (Formatter Plus v4.8.8) */
CREATE OR REPLACE FUNCTION demo.f_get_childorg (parent_org NUMBER)
   RETURN childorg_tb PIPELINED
IS
   obj_childorg   childorg_ty;
   sub_childorg   childorg_ty;
   org_level      NUMBER;
BEGIN
   org_level := 0;

   FOR myrow IN (SELECT *
                   FROM t_basic_organization
                  WHERE parent_organization = parent_org)
   LOOP
      obj_childorg :=
         childorg_ty (myrow.organization_id,
                      myrow.organization_name,
                      myrow.parent_organization,
                      org_level
                     );
      PIPE ROW (obj_childorg);

      FOR subrow IN
         (SELECT *
            FROM TABLE (f_get_childorg (obj_childorg.organization_id)))
      LOOP
         sub_childorg :=
            childorg_ty (subrow.organization_id,
                         subrow.organization_name,
                         subrow.parent_organization,
                         subrow.organization_level + 1
                        );
         PIPE ROW (sub_childorg);
      END LOOP;
   END LOOP;

   RETURN;
EXCEPTION
   WHEN NO_DATA_FOUND
   THEN
      NULL;
   WHEN OTHERS
   THEN
      RAISE;
END f_get_childorg;

功能：通過遞歸調用獲取所有子行信息。

 

PS： childorg_ty 和 childorg_tb 的定義：

/* Formatted on 2012/05/14 12:02 (Formatter Plus v4.8.8) */
CREATE OR REPLACE TYPE demo.childorg_ty AS OBJECT (
   organization_id       NUMBER,
   organization_name     VARCHAR2 (250),
   parent_organization   NUMBER,
   organization_level    NUMBER
)

 

CREATE OR REPLACE TYPE DEMO.CHILDORG_TB AS TABLE OF CHILDORG_TY;