Sql loader on client

Question

how can i run sql loader on client PC where only forms are installed. I am using forms 10g and i am new to it....
plz help..

Answer 1

this is the code which i am using to upload data in the table ..
first i am creating to file then tranfer two file to dabase server .
then conneting to database using id and password..and then run
the file which has start with 'LOAD DATA'. but on unix system..
you just find how to run the file on window Os.
if (nvl(:fl_name,' ') <> ' ') then
path := :global.VIRRPTDIR || :global.os_user || '\';
tag := replace(:global.tty_no,':','_') || '_' || :global.os_user || '_fa3' ;
ctl_nm := path || tag || '.ctl';
fctl := Text_Io.Fopen(:global.WEBSERVER || ctl_nm, 'w');
     Text_Io.Put_Line(fctl, 'LOAD DATA');
     Text_Io.Put_Line(fctl, 'INFILE '||:fl_name );
     Text_Io.Put_Line(fctl, 'APPEND INTO TABLE tmp' );
     Text_Io.Put_Line(fctl, 'fields terminated by "|" optionally enclosed by '''||'\\'||''' trailing nullcols' );
     Text_Io.Put_Line(fctl, '(' );
--Text_Io.Put_Line(fctl, 'n CHAR(1000)' );
     Text_Io.Put_Line(fctl, 'TMP_FIELD1 CHAR(256)' );
Text_Io.Put_Line(fctl, ',TMP_TTYNO constant '||chr(39)||:global.tty_no||chr(39));
     Text_Io.Put_Line(fctl, ')' );
     Text_Io.Fclose(fctl);
     opath_nm := path || tag ;
     opath := Text_Io.Fopen(:global.WEBSERVER || opath_nm, 'w');
     Text_Io.Put_Line(opath, 'ORACLE_BASE=/usr1/app/oracle');
Text_Io.Put_Line(opath, 'ORACLE_HOME=/usr1/app/oracle/product/7.3.3');
Text_Io.Put_Line(opath, 'ORACLE_SID=JYTDEV');
Text_Io.Put_Line(opath, 'ORAENV_ASK=NO');
Text_Io.Put_Line(opath, 'ORACLE_PATH=.');
Text_Io.Put_Line(opath, 'export ORACLE_BASE ORACLE_HOME ORACLE_SID ORAENV_ASK ORACLE_PATH');
Text_Io.Put_Line(opath, 'LD_LIBRARY_PATH=$ORACLE_HOME/lib:/usr/openwin/lib:/usr/dt/lib:');
Text_Io.Put_Line(opath, 'PATH=$PATH.:/usr/jytbin:$ORACLE_HOME/bin:/bin:/usr/ccs/bin:/usr1/client/bin:/opt/SUNWspro/bin:/usr/ucb:/etc');
Text_Io.Put_Line(opath, '$ORACLE_HOME/bin/oraenv');
Text_Io.Put_Line(opath, 'sqlldr devjyt/devjyt@jytdev control='|| tag ||'.ctl');
Text_Io.Fclose(opath);
     nm := path || tag || '_ftp.txt';
f1 := Text_Io.Fopen(:global.WEBSERVER || nm, 'w');
Text_Io.Put_Line(f1, 'open 192.9.200.1');
     Text_Io.Put_Line(f1, 'user ' || :global.FTPDIR );
     Text_Io.Put_Line(f1, 'lcd ' || :global.WEBSERVER || replace(path,':',''));
     Text_Io.Put_Line(f1, 'put ' || :fl_name );
     Text_Io.Put_Line(f1, 'put ' || tag || '.ctl');
     Text_Io.Put_Line(f1, 'put ' || tag );
     Text_Io.Put_Line(f1, 'lcd');
     Text_Io.Put_Line(f1, 'disconnect');
     Text_Io.Put_Line(f1, 'quit');
     Text_Io.Fclose(f1);
     host('ftp -v -n -i -g -s:' || :global.WEBSERVER || replace(path,':','') || tag || '_ftp.txt');
     host('rsh jyoti -l '||substr(:global.FTPDIR,1, instr(:global.ftpdir,' ')-1) || ' sh '|| tag );
     synchronize;
end if;