oracleのプロシージャの配列内の重複した値の削除の仕方

Question

プロシージャの配列内の重複した値の削除の仕方

いつもお世話になっております。配列について質問です。
プロシージャ内で作成した配列内に重複した値があると仮定します。
そこで配列内にある重複した値を削除したいのですが、削除できないでいます。
また追加で質問ですが、PL/SQLでは変数同士の比較ができないのでしょうか？
ご存じの方がおりましたら、教えていただけないでしょうか。
かれこれ5時間ほど悩んでいます。

	内容
質問1	配列内にある重複した値を削除
質問2	PL/SQLでは変数同士の比較

A,B,Cはカラムは違いますが同じ型です。

CURSOR ASD IS
   SELECT A,B,C FROM D_TABLE;

BEGIN
OPEN ASD ;
	LOOP
		FETCH ASD INTO CUR;
		EXIT WHEN ASD %NOTFOUND;

		FOR i IN 1..3 LOOP
				IF i = 1 THEN
					Cur_ABC:=	CUR.A;
				END IF;

				IF i = 2 THEN
					Cur_ABC:=	CUR.B;
				END IF;

				IF i = 3 THEN
					Cur_ABC:=	CUR.C;
				END IF;

               IF Cur_ABCIS NOT NULL THEN
                    HAIRETU(VNO8):=Cur_ABC;
                    VNO8:=VNO8+1;
               end if ;
		END LOOP;
　　END LOOP;　
CLOSE ASD;

Comments

[Orlofsky]

質問に実際のコードを提示しないでアドバイスを求められても？

配列はどうやって値を設定したのでしょうか？SELECT DISTINCT ... で取得した結果を配列にすれば済むことでは？
比較はIFやCASEが使えます。

[KOZ6.0]

VARRAY は削除できません。NESTED TABLEなら出来ます。
https://docs.oracle.com/cd/E15817_01/appdev.111/e05670/collections.htm#CJAFGFIG

[jack]

修正いたしました。IF,CASEだと値にかかわらず判定が偽になってしまいます。

[jack]

KOZ6.0さん
NESTED TABLEの際の削除方法が調べても、分からないので教えてもらえませんでょうか？

[KOZ6.0]

＞IF,CASEだと値にかかわらず判定が偽になってしまいます。
提示されたコードのどこでその現象が起きるのでしょうか？
たしかに IF で変数と変数を比較して、どちらかが NULL なら、どのような比較をしても偽になりますが・・・
>NESTED TABLEの際の削除方法が調べても、分からないので教えてもらえませんでょうか？
提示したURLにコード例が載ってるんですが・・・

[Orlofsky]

CREATE TABLE D_TABLEがないし、

DECLARE
がないし、
CUR, Cur_ABCの定義もない。
END LOOP;が1つしかない。
CLOSE ASD;
もない。

ＰL/SQLの最後に記述されるはずの
END;
/
もない。

エラーメッセージは表示された内容をそのまま質問に載せてください。

Answer 1

DECLARE
TYPE EXISTS_TYPE IS TABLE OF BOOLEAN INDEX BY D_TABLE.A%TYPE;
EXISTS_TBL  EXISTS_TYPE;
TYPE HAIRETU_TYPE IS TABLE OF D_TABLE.A%TYPE INDEX BY BINARY_INTEGER;
HAIRETU HAIRETU_TYPE;
PROCEDURE MAIN_LOOP(ITEM D_TABLE.A%TYPE)
IS
BEGIN
    IF ITEM IS NOT NULL THEN
        IF NOT EXISTS_TBL.EXISTS(ITEM) THEN
            EXISTS_TBL(ITEM) := TRUE;
            HAIRETU(HAIRETU.COUNT + 1) := ITEM;
        END IF;
    END IF;
END;
BEGIN
    FOR R IN (SELECT A, B, C FROM D_TABLE)
    LOOP
        MAIN_LOOP(R.A);
        MAIN_LOOP(R.B);
        MAIN_LOOP(R.C);
    END LOOP;
    FOR i IN 1..HAIRETU.COUNT
    LOOP
        DBMS_OUTPUT.PUT_LINE(HAIRETU(i));
    END LOOP;
END;

格納してから削除ではなく、存在していなかったら追加という風にしてみました。

Comments

[jack]

回答ありがとうございます。
説明不足ですいません。A,B,Cがnullでないと仮定して、配列にはA→B→Cと挿入していきたいです。
そのため、uinonだとその順番になりませんでした。
EX)
×A→A→A→B→B→B→C→C→C　
〇A→B→C→A→B→C→A→B→C

[KOZ6.0]

重複を除くのでは？

[jack]

はい、のぞきます。カラム名で表記いたしました。

[KOZ6.0]

A→B→B→C なんてことにもなりますね。
重複を除いた時点で順序に意味がなくなります。

[jack]

説明不足ですいません。A→B→B→Cの順番で大丈夫です。同じ行のA→B→C順番に値をとってきて、次の行に行き、最後に重複した値を削除したいです。

[KOZ6.0]

後から削除だと面倒です（要素数が変わるので）。先に重複していないかチェックするようにしたほうが良いと思います。

[jack]

ありがとうございます！！できました！