/******************************************************************************/
/* Description.. Sample Batch FTP                                             */
/* Program Name. FTPBATCH                                                     */
/* Author....... Bradley V. Stone                                             */
/*               BVS/Tools - www.bvstools.com                                 */
/******************************************************************************/
             PGM

/* Member INMBR should contain the FTP script that you wish to use.  Example  */
/*                                                                            */
/* OPEN ip.address.of.system                                                  */
/* USER username password                                                     */
/* LCD MYLIB                                                                  */
/* PUT QRPGLESRC.ANYSOURCE                                                    */
/* CLOSE                                                                      */
/* QUIT                                                                       */
             OVRDBF     FILE(INPUT) TOFILE(LIB/SRC) MBR(INMBR)
/*                                                                            */
/* Member OUTMBR is used to hold the log of the FTP job                       */
/*                                                                            */
             OVRDBF     FILE(OUTPUT) TOFILE(LIB/SRC) MBR(OUTMBR)
/*                                                                            */
/* The value of the RMTSYS parameter can be loopback, or it can be the        */
/*  IP address or server name of a server available to your system.           */
/*                                                                            */
             FTP        RMTSYS(LOOPBACK)
             DLTOVR     FILE(INPUT OUTPUT)

             ENDPGM