Re: FTP

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  * * * *