PL/SQL -カーソル操作-

-- DBMS_OUTPUTの出力を端末の標準出力へ表示
SET SERVEROUTPUT ON;

DECLARE

--カーソル定義
cursor c_adt is
select TNAME from tab where TNAME like '%ADT%';

--SELECTで取得したレコードを代入する変数の定義
adt_tname c_adt%rowtype;

BEGIN

open c_adt;

loop
-- フェッチ時に、取得項目を変数に代入
fetch c_adt into adt_tname;

-- レコードが無くなればループ終了
exit when c_adt%notfound;

--テーブル名を表示
--dbms_output.put_line('AUDITテーブル名：' || adt_tname.tname);

end loop;

close c_adt;

END;
/