create or replace and compile java source named exp_dbf as
import com.svcon.jdbf.DBFWriter; 
import com.svcon.jdbf.JDBField; 
import java.text.SimpleDateFormat; 
import java.util.Date; 
import java.util.Locale; 
import oracle.sql.BLOB;
import oracle.sql.CLOB;
import oracle.jdbc.OracleTypes;
import java.io.*;
import java.sql.*;
import java.sql.CallableStatement;
import oracle.jdbc.driver.*;
import java.io.StringReader;
import java.util.StringTokenizer;


public class TestDbf { 

   /**
     * Парсит одну csv строку.
     * @param line строка
     * @param p_Delim разделитель
     * @return массив столбцов строки
     */
    private static String[] getRowData(String line,String p_Delim) {
        StringTokenizer st = new StringTokenizer(line, p_Delim, false);
        int n = st.countTokens();
        String[] row = new String[n];
        int cn =  0 ;
        while (st.hasMoreElements()) {
            row[cn++] = ((String) st.nextElement()).trim();
        }
        return row;
    }



/**
   Конвертирует результат SQL запроса в формат DBASE4
   и возвращает DBASE 4 как temporary BLOB
   По идее этот temporary BLOB надо бы внешним модулем freed using the DBMS_LOB.FREETEMPORARY?

   В параметр format передается структура генерируемой DBF таблицы в виде
    Название поля;тип;размер;кол-во знаков после запятой
    Название поля;тип;размер;кол-во знаков после запятой
    и т.д.
    Типы:
    N - числовой
    D - дата
    C - текстовый
    Например:
    sum;N;9;0
    dat;D,8;0
    msg;C;70;0
 
     * @param query SQL запрос
     * @param format строка заголовка таблицы
     * @return массив столбцов строки

*/

public static BLOB gen_dbf_struct(String query,String format)  throws SQLException, java.io.IOException{ 

   Connection con = null;
   BLOB blob = null;
   OutputStream out = null;
   InputStream in = null;
   String line="";
   Statement stmt = null;
   ResultSet r = null;
   Object rowData[]=null;
   DBFWriter dw=null;
   ResultSetMetaData metaData=null;
   int colCount= 0 ;
   String name,type,size,prec;
   
    try {
      con=new OracleDriver().defaultConnection();
      Locale.setDefault(Locale.ENGLISH); 
      blob = BLOB.createTemporary(con, true, BLOB.DURATION_SESSION);
      out = blob.getBinaryOutputStream();

     //Распарсить format и сгенерить структуру таблицы
      BufferedReader bR = new BufferedReader(new StringReader(format));
      while ((line = bR.readLine()) != null) colCount++;
      JDBField arrfiled[] = new JDBField[colCount]; 
      bR = new BufferedReader(new StringReader(format));
      String[] dataRow;
      int i= 0 ;
      while ((line = bR.readLine()) != null) {
                    dataRow = getRowData(line,";");
                    name=dataRow[ 0 ];
                    type=dataRow[ 1 ];
                    size=dataRow[ 2 ];
                    prec=dataRow[ 3 ];
                    arrfiled[i] = new JDBField(name,type.charAt( 0 ),Integer.parseInt(size),Integer.parseInt(prec)); 
                    i++;             
       }
      dw = new DBFWriter(out,arrfiled);
      stmt = con.createStatement();
      r = stmt.executeQuery(query);
      metaData = r.getMetaData();
    
     while (r.next()) {
       rowData = new Object[colCount];
       for (i =  0 ; i < colCount; i++) {
          switch(metaData.getColumnType(i+ 1 )){
           
                 /*DATE*/ case  91 : rowData[i]=r.getDate(i+ 1 );break;
              /*NUMERIC*/ case   2 : rowData[i]=Double.valueOf(r.getString(i+ 1 ));break;
                          case   3 : rowData[i]=Double.valueOf(r.getString(i+ 1 ));break;
                          case   8 : rowData[i]=Double.valueOf(r.getString(i+ 1 ));break;
                          default:  rowData[i]=r.getString(i+ 1 ); break;
            }
       }
       dw.addRecord(rowData);
   }

  } catch(Exception ex) { 
          /*
               #sql {rollback};
               String d=ex.getMessage();
               #sql { INSERT INTO logtable (DAT,RESULT,ERRCODE) VALUES (sysdate,:d,1)};              
               #sql {commit};
           */
      } 
     finally{
       if (r != null) r.close();
       if (stmt != null) stmt.close();
       if (out != null) {out.close();}
     //  if(con!=null) con.close();
       try{
       if(dw!=null) dw.close();
              }
       catch(Exception ex) {}
      } 
      return blob;
} 


//Конвертирует результат SQL запроса в формат DBASE4 и возвращает DBASE как temporary BLOB
//По идее этот temporary BLOB надо бы внешним модулем freed using the DBMS_LOB.FREETEMPORARY?
//Принимайте во внимание, что в DBASE есть ограничения на длину названия поля, типы и т.д.
public static BLOB gen_dbf_sql(String query)  throws SQLException, java.io.IOException{ 

   Connection con = null;
   BLOB blob = null;
   OutputStream out = null;
   InputStream in = null;
   String line="";
   Statement stmt = null;
   ResultSet r = null;
   Object rowData[]=null;
   DBFWriter dw=null;
   ResultSetMetaData metaData=null;
   String temp;
   int colCount;
   char type;
    try {
      con=new OracleDriver().defaultConnection();
      stmt = con.createStatement();
      r = stmt.executeQuery(query);
      metaData = r.getMetaData();
      colCount=metaData.getColumnCount();
      JDBField arrfiled[] = new JDBField[colCount]; 
      int size= 10 ;
      for (int i =  0 ; i < colCount; i++) {
           temp=metaData.getColumnName(i+ 1 );
           switch(metaData.getColumnType(i+ 1 )){
           
                 /*DATE*/ case  91 : type='D';size= 8 ;break;
              /*NUMERIC*/ case   2 : type='N';size=metaData.getPrecision(i+ 1 )== 0 ? 10 :metaData.getPrecision(i+ 1 );break;
                          case   3 : type='N';size=metaData.getPrecision(i+ 1 )== 0 ? 10 :metaData.getPrecision(i+ 1 );break;
                          case   8 : type='N';size=metaData.getPrecision(i+ 1 )== 0 ? 10 :metaData.getPrecision(i+ 1 );break;
                          default: type='C';size=metaData.getPrecision(i+ 1 )> 253 ? 253 :metaData.getPrecision(i+ 1 );break;
           }
           if(temp.length()> 9 ) temp=temp.substring( 0 , 9 );
           arrfiled[i] = new JDBField(temp,type,size, 0 );              
       }
     Locale.setDefault(Locale.ENGLISH); 
     blob = BLOB.createTemporary(con, true, BLOB.DURATION_SESSION);
     out = blob.getBinaryOutputStream();
    
     SimpleDateFormat localTime = new SimpleDateFormat("yyyy-MM-dd HH:mm:ss"); 
     dw = new DBFWriter(out,arrfiled);

     while (r.next()) {
       rowData = new Object[colCount];
       for (int i =  0 ; i < colCount; i++) {
          switch(metaData.getColumnType(i+ 1 )){
           
                 /*DATE*/ case  91 : rowData[i]=r.getDate(i+ 1 );break;
              /*NUMERIC*/ case   2 : rowData[i]=Double.valueOf(r.getString(i+ 1 ));break;
                          case   3 : rowData[i]=Double.valueOf(r.getString(i+ 1 ));break;
                          case   8 : rowData[i]=Double.valueOf(r.getString(i+ 1 ));break;
                          default:  rowData[i]=r.getString(i+ 1 ); break;
            }
       }
       dw.addRecord(rowData);
   }

  } catch(Exception ex) { 
         /*
               #sql {rollback};
               String d=ex.getMessage();
               #sql { INSERT INTO logtable (DAT,RESULT,ERRCODE) VALUES (sysdate,:d,1)};              
               #sql {commit};
         */
      } 
     finally{
       if (r != null) r.close();
       if (stmt != null) stmt.close();
       if (out != null) {out.close();}
     //  if(con!=null) con.close();
       try{
       if(dw!=null) dw.close();
       }
       catch(Exception ex) {}
      } 
      return blob;
} 

} 
/

create or replace function java_gen_dbf_sql(p_query in varchar2)
  return BLOB as
  language java name 'TestDbf.gen_dbf_sql(java.lang.String) return blob';
/

create or replace function java_gen_dbf_struct(p_query  in varchar2,
                                               p_format varchar2)
  return BLOB as
  language java name 'TestDbf.gen_dbf_struct(java.lang.String,java.lang.String) return blob';
/

select 
java_gen_dbf_struct('select name_type,vers,sysdate dat from mytable','pt;C;100;0'||chr( 10 )||'vers;N;9;0'||chr( 10 )||'dat;D;8;0')
from dual;

select 
java_gen_dbf_sql('select name_type, convert(name_type,''RU8PC866'') namtype,vers,sysdate dat from mytable')
from dual;

 create or replace function java_dbf2XML(p_dbf in BLOB, p_conv number)
  return CLOB as
  language java name 'TestDbf.DBF2XML(oracle.sql.BLOB, int) return oracle.sql.CLOB';