Как сделать обход всех путей графа в pl/sql(желательно без самописных функций)?

DECLARE
TYPE one_tab IS RECORD (lev INTEGER(1) , prav INTEGER(1));
TYPE one_tab2 IS RECORD (lev INTEGER(1) , prav INTEGER(1) , lev1 INTEGER(1) , prav1 INTEGER(1) , shod INTEGER(1));
TYPE one_tabplus IS RECORD (lev INTEGER(1) , prav INTEGER(1), porjadok INTEGER(2));
TYPE schet IS RECORD(nom INTEGER(2) , kol INTEGER(2));
TYPE vershini IS RECORD(ind INTEGER(2) , ind2 INTEGER(2) , shod INTEGER(2));
TYPE vershini_mat IS TABLE OF vershini INDEX BY PLS_INTEGER;
TYPE newlok IS TABLE OF one_tab2 INDEX BY PLS_INTEGER;
TYPE soot IS TABLE OF schet INDEX BY PLS_INTEGER;
TYPE cep_of IS TABLE OF one_tabplus INDEX BY PLS_INTEGER;
TYPE pos IS TABLE OF NUMBER INDEX BY PLS_INTEGER;
TYPE cep IS TABLE OF NUMBER INDEX BY PLS_INTEGER;
TYPE tab_f IS RECORD (pod one_tab , nad one_tab , assoc integer(1));
TYPE tab_is IS TABLE OF tab_f INDEX BY PLS_INTEGER;
TYPE domin IS TABLE OF one_tab INDEX BY PLS_INTEGER;
CURSOR perv IS SELECT pravo , levo FROM domino;
CURSOR vtor IS SELECT pravo , levo FROM domino;
per domin;
vto domin;
vto1 domin;
vto2 domin;
tre domin;
matr tab_is;
nomer soot;
tab_ver vershini_mat;
num INTEGER:=0;
num2 INTEGER:=0;
num3 INTEGER:=0;
num4 INTEGER:=0;
n INTEGER:=0;
m INTEGER:=0;
f INTEGER:=0;
q INTEGER:=0;
k INTEGER:=0;
b INTEGER:=0;
a INTEGER:=0;
c INTEGER:=1;
j INTEGER:=1;
l INTEGER:=0;
s INTEGER:=0;
h INTEGER:=0;
g INTEGER:=0;
u INTEGER:=0;
d INTEGER:=0;
o INTEGER:=0;
br INTEGER:=0;
aw INTEGER:=0;
z INTEGER:=0;
z2 INTEGER:=0;
z1 INTEGER:=1;
zp INTEGER:=0;
bm INTEGER:=0;
cep1 cep;
position pos;
porad cep_of;
lop newlok;
BEGIN


porad(1).porjadok:=0;

FOR i IN perv LOOP
  num:=num+1;
  per(num).lev:=i.levo;
  per(num).prav:=i.pravo;
END LOOP;

vto:=per;
vto1:=per;

WHILE(o!=num) LOOP
o:=o+1;
nomer(o).nom:=o;
nomer(o).kol:=0;

END LOOP;

LOOP
--z1:=z1+1;
exit when g=num;
g:=g+1;
aw:=0;
LOOP
EXIT WHEN aw=num;
aw:=aw+1;
if per(g).lev = per(aw).lev OR per(g).lev = per(aw).prav OR per(g).prav = per(aw).lev OR per(g).prav = per(aw).prav THEN
lop(z1).lev:=per(g).lev;
lop(z1).prav:=per(g).prav;
lop(z1).lev1:=vto(aw).lev;
lop(z1).prav1:=vto(aw).prav;
lop(z1).shod:=1;
z1:=z1+1;
ELSE
lop(z1).lev:=per(g).lev;
lop(z1).prav:=per(g).prav;
lop(z1).lev1:=vto(aw).lev;
lop(z1).prav1:=vto(aw).prav;
lop(z1).shod:=0;
z1:=z1+1;
END IF;
END LOOP;
END LOOP;
FOR i IN 1..z1-1 LOOP
 DBMS_OUTPUT.PUT_LINE(lop(i).lev||' '||lop(i).prav||' '||lop(i).lev1||' '||lop(i).prav1||' '||lop(i).shod);

