RE: Using FTP to send data files

Justin,


This isn't real pretty (I didn't write it), but it's simple and it works.  We
run this regularly from the job scheduler.

CL program:

PGM                                                                  
             OVRDBF     FILE(INPUT) TOFILE(SPNSYS/QTXTSRC) +         
                          MBR(FTP846TXT)                             
             OVRPRTF    FILE(QPRINT) HOLD(*YES)                      
             FTP        RMTSYS(*INTNETADR) INTNETADR('199.184.1.169')
             DLTOVR     FILE(INPUT)                                  
             DLTOVR     FILE(QPRINT)                                 
             DLTSPLF    FILE(QPRINT) JOB(*) SPLNBR(*LAST)            
             ENDPGM                                                  

FTP script (member FTP846TXT in source file SPNSYS/QTXTSRC):

ANONYMOUS EDI                 
APPEND SP06FILG/EDP846 EDP846 
SYSCMD CLRPFM SP06FILG/EDP846 
QUIT                          

Note: SP06FILG/EDP846 is the name of the file on the AS/400.  EDP846 is the name
of the file on the NT server that we're sending it to.  The directory on the NT
is determined by its FTP server.

Dave Shaw
Spartan International, Inc.
Spartanburg, SC

> -----Original Message-----
> From: Justin Kiteley [mailto:justin@asiwms.com]
> 
> Sorry, I didn't phrase that one well.  I'll try again.  What 
> is the best
> way to automate FTP transfers from one box to the next?  For instance
> using CL.
> Any examples in CL would be greatly appreciated.  
+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---