Home > user  [1 example]

Send new user information.

 Examples

SET SERVEROUTPUT ON SIZE 1000000;
DECLARE
  fid VARCHAR2(80);
  host VARCHAR2(80)   := 'ftp.gnu.org';
  usernm VARCHAR2(80) := 'anonymous';
  passwd VARCHAR2(80) := '';
  lv_result VARCHAR2(32767);
BEGIN
  fid := fclient_p.createFTPClient;
  fclient_p.conn(fid, host);

  fclient_p.username(fid, usernm);

  fclient_p.password(fid, passwd);
  fclient_p.logout(fid);
  fclient_p.remove(fid);
EXCEPTION
  WHEN fclient_p.java_failed THEN
    DBMS_OUTPUT.PUT_LINE(SUBSTR(fclient_p.getErrorWithResponse(fid), 1, 255));
END;
/

If you need to check if username is successful add the following snippet of code immediately after the call to username: IF fclient_p.getLastResponseReturnCode(fid) = '230' THEN DBMS_OUTPUT.PUT_LINE('Successful'); ELSE DBMS_OUTPUT.PUT_LINE(SUBSTR('Failed, Reason :'||REPLACE(fclient_p.getLastResponse(fid), CHR(10)), 1, 255)); END IF;

© 1999-2003 Bear Claw Inc.