Utility: 
Copying up to ten libraries from one iSeries to another with FTP.

OS version:
V5R1M0

Library:
CPYLIBSAVF

Command and programs:
CPYLIBSAVF (CMD) calling LG0010CA

LG0010CA (CLLE) calls LG0010RA (RPGLE), which calls LG0010CB (CLLE)


Host:
Checks existence of libraries to be transferred
Create a SAVF in QGPL
Saves the library into the SAVF
Creates an FTP script (on the fly) and process the script
(FTP to Remote site with FTP)
Deletes the SAVF in QGPL


Remote:
A SAVF will be created in QGPL
The host-SAVF will be PUT by the script, to the remote-SAVF
The command RSTLIB will be performed
The SAVF in QGPL will be deleted


What to change:
In the program LG0010RA (nearly at the end of the program)
you need to change UserId and Password - and recompile.


Comments:
You can use your iSeries Systemname (if it's in your Host table)
or 
the Ip Address (192.168.1.43) 

If a library exist on the remote side all objects will be replaced.

If problems, go into QFTPSRC and take a look at the script and the log


This utility has been maked with some snippets from others - who I cant
set names on, but thanks anyway.

I've not quiet finished it all, some cleaning and more error handlings
should be done, but for now... it's running at my place, without problems.

Changes, ideas and other things to add - please contact me.

Oh..oh.. one more thing..... use it at your own risk.


Regards,
Leif Guldbrand
Think400.dk