× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.




Jim


Uh, sorry I missed this, but the TARGET of your put is a directory not a
file....ftp probably got confused...

use the method I just posted...it should work as it's what's we're using
in production with names changed to protect the..... :)

Don in DC

-----------

On Tue, 28 May 2002, Jim Wiedl wrote:

> This is a MIME message. If you are reading this text, you may want to
> consider changing to a mail reader or gateway that understands how to
> properly handle MIME multipart messages.
> --
> OK, I am so close and thanks for all the help.  I just want to take a file 
>from the AS400 and PUT it on our server in a particular directory.  Attached 
>is the log file and CL program.  My script shows throughout the log.  Any 
>ideas why I cannot place the file on the server?  I am logged in ok, etc.
>
> >>> allan.schmit@weirslurry.com 5/28/02 12:04:36 PM >>>
>
> This is how I did it...
>
> CPYF the database file to the IFS.
> Run an RPG program to create a file that has all the FTP commands - called
> EDIFTP
> Override the FTP input and output files
>      OVRDBF     FILE(INPUT) TOFILE(EDIFTP) MBR(*FIRST)
>      OVRDBF     FILE(OUTPUT) TOFILE(EDILOG) MBR(*FIRST)
> FTP the Remote system
>      FTP        RMTSYS('###.###.###.###')
> Reset the Overrides
>      OVRDBF     FILE(INPUT)
>      OVRDBF     FILE(OUTPUT)
> Then I scan the log file for errors and send an email via Help Systems Alert 
>product.
>
> Allan
>
>
>
>
>
>
> "Jim Wiedl" <WIEDLJ@timesaversinc.com>@midrange.com on 05/28/2002 11:32:05
> AM
>
> Please respond to mapics-l@midrange.com
>
> Sent by:  mapics-l-admin@midrange.com
>
>
> To:   <mapics-l@midrange.com>
> cc:
>
> Subject:  FTP
>
>
> Has anyone used FTP to transfer a file from the AS400 to a server with a
> automated program?
>
>
>
> ***********************************************************
> This email has been scanned for viruses.
> ***********************************************************
>
> _______________________________________________
> This is the MAPICS ERP System Discussion (MAPICS-L) mailing list
> To post a message email: MAPICS-L@midrange.com
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/cgi-bin/listinfo/mapics-l
> or email: MAPICS-L-request@midrange.com
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/mapics-l.
>
>
>
>
> _______________________________________________
> This is the MAPICS ERP System Discussion (MAPICS-L) mailing list
> To post a message email: MAPICS-L@midrange.com
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/cgi-bin/listinfo/mapics-l
> or email: MAPICS-L-request@midrange.com
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/mapics-l.
>
>
> --
>   5769PW1 V4R2M0  980228                  SEU SOURCE LISTING                  
>          05/28/02 15:35:55                 PAGE    1
>   SOURCE FILE . . . . . . .  JIMLIB/QCLSRC
>   MEMBER  . . . . . . . . .  FTPLOG
>   SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 
>7 ...+... 8 ...+... 9 ...+... 0
>         Output redirected to a file.
>         Input read from specified override file.
>         Connecting to remote host 192.9.200.5 using port 21.
>         220 Service Ready for new User
>         Enter login ID (jwiedl):
>         331 Password Needed for Login
>         530 Login Failed for User CN=OPEN.O=TS
>         Enter an FTP subcommand.
>         > USER .wiedlj.is.ts *********
>         331 Password Needed for Login
>         230 User wiedlj Logged in Successfully
>         NETWARE  Type : L8
>         Enter an FTP subcommand.
>         > BINARY
>         200 TYPE Command OK I
>         Enter an FTP subcommand.
>         > PUT timelibm/shipout.shipout s:\wiedlj\
>         227 Entering Passive Mode (192,9,200,5,27,231)
>         550 vol1/users/wiedlj/s:/wiedlj : No such file or directory
>         Enter an FTP subcommand.
>         > QUIT
>         221 Closing Session
>                                   * * * *  E N D  O F  S O U R C E  * * * *
> --
>   5769PW1 V4R2M0  980228                  SEU SOURCE LISTING                  
>          05/28/02 15:37:20                 PAGE    1
>   SOURCE FILE . . . . . . .  JIMLIB/QCLSRC
>   MEMBER  . . . . . . . . .  FTPPCFILE1
>   SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 
>7 ...+... 8 ...+... 9 ...+... 0
>     300 /*             CONVERTS 400 FILE FROM EBCDIC TO ASCII AND TRANSFERS  
>*/                                         03/09/99
>     301 /*JAW  3/10/99  FILE TO PC VIA IP ADDRESS USING FTP-FOR UPS          
>*/                                         03/10/99
>     400 
>/*********************************************************************/        
>                                 08/29/97
>     500  PGM                                                                  
>                                          07/28/99
>     700                                                                       
>                                          06/09/97
>     702                                                                       
>                                          04/09/99
>     703             MONMSG MSGID(CPF0000)                                     
>                                          04/09/99
>     704                                                                       
>                                          04/09/99
>     900             CLRPFM     FILE(JIMLIB/QCLSRC) MBR(FTPLOG)                
>                                          03/09/99
>    1000             OVRDBF     FILE(INPUT)  TOFILE(JIMLIB/QCLSRC) MBR(FTPCMD) 
>                                          04/09/99
>    1100             OVRDBF     FILE(OUTPUT) TOFILE(JIMLIB/QCLSRC) MBR(FTPLOG) 
>                                          03/09/99
>    1101             FTP        RMTSYS('192.9.200.5')                          
>                                          05/28/02
>    1200                                                                       
>                                          06/09/97
>    1300 ENDPGM                                                                
>                                          06/09/97
>                                   * * * *  E N D  O F  S O U R C E  * * * *
> _______________________________________________
> This is the MAPICS ERP System Discussion (MAPICS-L) mailing list
> To post a message email: MAPICS-L@midrange.com
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/cgi-bin/listinfo/mapics-l
> or email: MAPICS-L-request@midrange.com
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/mapics-l.
>



As an Amazon Associate we earn from qualifying purchases.

This thread ...

Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.