PROCEDURE TEXT_IOS(
    v_date  VARCHAR2,
    v_date2 VARCHAR2,
    v_inum  NUMBER)
AS
  CURSOR t_data
  IS
    SELECT
      /*distinct*/
      g_a.name,
      g_a.s4et,
      g_a.dt,
      g_a.kt,
      g_a.purpose
    FROM
      (SELECT s_a.name,
        s_a.s4et,
        t.ccd dt,
        t.ccc kt,
        t.PURP purpose
      FROM t,
        (SELECT a.name,
          a.cac s4et
        FROM a,
          o
        WHERE a.OTD = o.NUM
        AND o.NUM = v_inum
        AND a.daopen BETWEEN v_date AND v_date2
        )
      ) s_a
    WHERE t.ccd = s_a.s4et
    UNION ALL
      (SELECT s_a.name,
        s_a.s4et,
        t.ccd dt,
        t.ccc kt,
        t.PURP purpose
      FROM t,
        (SELECT a.name,
          a.cac s4et
        FROM a,
          o
        WHERE a.OTD = o.NUM
        AND o.NUM = v_inum
        AND a.daopen BETWEEN v_date AND v_date2
        )
      ) s_a
    WHERE t.ccс = s_a.s4et ) g_a
    --in_t_data t_data%ROWTYPE;
    out_file Text_IO.File_Type;
    f_name VARCHAR2(20000);
  BEGIN
    f_name := GET_FILE_NAME('C:\', 'file_name.xls', 'XLS Files(*.xls)|*.xls|', NULL, SAVE_FILE, TRUE); 
out_file:=Text_IO.Fopen(f_name, 'w'); 
Text_IO.Put(out_file, 
'name'             || CHR(9) ||  
's4et'                 || CHR(9) || 
'dt'                   || CHR(9) ||
'kt'                   || CHR(9) ||
'purpose');

FOR cur_rec IN t_data 
loop
Text_IO.New_Line(out_file);
Text_IO.Put(out_file,     
cur_rec.name              || CHR(9) ||    
cur_rec.s4et                  || CHR(9) ||    
cur_rec.dt                    || CHR(9) ||    
cur_rec.kt                    || CHR(9) ||    
cur_rec.purpose);

exit 
WHEN t_data%NOTFOUND;  
END LOOP;
Text_IO.Fclose (out_file);
EXCEPTION
WHEN OTHERS THEN  
Text_IO.Fclose (out_file);  
--Exit_Form(Do_Commit);  
RAISE;
END;

replace(replace( g_a.purpose, chr(9)), chr(10)) purpose

g_a.s4et