0

以下の手順を実行しようとしていますが、BULKCOLLECT と FORALL を使用してコードをリファクタリングするように指示されています。それは単なる警告ですか、それとも私の手順では以下のように使用しないでください。もしそうなら、配列を繰り返し処理していて、各値をテーブルに更新する必要があるため、コードをどのように変更する必要がありますか。

CREATE OR REPLACE PROCEDURE SCHEMA.PR_VALIDATE 
(
FILEARRAY IN STRARRAY,
DUPARRAY OUT STRARRAY,
PASSARRAY OUT STRARRAY,
FAILARRAY OUT STRARRAY,
MISSARRAY OUT STRARRAY
)

IS
dupCount NUMBER;
staCode    VARCHAR2 (10);
fileName VARCHAR2 (50);
dupfileName VARCHAR2(50);
fileId NUMBER;
ID VARCHAR2(20);
BEGIN
for i in 1 .. FILEARRAY.count
   loop
     fileName := FILEARRAY(i);


     SELECT COUNT (T.FILEID), T.FILEID,T.STATUS,T.ID INTO dupCount,fileId,staCode,ID FROM TB_TABLE_NAME T, TB_TABLE_NAME S
     WHERE T.FILEID=S.FILEID
     AND T.STATUS=S.STATUS
     AND T.FILENAME = fileName AND T.STATUS IN ('PASS', 'FAIL)
     GROUP BY T.FILEID,T.STATUS,T.ID;


     IF dupCount>1
     THEN 
     SELECT FILENAME INTO dupfileName FROM TB_TABLE_1
     WHERE STATUS IN ('PASS','FAIL') AND FILEID=fileId
     AND FILENAME != fileName;
     DBMS_OUTPUT.PUT_LINE(dupfileName);

     UPDATE TB_TABLE_1 SET STATUS='DUP' WHERE FILENAME=dupfileName;
     DUPARRAY(DUPARRAY.LAST +1 ) :=dupfileName;
     DBMS_OUTPUT.PUT_LINE(dupfileName);
     END IF;

     IF staCode = 'FAIL'
     THEN
     FAILARRAY(FAILARRAY.LAST+1) :=fileName;
     ELSIF staCode = 'PASS'
     THEN
     PASSARRAY(PASSARRAY.LAST+1) :=fileName;
     END IF;

   end loop;


EXCEPTION
    WHEN NO_DATA_FOUND THEN
    staCode :=NULL;
    MISSARRAY(MISSARRAY.LAST +1 ) :=fileName;
    WHEN OTHERS THEN
        PR_ERRORS('PR_VALIDATE', SQLERRM);
       ROLLBACK;

END;

/

4

1 に答える 1

2

コメントで述べたように、FORALL はビジネス ロジックがここに組み込まれているため、文脈から外れていますが、ここでも FOR ループを使用して BULK COLLECT を試して反復することができます。ただし、データ量はそれほど大きくないため、行ごとのアプローチを使用できます。以下のスニペットが役立つことを願っています。また、コンパイル時にエラーが発生する単一引用符がいくつかありませんでした。

CREATE OR REPLACE PROCEDURE SCHEMA.PR_VALIDATE(
    FILEARRAY IN STRARRAY,
    DUPARRAY OUT STRARRAY,
    PASSARRAY OUT STRARRAY,
    FAILARRAY OUT STRARRAY,
    MISSARRAY OUT STRARRAY )
IS
  dupCount    NUMBER;
  staCode     VARCHAR2 (10);
  fileName    VARCHAR2 (50);
  dupfileName VARCHAR2(50);
  fileId      NUMBER;
  ID          VARCHAR2(20);
BEGIN
  FOR i IN 1 .. FILEARRAY.count
  LOOP
    fileName := FILEARRAY(i);
    SELECT COUNT (T.FILEID),
      T.FILEID,
      T.STATUS,
      T.ID
    INTO dupCount,
      fileId,
      staCode,
      ID
    FROM TB_TABLE_NAME T,
      TB_TABLE_NAME S
    WHERE T.FILEID =S.FILEID
    AND T.STATUS   =S.STATUS
    AND T.FILENAME = fileName
    AND T.STATUS  IN ('PASS', 'FAIL')
    GROUP BY T.FILEID,
      T.STATUS,
      T.ID;
    IF dupCount>1 THEN
      SELECT FILENAME
      INTO dupfileName
      FROM TB_TABLE_1
      WHERE STATUS IN ('PASS','FAIL')
      AND FILEID    =fileId
      AND FILENAME != fileName;
      DBMS_OUTPUT.PUT_LINE(dupfileName);

      UPDATE TB_TABLE_1 
      SET STATUS='DUP' 
      WHERE FILENAME=dupfileName;

      DUPARRAY(DUPARRAY.LAST +1 ) :=dupfileName;
      DBMS_OUTPUT.PUT_LINE(dupfileName);
    END IF;

    IF staCode                     = 'FAIL' THEN
      FAILARRAY(FAILARRAY.LAST+1) :=fileName;
    ELSIF staCode                  = 'PASS' THEN
      PASSARRAY(PASSARRAY.LAST+1) :=fileName;
    END IF;
  END LOOP;
EXCEPTION
WHEN NO_DATA_FOUND THEN
  staCode                       :=NULL;
  MISSARRAY(MISSARRAY.LAST +1 ) :=fileName;
WHEN OTHERS THEN
  PR_ERRORS('PR_VALIDATE', SQLERRM);
  ROLLBACK;
END;
于 2016-06-07T04:34:59.683 に答える