Free FTP CL Command

["Bob Cozzi" <cozzi@xxxxxxxxx>]

I just finished a simple CL command that interfaces with OS/400 FTP to send
files to another AS/400.
The goal was to provide a CL-interface for sending a DB2 file via FTP,
something like this:
 
  ===> FTPSNDFILE RMTSYS(RESCUE.COMPUDESIGNS.NET) FILE(COZZILIB/QRPGLESRC) +
              MBR(MYMBR) TOFILE(*FROMFILE) USER(BOBCOZZI) PWD(PICKLES) +
                 SRCFILE(RPGLAB/QFTPSRC) LOG(RPGLAB/QFTPSRC) LOGMBR(FTPLOG)

    
The command generates the FTP source script and then evokes FTP to send the
file.
It works fine and I'm very, very happy with it.
However.  the password parameter for the remote user's password is set to
DSPINPUT(*PROMPT) which means it will display the text that is typed in, but
does not keep it when Enter is pressed. So I have to re-key it each and
every time I run the command from command entry. Obviously I could change
the source, since I wrote it, but I also don't want my passwords logged.
So here's the question that I assumed would have a NO for the answer:
Is there a way to retrieve and/or transmit a user's password for an FTP
session so that I don't have to require the end-user to enter it each time
they run the FTPSNDFILE command? I mean if they specify USER(*CURRENT) is
there a way I can also allow the PWD parm to default to PWD(*CURRENT)?
I believe there is not, but since there are just too many APIs available
today, I thought I'd throw the question it out there.

 
-Bob Cozzi
www.RPGxTools.com
If everything is under control, you are going too slow.
- Mario Andretti