求Oracle存储过程替代 start with connect by的方法（100俸上）

Question

例：select *
       from t_task
       where
             project_id=copyPid
       start with task_id=TempcopyTaskid
       connect by prior task_id = parent_task_id;如何用函数或存储过程代替，谢谢！

Answer 1

CREATE OR REPLACE procedure getAllSubDeptId(ParaDeptId varchar2)
IS
    DeptNo1       varchar2(4);     /*存放部门编号*/
    UpperDeptNo1  varchar2(4);     /*存放该部门的上级部门编号*/
    UpperDeptNo2  varchar2(4);     /*存放查询同级上级部门编号*/
    UpperDeptNo3  varchar2(4);     /*存放查询的上级部门编号*/
       level         number;          /*部门所处级别*/
    DSql          varchar2(100);   /*动态SQL字符串*/
    CURSOR getDept IS
       select DepartNO,TopNo
       from dept
       where DepartNo != ParaDeptId;
BEGIN
 --DSql :='create table tempdept(TempdeptNo,TempdeptName,UpperTempdeptNo,
  --UpperTempdeptName,TempdeptLevel)';
 --EXECUTE IMMEDIATE DSql;
   DSql :='TRUNCATE TABLE TempDept';
   dbms_output.put_line(0);
   EXECUTE IMMEDIATE DSql;
   dbms_output.put_line(1);
   insert into TempDept values(ParaDeptId,Null,Null,Null,0);
   dbms_output.put_line(2);
   open getDept;
   fetch getDept into DeptNo1,UpperDeptNo1;
   WHILE ( SQLCODE = 0 )
   LOOP
      level := 1 ;
      UpperDeptNo3 := UpperDeptNo1;
      WHILE ( UpperDeptNo1 is NOT NULL )
      loop
         if (UpperDeptNo1 = ParaDeptId) then
            insert into tempdept           values(DeptNo1,NULL,UpperDeptNo3,NULL,level);
           exit;
        else
           UpperDeptNo2 := UpperDeptNo1;
           select topNo into UpperDeptNo1
           from  dept
           where Departno= UpperDeptNo2;
           if UpperDeptNo2 != UpperDeptNo1 
    then
                level := level+1;
           end if;
         end if;
      END LOOP;
     fetch getDept into DeptNo1,UpperDeptNo1;
   END LOOP;
   close getDept;
END;

Answer 2

insert into Dept values('001','懂事会','0');
insert into Dept values('002','总裁办','001');
insert into Dept values('003','财务部','001');
insert into Dept values('004','市场部','002');
insert into Dept values('005','公关部','002');
insert into Dept values('006','销售部','002');
insert into Dept values('007','分销处','006');
insert into Dept values('008','业务拓展处','004');
insert into Dept values('009','销售科','007');
列入数据为