0

Oracleカーソルで結合を使用しようとしていますが、失敗しています。カーソルの下を修正するために誰か助けてくれませんか。Oracleカーソルで結合を使用することは可能ですか??

CURSOR items_cursor IS
    SELECT a.*, b.* FROM  
    ( SELECT DataId, Name, VersionNum, OwnerId, SubType, LEVEL Lev FROM DTree 
      START WITH ParentId = 2000 CONNECT BY PRIOR DataId= ABS(ParentId)
    )a, 
    (                  
     SELECT o.DataId, o.Permissions OwnerPerm, p.Permissions PublicPerm FROM DTreeAcl o, DTreeAcl p WHERE
     o.DataId=p.Dataid AND o.AclType=1 AND p.AclType=3 AND (o.Permissions != 130 OR p.Permissions != 36995)
    )b        
    WHERE a.Lev >= 1 AND a.Lev <= 3 AND a.DataId = b.DataId;

上記のクエリは、カーソルがなくても正常に機能します。

このカーソルを for ループで使用します。

BEGIN                   
 FOR item IN items_cursor LOOP
 rowCnt := rowCnt + 1;  
  -- Some update and insert stmts             
 IF rowCnt = 1000 THEN
  COMMIT;rowCnt := 0;
 END IF;               
 END LOOP;    

ここに私の完全な手順コードがあります..

    CREATE OR REPLACE PROCEDURE "RMNAUSR"."PERMS_UPDATE_UPTO_LEVEL3" IS
rowCnt INT := 0;
ownerPerm INT := 130;
publicPerm INT := 36995;
permUpdated BOOLEAN:= FALSE;
excludeSubTypes VARCHAR(30) := '201,202,203';

CURSOR items_cursor IS
        (SELECT a.*, b.* FROM  
        ( SELECT DataId, Name, VersionNum, OwnerId, SubType, LEVEL Lev FROM DTree 
          START WITH ParentId = 2000 CONNECT BY PRIOR DataId= ABS(ParentId)
        )a, 
        (                  
         SELECT o.DataId, o.Permissions OwnerPerm, p.Permissions PublicPerm FROM DTreeAcl o, DTreeAcl p WHERE
         o.DataId=p.Dataid AND o.AclType=1 AND p.AclType=3 AND (o.Permissions != 130 OR p.Permissions != 36995)
        )b        
        WHERE a.Lev >= 1 AND a.Lev <= 3 AND a.DataId = b.DataId);

BEGIN                   
        FOR item IN items_cursor LOOP
             rowCnt := rowCnt + 1;  
             permUpdated := FALSE;
                -- some insert and update stmts here
             IF rowCnt = 1000 THEN
                     COMMIT;
                     rowCnt := 0;
             END IF;               
      END LOOP;

      COMMIT;
      EXCEPTION WHEN OTHERS THEN raise_application_error(-20001,SQLERRM);
END PERMS_UPDATE_UPTO_LEVEL3;

よろしくお願いします!アルン

4

1 に答える 1