PL/SQLで、変数に格納した値が出力できない

質問

いつもお世話になっております。
現在PL/SQLでコーディングを行っているのですが
テーブルＡ　あ　い　う　
テーブルＢ　い　　　え　
テーブルＣ　う　　　お
となっていて、
Ａの「い」がＢの「い」と一致するものがあれば「え」を出力
Ａの「う」がＣの「う」と一致するものがあれば「お」を出力
します。最終的に
テーブルＤ　あ　え　お
としたいです。
しかしテーブルＡでカーソルに設定したものは出るのですが、
それ以外の変数に入れたものが出力されません。
どうしてなのか、また、どうしたらよいか
お分かりなる方がいらっしゃいましたら
教えていただけないでしょうか？

CREATE OR REPLACE PROCEDURE SYORI1
IS
v_cust_id number(10);
v_unit_sec number(10);
v_price number(10);
v_err_no varchar2(3);
v_err_msg varchar2(30);

/*カーソルの宣言*/
CURSOR c_cur
IS
SELECT answr_time,
disc_time,
calling_num,
area_id,
FROM call_data
WHERE bill = '1'
AND direction = 'O';

BEGIN
FOR c_rec IN c_cur LOOP

/*エラーのリセット*/
v_err_no:= '00';
v_err_msg:= 'エラーなし';

/*事業者テーブルからデータを探す*/
BEGIN
SELECT
cust_id,
unit_sec
INTO
v_cust_id,
v_unit_sec
FROM
m_cust
WHERE
orig_opn_dgt = c_rec.calling_num
AND
voi_dat_cls = c_rec.isdn_mode;

EXCEPTION
WHEN TOO_MANY_ROWS THEN
v_err_no := '91';
v_err_msg := '該当する業者が複数見つかりました';

WHEN NO_DATA_FOUND THEN
null;
END;

/*料金テーブルからデータを探す*/
BEGIN
SELECT
price
INTO
v_price
FROM
m_price
WHERE
cust_id = v_cust_id
AND
area_id = c_rec.area_id;

EXCEPTION
WHEN NO_DATA_FOUND THEN
v_err_no := '12';
v_err_msg := 'ユニット料金取得エラー';
END;
INSERT INTO BILL_DATA(
ans_tm,
disc_tm,
cust_id,
area_id,
voi_dat_cls,
unit_sec,
err_no,
err_msg)
VALUES (
c_rec.answr_time,
c_rec.disc_time,
v_cust_id,(★)
c_rec.area_id,
c_rec.isdn_mode,
v_unit_sec,(★)
v_err_no,(★)
v_err_msg(★));
END LOOP;
END SYORI1;
/

となっていて、実行するとPL/SQLプロシージャが正常に完了しました
と出ます。しかし（★）の項目は値が入っていません。
それ以外の項目は問題なく出力されました。
カーソルの出力では変数は使えないのでしょうか？
初心者なので全く新しい方法は難しいので
上記のコードに何か付け加えて上手くいけばと考えています。
よろしくお願いいたします。
長くなってしまい申し訳ありません。

回答No.2

jamshid6 · ベストアンサー

#1です。

>本当は、いくつかのプロシージャに分けるらしいのですが、そのやり方がわからず、教えてもらえないので無理やり1つのプロシージャでやっている状態です。

おつかれさまです。が、実は逆の意味で書いたのです。
PL/SQLでカーソルを回して１件ずつ処理する必要があるのかなぁと思ったので（例えば以下のINSERT SELECT文を一回実行すれば済むような）

INSERT INTO BILL_DATA(
ans_tm,
disc_tm,
cust_id,
area_id,
voi_dat_cls,
unit_sec,
err_no,
err_msg)
SELECT
d.answr_time,
d.disc_time,
CASE WHEN c.cust_cnt=1 THEN c.cust_id END,
CASE WHEN c.cust_cnt=1 THEN d.area_id END,
d.isdn_mode,
c.unit_sec,
CASE
WHEN c.cust_cnt<>1 THEN '92'
WHEN p.price IS NULL THEN '12' END,
CASE
WHEN NVL(c.cust_cnt,0)<>1 THEN '該当する業者が複数見つかりました''
WHEN p.price IS NULL THEN 'ユニット料金取得エラー' END
FROM call_data d
LEFT OUTER JOIN
(SELECT orig_opn_dgt,voi_dat_cls,MAX(cust_id) cust_id,MAX(unit_sec) unit_sec,COUNT(*) cust_cnt
FROM m_cust
GROUP BY orig_opn_dgt,voi_dat_cls) c ON c.orig_opn_dgt=d.rec_calling_num AND c.voi_dat_cls=d.isdn_mode
LEFT OUTER JOIN m_price p ON p.cust_id=c.cust_id AND p.area_id=d.area_id
WHERE d.bill='1' AND d.direction='O'

・・・まあ、余談です。

お礼

教えていただいたINSERT文、できました！
こんな簡単にできるんですね。
恐らく今回の課題の趣旨が、問題を解くこと以上に
PL/SQLの使い方を理解することにあるみたいです。
せっかく教えていただいたのに使えなくて残念です。
めげずに、プロシージャを複数にするのに
取り組んでみたいと思います。
ありがとうございました。

回答No.1

jamshid6

該当する業者が見つからない場合、v_cust_id, v_unit_secには値が入らないですし、見つからなくても何もしないことになっているので、v_err_no, v_err_msgにも何もセットされません。
変数以外の部分はすべてカーソルなので、検索結果に関係なく値が入るのは当然です。

結局、業者がヒットするものが一件もなかったということでしょう。どういうデータかはわかりませんが、業者を検索するところの条件が本当に正しいかチェックしてみてはどうですか？

＃この処理、本当にPL/SQLでやるんですか？

補足

テストデータを変えて、エラーが出るようになりました。
ありがとうございます。

＞＃この処理、本当にPL/SQLでやるんですか？
やるんです(涙)
本当は、いくつかのプロシージャに分けるらしいのですが、
そのやり方がわからず、教えてもらえないので
無理やり1つのプロシージャでやっている状態です。