Código:
La línea en negrita es un comando que trato de mandar y es ahí donde me truena. Traté de cachar la excepción pero de todas maneras me pierde la conexión al FTP y no manda el archivo. Si tienen alguna idea se los agradeceré muchísimo.CREATE OR REPLACE PROCEDURE send_shl(dir in varchar2, filename in varchar2, ftpdir in varchar2, usr in varchar2, pass in varchar2, to_path in varchar2, command varchar2) as l_conn UTL_TCP.connection; ret_val pls_integer; hndlExeption Exception; begin dbms_output.enable(999999); l_conn := ftp.login(ftpdir, '21', usr, pass); ftp.ascii(p_conn => l_conn); --ftp.binary(p_conn => l_conn); begin ret_val:=utl_tcp.write_line(l_conn, command); if ret_val>0 then RAISE hndlExeption; end if; Exception when hndlExeption then dbms_output.put_line('Value: '||ret_val); end; ftp.put(p_conn => l_conn, p_from_dir => dir, p_from_file => filename, p_to_file => to_path||filename); ftp.logout(l_conn); Exception When Others then utl_tcp.close_all_connections; rollback; RAISE; End send_shl;
Saludos.