Re: Client Access file transfers locking - V4R4

Oh, great!  Just what I wanted to do.

Incidentally, this trick with overriding INPUT and OUTPUT is very new to me,
I have never seen it before on the AS/400 (but have used on PCs many times with
> and < ).

Does this only work for FTP or will it work for TELNET and other commands?

I think I'll have to experiment and see...

Thanks all for your response,

Jim Langston

Chris Bipes wrote:

> Yes you can script FTP on the AS400.  What I have not been able to do, nor
> given much effort, is capturing the FTP responses and handling the flow
> according.  The simple batch way is to:
> PGM        PARM(&RMTSYS &FTPSRCMBR)
>
> DCL        VAR(&RMTSYS   ) TYPE(*CHAR) LEN(20)
> DCL        VAR(&FTPSRCMBR) TYPE(*CHAR) LEN(10)
>
> CLRPFM     FILE(FTPSRC) MBR(FTPOUT)
> OVRDBF     FILE(INPUT) TOFILE(FTPSRC) MBR(&FTPSRCMBR)
> OVRDBF     FILE(OUTPUT) TOFILE(FTPSRC) MBR(FTPOUT)
> FTP        RMTSYS(&RMTSYS)
> PRTSRC     FILE(FTPSRC) MEMBER(FTPOUT)
>
> ENDPGM
>
> The file FTPSRC is a source PF.  Its members contain the script to logon,
> put or get a file.  This is quick and dirty.  I suppose some one else has
> done this with full line by line processing.
>
> Christopher K. Bipes            mailto:ChrisB@Cross-Check.com
> Sr. Programmer/Analyst          mailto:Chris_Bipes@Yahoo.com
> CrossCheck, Inc.                http://www.cross-check.com
> 6119 State Farm Drive           Phone: 707 586-0551 x 1102
> Rohnert Park  CA  94928 Fax: 707 586-1884
>
> -----Original Message-----
> From: Jim Langston [mailto:jlangston@conexfreight.com]
> Sent: Thursday, August 19, 1999 1:42 PM
> To: MIDRANGE-L@midrange.com
> Subject: Re: Client Access file transfers locking - V4R4
>
> Oh, dang, not the answer I expected at all.  I already knew about
> PC FTP scripting.  I was hoping I could script the FTP client on the
> AS400 side.
>
> I dont have the FTP service up on theAS400 and really don't want to
> have to bring it up.  I was hoping that the FTP client on the AS400 had
> scripting capabilities, so I could FTP to an NT FTP server.
>
> Thanks for your timely response,
>
> Jim Langston
>
> Rob Berendt wrote:
> +---
> | This is the Midrange System Mailing List!
> | To submit a new message, send your mail to MIDRANGE-L@midrange.com.
> | To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
> | To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
> | Questions should be directed to the list owner/operator: david@midrange.com
> +---

+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---