どのようにパラメータとしてカーソルのテーブル名を渡すことができますか？

Question

カーソルを使って外部テーブルを照会するプロシージャがあります。 selectにテーブル名を渡すにはどうすればよいですか？

procedure ImpInsData(fileN varchar2,Tname VARCHAR2) 
as 
begin 
    IXRBI.EXternalChange (fileN,Tname);  
    declare 
     cursor cur_extenal is select * from Tname WHERE A IN ('1','2'); 
    begin 
     FOR rec IN cur_extenal LOOP 
     vId :=sys_guid(); 
     vRowStatus:=rec.A; 
     vTag:=rec.C; 
     end loop 
    end; 
end; 

Tnameは、テーブル名を指定するパラメータです。

どのように書き換えることができますか？

Answer 1

procedure ImpInsData(fileN varchar2) 
as 
CURSOR cur_extenal IS 
(
select * from Tname WHERE A IN ('1','2') 
); 
begin 
open cur_extenal 

FETCH cur_extenal into rec 
     FOR rec IN cur_extenal LOOP 
     vId :=sys_guid(); 
     vRowStatus:=rec.A; 
     vTag:=rec.C; 
exit when cur_extenal%notfound; 
     end loop; 
close cur_extenal; 
    end;