Re: Combine FTP spool files

On 16 May 2012 13:44, John McKee wrote:

I now have two FTP steps in a single CL. Same files sent to different
servers.

I was hoping to combine the output from the two sessions in a single
spool file.

I tried some variations using OVRDBF and OVRPRTF. I either get no
spool file, or two.

Can they be combined?

Which output from FTP? The OUTPUT as the [effective STDOUT] standard output for the STRTCPFTP client? If so, then the easiest might be to combine the two FTP requests into a single interactive [or batch scripted] session; i.e. CLOSE the current connection, and OPEN the new connection, rather than two implicit connection OPEN each with their own QUIT. Otherwise:

The key to making the OVRDBF and OVRPRTF combine the output from two separate OPEN\CLOSE requests by the two distinct requests to FTP, is to ensure that /the same/ open is performed *before* the other feature opens, and that the first open allows sharing; and hope that the other feature can\will indeed share the ODP. This is possible with the FTP client for its standard output:

Here is one way [to a database file] within a CLP:

ovrdbf OUTPUT tofile(theLib/theFile) mbr(theMbr) +
ovrscope(*job) opnscope(*job) share(*yes)
opndbf OUTPUT *ALL /* FTP opens in this way */
/* future OPEN of OUTPUT can share this OPEN DBF ODP */
... /* at least setup INPUT */
strtcpftp server1 ...
... /* probably setup INPUT for other server */
strtcpftp server2 ...
...
clof OUTPUT
dltovr OUTPUT lvl(*job)

Effectively the same tactic as that shown above for a database file can be utilized with a printer file, using OVRPRTF. There is however no simple OPNPRTF command. And when I have used RPG to open the printer file, I have had to keep the RPG program active for whatever reason, because my program seems to close the printer file regardless of the request to keep the open scoped to the job. I never followed up on my difficulty, as it was merely to show someone how... and they were responsible for the Common Data Management feature, so I figured they would investigate that if there was a concern.

ovrprtf OUTPUT tofile(qsysprt) +
ovrscope(*job) opnscope(*job) share(*yes)
call opnOutput /* open OUTPUT; call FTPcl */
dltovr OUTPUT lvl(*job)

Regards, Chuck