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

This thread ...


Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2019 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].