Batch ftp

["Klein, Ron" <ron.klein@xxxxxxxxxx>]

Hi All,

I know this should be an easy one, but it has been a long time since I have
done this.

I have a CL that runs an FTP transfer.  But I have something wring in my
input file that I am not getting logged in.  I have tries several variations
and don't seem to have the right combination.

My CL;
****
  PGM
  DCL        VAR(&MBR) TYPE(*CHAR) LEN(10)
  CHGVAR     VAR(&MBR) VALUE(FTPSCRIPT)
  OVRDBF     FILE(INPUT) TOFILE(RONK/QCLSRC) MBR(&MBR)
  OVRDBF     FILE(OUTPUT) TOFILE(RONK/QCLSRC) MBR(OUT)
  CHGVAR     VAR(&MBR) VALUE(FTPSCRIPT)
  FTP        RMTSYS('100.70.60.5')
  ENDPGM
****
My Input file
***
user ronk
pass XXXXX
PUT RONK/QCLSRC RONK/QCLSRC
CLOSE
***
My output log
***
Input read from specified override file.
Connecting to remote host 100.70.60.5 using port 21.
220-QTCP at WPKMN600.
220 Connection will close if idle more than 5 minutes.
Enter login ID (ronk):
331 Enter password.
530 Log on attempt by user USER rejected.
Enter an FTP subcommand.
> PASS ******
***


What's wrong?

TIA
Ron