The following is a sample program using REXX FTP Class Library methods.
/*==============================================================*/
/* Basic RxFTP sample to send a file with cmd/reply logging */
/*==============================================================*/
/* Define the variables for: */
server = "127.0.0.1" /* IP address or server name */
userid = "remote_user_ID"
passwd = "password_of_remote_user"
trclog = "logfile.txt" /* Trace log file name */
retc = 0 /* Set return code to 0 */
myftp = .rxftp~new()
/* Start tracing FTP commands and logging of replies */
retc = myftp~FtpTrace()
retc = myftp~FtpTraceLog( trclog, "1")
If retc = 0 then Say " Replies will be written to log file: "trclog"."
Else Say " No writing to log file: "trclog" possible."
/* Define remote host and user to be used during the session */
retc = myftp~FtpSetUser(server, userid, passwd)
If retc = 0 then Say " Connection established."
Else Call Terminate " *** Connection failed."
/* Transfer an ASCII file to the remote ftp server */
retc = myftp~FtpPut("sample.rex", "sample.put", "ASCII")
If retc = 0 then Call Terminate " File has been sent. "
Else Call Terminate " *** File has NOT been sent."
/* Terminate the file transfer */
Terminate:
Parse Arg Message
Say Message
Say "FtpErrNo =" myftp~ftperrno
retc = myftp~FtpLogoff()
retc = myftp~FtpTraceLogoff()
retc = myftp~FtpTrace()
exit retc
::requires "rxftp.cls"