RE: FTP AS400-->AS400

["Morrison, Doug" <dmorrison@xxxxxxxxxx>]

Here is a working FTP CL.

0001.00              PGM

0002.00              OVRDBF     FILE(INPUT) TOFILE(FTPLIB/FTPCL) +

0003.00                         ??MBR()

0004.00              OVRDBF     FILE(OUTPUT) TOFILE(FTPLIB/FTPCL)
MBR(GETOUT)
0005.00              CLRPFM     FILE(FTPLIB/FTPCL) MBR(GETOUT)

0006.00              FTP        RMTSYS(*INTNETADR)
INTNETADR('192.168.3.163')
0006.01              DSPPFM     FILE(FTPLIB/FTPCL) MBR(GETOUT)

0007.00              ENDPGM


When the member name prompt is displayed key in the name of the source
member that contains the FTP commands.  The IP address is for the FROM
AS/400 and the program is run on the TO AS/400

0001.00 FTPUSR FTPUSR

0002.00       GET transfer/pohist demtest/pohist (replace

0003.00 QUIT


The user profile FTPUSR must exist on the AS/400 that the file is being
sent from and the password must be FTPUSR.

Hope this helps.


-----Original Message-----
From: Lucas Geheniau [mailto:geheniau@bladel.tokheim.com]
Sent: Tuesday, January 22, 2002 5:01 AM
To: mapics-l@midrange.com
Subject: FTP AS400-->AS400

--
[ Picked text/plain from multipart/alternative ]
Hi,

I am trying to write a CL to transfer a file to another AS400 but until
now
it has not been succesful.  Does anybody have an example for me?  A
normal
transfer by hand is no problem.

Best Regards,
                 Lucas

If you can't convince them, confuse them.(Confucius)

L. Geheniau                                     M.I.S Engineer/Logistic
Engineer
Tokheim Corp.
Industrieweg 5, 5531 AD Bladel                  The Netherlands
Fax: +31497381950
e-mail: geheniau@bladel.tokheim.com
         l.geheniau@chello.nl

--

_______________________________________________
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.