END LOOP;



















/*
    LOOP -- цикл перебора правого числа
      n:=n+1;
      nomer(n).kol:=1;
      exit when n=0;
          q:=0;
          DBMS_OUTPUT.PUT_LINE('1n='||n);
        LOOP
    --   EXIT WHEN q>num;
                   q:=q+1;
       IF q>num THEN
       DBMS_OUTPUT.PUT_LINE('zashlo');
                o:=0;
            FOR i IN 1..num   LOOP
                 
               DBMS_OUTPUT.PUT_LINE('b='||b);
               nomer(i).kol:=0;
               
                  END LOOP;
       
       
                zl:=vto(1).lev;
                 zp:=vto(1).prav;
        DBMS_OUTPUT.PUT_LINE('a='||a);
               FOR i IN 1..num LOOP
     
                  IF i!=num THEN
                       vto(i).lev := vto(i+1).lev;
                        vto(i).prav := vto(i+1).prav;
                 END IF;
                  END LOOP;
                   vto(num).lev := zl;
       vto(num).prav := zp;
                  FOR i IN 1..num LOOP
               
                  DBMS_OUTPUT.PUT_LINE(per(i).lev||per(i).prav||' '||vto(i).lev||vto(i).prav);
                       
                  END LOOP;
     
     q:=0;
     n:=b-1;
     
   
     d:=0;
     EXIT;
     
     
     
        ELSIF (per(n).lev = vto(q).lev) AND q!=n AND nomer(q).kol!=1 THEN
         
         
            DBMS_OUTPUT.PUT_LINE(per(n).prav||' '||per(n).lev ||' '||' -->  '||vto(q).lev ||' '||vto(q).prav);
      d:=d+1;
       porad(d).lev:=per(n).lev;
        porad(d).prav:=per(n).prav;
         porad(d).porjadok:=d;
         b:=n;
            n:=q;
            a:=q;
            nomer(q).kol:=1;
                      q:=0;      
                CONTINUE;  
               ELSIF (per(n).lev = vto(q).prav) AND q!=n AND nomer(q).kol!=1 THEN
                   DBMS_OUTPUT.PUT_LINE(per(n).prav||' '||per(n).lev ||' -->  '||vto(q).prav ||' '||vto(q).lev);
                  d:=d+1;
       porad(d).lev:=per(n).lev;
        porad(d).prav:=per(n).prav;
         porad(d).porjadok:=d;
         
      nomer(q).kol:=1;
           b:=n;
                 n:=q;
     a:=q;
                    q:=0;  
                   CONTINUE;
                   
                   ELSIF(per(n).prav = vto(q).prav) AND q!=n  AND nomer(q).kol!=1 THEN
                       DBMS_OUTPUT.PUT_LINE(per(n).lev||' '||per(n).prav ||' '||' -->  '||vto(q).prav ||' '||vto(q).lev);
             d:=d+1;
       porad(d).lev:=per(n).lev;
        porad(d).prav:=per(n).prav;
         porad(d).porjadok:=d;
     nomer(q).kol:=1;
      b:=n;
                    n:=q;
                 a:=q;
                    q:=0;  
                     
                       CONTINUE;
               
               
                ELSIF(per(n).prav = vto(q).lev) AND q!=n  AND nomer(q).kol!=1 THEN
                       DBMS_OUTPUT.PUT_LINE(per(n).lev||' '||per(n).prav ||' '||' --> '|| vto(q).lev||' '||vto(q).prav );
                d:=d+1;
       porad(d).lev:=per(n).lev;
        porad(d).prav:=per(n).prav;
         porad(d).porjadok:=d;
                     
       nomer(q).kol:=1;
        b:=n;
                    n:=q;
           
                 a:=q;
                 q:=0;  
                       
                       CONTINUE;
                  END IF;
             
              END LOOP;
         
           exit when n=num  ;
         
        END LOOP;
           
                */
     
















END;