RE: FTP file transfer from a CL Pgm -- MIDRANGE-L

Hope this helps you.  We use it to FTP at night and then next morning we
have an RPG program check the output to see if there were any errors.

Mgraziano@badgermeter.com <mailto:Mgraziano@badgermeter.com> 



AUTHOR: MARIE E GRAZIANO                                       

THE PROGRAM USES A TEXT FILE IN A LIBRARY FOR THE FTP COMMANDS 
  THE JOBMSGS FILE WILL HAVE THE ACTUAL COMMANDS SENT AND THE 
  INTERACTIVE RESPONSES.  CHECK THE OUT FILE FOR ERRORS         
  IF YOU NEED TO AUDIT THE TRANSFERS                         
   
          PGM                                                   
          OVRDBF     FILE(INPUT) TOFILE(LIBRARY/QTXTSRC) +    
                       MBR(PRGRCMDS)                           
          OVRDBF     FILE(OUTPUT) TOFILE(LIBRARY/QTXTSRC) +   
                       MBR(PRGRMSGS)                           
          FTP        RMTSYS(hostname)
                          
          ENDPGM                                                

Text file contains the userid and password on the first line.  Example
is userid Marie and password testing.  Then the next line has ftp
commands like binary etc.  The next line is the actual Get or Put.  And
then the quit.

TEXT FILE CALLED PRGRCMDS

Marie Testing
binary                               
get X----------------X  **Follow the get command format here
quit

Text output file that will contain the output from the FTP.  What this
contains is what you would see on the interactive FTP.

Test file called    PRGRMSGS

Enter login ID (userid):                    
331 Enter password.                      
230 Marie logged on.                   
250  Now using naming format "0".        
257 "QGPL" is current library.           
Enter an FTP subcommand.                 
> binary                                 
200 Representation type is binary IMAGE. 
Enter an FTP subcommand.                 
*       put Library/file library/file
*       
*       
*       -----Original Message-----
                From:   Tony Haines [mailto:athaines@creativefoam.com]
                Sent:   Friday, August 14, 1998 7:31 AM
                To:     MIDRANGE-L@midrange.com
                Subject:        FTP  file transfer from a CL Pgm

                OK, I think this should be and easy one.

                Is it posible to initiate a file transfer between two
AS/400s uses an FTP command inside a submitted CL prg?  How do I account
for the USER ID and PASSWORD?   I'm trying to automate the transfer as
much as posible. Currently we are using the Broderick file transfer
programs to send the files and it seems to be working just fine. We also
need to submit a job on the remote system after the file is sent. is
there a command for that as well? I just thought it would be nice to
utilize the speed of our TCP/IP connection between the two systems.
Does anyone have some working samples they would like to share?

                ------------------------------------------------
                Tony Haines
                Administrator IS Operations
                Creative Foam Corporation
                Fenton, Michigan

                +---
                | This is the Midrange System Mailing List!
                | To submit a new message, send your mail to
MIDRANGE-L@midrange.com.
                | To subscribe to this list send email to
MIDRANGE-L-SUB@midrange.com.
                | To unsubscribe from this list send email to
MIDRANGE-L-UNSUB@midrange.com.
                | Questions should be directed to the list
owner/operator: david@midrange.com
                +---
+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---