ORACLE SQL リファレンス(逆引き)

declare

　out_handle utl_file.file_type;
　buf varchar2(1023);

begin

　-- 書き込みモードでファイルオープン
　out_handle := utl_file.fopen('c:\temp','test.txt','w');

　for c_rec in (select dept_id,dept_name from dept) loop
　　buf := c_rec.dept_id || ',' || c_rec.dept_name;
　　-- 1レコードファイルに書き込み
　　utl_file.put_line(out_handle,buf);
　end loop;

　-- ファイルクローズ
　utl_file.fclose(out_handle);

exception
　when others then
　　dbms_output.put_line('その他エラー');

end;