Re: Batch ftp

[rob@xxxxxxxxx]

I think my first response is on the money, but I also do the following in
one line instead of your two lines:
user ronk XXXXX

Rob Berendt

==================
A smart person learns from their mistakes,
but a wise person learns from OTHER peoples mistakes.



                    "Klein, Ron"
                    <ron.klein@brctsg.c       To:     "''MIDRANGE-L'" 
<MIDRANGE-L@midrange.com>
                    om>                       cc:
                    Sent by:                  Subject:     Batch ftp
                    midrange-l-admin@mi
                    drange.com


                    08/29/2001 09:59 AM
                    Please respond to
                    midrange-l






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
_______________________________________________
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
To post a message email: MIDRANGE-L@midrange.com
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/cgi-bin/listinfo/midrange-l
or email: MIDRANGE-L-request@midrange.com