code.rpgle

       localFile = file;
       file = %trim(%subst(file:6));

       // Connect to the FTP server
       fd = FTP_open(server:port);

       if (fd < 0);
         CompMsg(FTP_errorMsg(0));
         return;
       endif;

       FTP_logging(fd: *on);

       // Log in
       rc = FTP_login(fd:username:password);

       if (rc < 0);
         FTP_errorMsg(fd:ErrNum);
           CompMsg(FTP_errorMsg(fd));
           FTP_quit(fd);
           return;
       endif;

       //FTP_IFS_usage(fd:'I');

       if (FTP_chdir(fd:'DropOff/') < 0);
         CompMsg(FTP_errorMsg(fd));
         FTP_quit(fd);
         return;
       endif;

       // Put the file
       if FTP_put(fd:file:localFile) < 0;
         CompMsg(FTP_errorMsg(fd));
         FTP_quit(fd);
         return;
       endif;

       FTP_quit(fd);