Show remote system type.
| Examples |
SET SERVEROUTPUT ON SIZE 1000000;
DECLARE
fid VARCHAR2(80);
host VARCHAR2(80) := 'ftp.gnu.org';
usernm VARCHAR2(80) := 'anonymous';
passwd VARCHAR2(80) := '';
BEGIN
fid := fclient_p.createFTPClient;
fclient_p.login(fid, host, usernm, passwd);
fclient_p.system(fid);
DBMS_OUTPUT.PUT_LINE(SUBSTR(REPLACE(fclient_p.getLastResponseString(fid), CHR(10)), 1, 255));
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;
/
Output from above example:
UNIX Type: L8
If you need to check if system is successful add the following snippet of code immediately after
the call to system:
IF fclient_p.getLastResponseReturnCode(fid) = '215' 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.