DECLARE
  b VARCHAR2(200);
  SA NUMBER;

begin
  b:= CLIENT_GET_FILE_NAME('c:/', File_Filter=>'Text Files (*.txt)|*.txt|');
  SAVEDATA('<tabkename>','<column1>,<column2>,<column3>',B,',');
END;

PROCEDURE SAVEDATA (p_table       IN VARCHAR2,
                    p_cnames      IN VARCHAR2,
                    p_dir         IN VARCHAR2,
                    p_delimiter   IN VARCHAR2 DEFAULT ',')
IS
   l_input         CLIENT_TEXT_IO.file_type;
   l_theCursor     INTEGER;                 -- default --exec_sql.open_cursor;
   l_buffer        VARCHAR2 (4000);
   l_lastLine      VARCHAR2 (4000);
   l_status        INTEGER;
   l_colCnt        NUMBER DEFAULT 0;
   l_sep           CHAR (1) DEFAULT NULL;
   l_errmsg        VARCHAR2 (4000);

   connect_str     VARCHAR2 (100) := 'username/password@sid';
   connection_id   EXEC_SQL.CONNTYPE;
   cursorID        EXEC_SQL.CURSTYPE;
   sqlstr          VARCHAR2 (1000);
BEGIN
   --create table badlog( errm varchar2(4000), data varchar2(4000) );
   connection_id := EXEC_SQL.OPEN_CONNECTION (connect_str);
   cursorID := EXEC_SQL.OPEN_CURSOR (connection_id);

   l_input := CLIENT_TEXT_IO.fopen (p_dir, 'r');

   l_buffer := 'insert into ' || p_table || ' values ( ';
   l_colCnt := LENGTH (p_cnames) - LENGTH (REPLACE (p_cnames, ',', '')) + 1;

   FOR i IN 1 .. l_colCnt
   LOOP
      l_buffer := l_buffer || l_sep || ':b' || i;
      l_sep := ',';
   END LOOP;

   l_buffer := l_buffer || ')';

   EXEC_sql.parse (connection_id,
                   cursorID,
                   l_buffer,
                   exec_sql.V7);

   LOOP
      BEGIN
         CLIENT_TEXT_IO.get_line (l_input, l_lastLine);
      EXCEPTION
         WHEN NO_DATA_FOUND
         THEN
            EXIT;
      END;

      l_buffer := l_lastLine || p_delimiter;

      FOR i IN 1 .. l_colCnt
      LOOP
         EXEC_SQL.bind_variable (
            connection_id,
            cursorID,
            ':b' || i,
            SUBSTR (l_buffer, 1, INSTR (l_buffer, p_delimiter) - 1));

         l_buffer := SUBSTR (l_buffer, INSTR (l_buffer, p_delimiter) + 1);
      END LOOP;


      BEGIN
         l_status := EXEC_SQL.execute (connection_id, cursorID);
      EXCEPTION
         WHEN OTHERS
         THEN
            l_errmsg := SQLERRM;

            INSERT INTO badlog (errm, data)
                VALUES (l_errmsg, l_lastLine);
      END;
   END LOOP;

   EXEC_SQL.PARSE (connection_id, cursorID, 'COMMIT');
   l_status := EXEC_SQL.EXECUTE (connection_id, cursorID);


   EXEC_SQL.close_cursor (connection_id, cursorID);
   CLIENT_TEXT_IO.fclose (l_input);

   FORMS_DDL ('commit');
   EXEC_SQL.close_connection;
END;