RE: FTP Session Interactivity in a Program

[Terrence Enger <tenger@xxxxxxxxxxxxxxxx>]

On Wed, 2010-09-29 at 18:14 -0400, Dennis Lovelady wrote:
> Hi, Terry:
>
> I would like a copy, if you don't mind extending that offer to me. :)
>
> Thanks!
> Dennis Lovelady
> http://www.linkedin.com/in/dennislovelady

It's on its way.

The offer is open to anyone who is interested.  By way of a "sales 
pitch", I append a sample CLP.

Enjoy,
Terry.

ï-----------------------------------------------------------------
pgm

    dcl &handle *dec (3 0)


    ftpapi         action(*Conn) rethandle(&handle) +
                   host('localhost') +
                   user('tenger') password('xxxxxxxxxx')

    ftpapi         action(*NamFmt) handle(&handle) +
                   namfmt(*ifs)

    ftpapi         *binaryMode &handle newsetting(*on)

    ftpapi         *RmtCmd &handle +
                   icmdstr(crtsavf qtemp/renamed)

    ftpapi         *put &handle +
                   rmtname('/QSYS.LIB/QTEMP.LIB/RENAMED.FILE') +
                   lclname('/QSYS.LIB/V40LBTXE.LIB/THING.FILE')

    ftpapi         *RmtCmd &handle +
                   icmdstr(dsplib qtemp output(*print))

    ftpapi         *RmtCmd &handle +
                   icmdstr(dspsavf qtemp/renamed output(*print))

    ftpapi         *quit &handle


endpgm