كيف أستطيع أن أحول بيانات جدول معين من فورم إلى تيكست فايل

السلام عليكم و رحمة الله و بركاتة
الأخ ابوالروض
استخدم TEXT_IO.Putf
و ان شاء الله تنفعك
و الله تعالى أعلم

مشكور جدا على الرد أخ أشرف

وإليك الحل بعد البحث والتعب

PROCEDURE  ConvertToTextFile  is
cursor c1 is select deptno , dname from dept;
     out_file  TEXT_IO.FILE_TYPE;
     emp_no VARCHAR2(10);
     bank_no VARCHAR2(20);
     emp_name VARCHAR2(45);
     salary VARCHAR2(11);
     v_a   VARCHAR2(51);
     d_name             VARCHAR2(51); 
begin
  out_file := TEXT_IO.FOPEN('c:\SAL.txt', 'a');
   TEXT_IO.PUTF(out_file,'DeptNo     DName'||CHR(10)); 
   TEXT_IO.PUTF(OUT_FILE,'======     ====='||CHR(10)); 
      for i in (select deptno , dname from dept ) loop 
     	emp_no  := rpad(to_char(i.deptno),10,' ');
       d_name := rpad(i.dname,20,' ');
     TEXT_IO.PUT(out_file, emp_no||'    '||d_name||chr(10));
      End loop;
  TEXT_IO.NEW_LINE(out_file, 1);
  TEXT_IO.FCLOSE(out_file);
end;

أرجوا أن يفيدكم

ألسلام عليكم و رحمة الله و بركاتة
جزاك الله كل خير