アルゴリズムの実装方法

質問

OPEN cA;
OPEN cB;

<<outer_loop>>
LOOP
FETCH cA INTO vA;
EXIT outer_loop WHEN cA%NOTFOUND;
<<inner_loop>>
LOOP
FETCH cB INTO vB;
EXIT inner_loop WHEN cB%NOTFOUND;
IF vA.Pa != vB.Pb
THEN --11桁で検索
vB.Pb := SUBSTR( vB.Pb, 1, 11 );
IF vB.b != vA.Pa
THEN
-- ログ出力
ELSE
EXIT inner_loop;
END IF;
ELSE
EXIT inner_loop;
END IF;

END LOOP inner_loop;

処理exec;

END LOOP outer_loop;

テーブルのデータはA,Bとも1件だけ作ってやっているのですが、
A.Pa = B.Pbのデータではうまく行きますが、
A.Pa != B.Pbの場合だと、処理execが行われてはいけないのに、
execが行われてしまいます。

うまく動作させるにはどういうアルゴリズムを組めばよいでしょうか？
どうぞ宜しくお願いいたします。

回答No.1

zarbon · ベストアンサー

OPEN cA;
FETCH cA INTO vA;
WHILE cA%FOUND LOOP
OPEN cB;
FETCH cB INTO vB;
WHILE cB%FOUND LOOP
…
FETCH cB INTO vB;
END LOOP
CLOSE cB;
処理exec;
FETCH cA INTO vA;
END LOOP;
CLOSE cA;

という感じでどうでしょう。

お礼

ご回答ありがとうございます。

がんばってみます。