Re: Rexx FTP API - funkcja FtpSetUser

Autor: Jurek Kowalski (Jurek.Kowalski_at_um.szczecin.pl)
Data: Wed 30 Apr 1997 - 00:57:08 MET DST

Krzysztof Murkowski wrote:
 
> Chce napisac skrypt w Rexx'sie backup'ujacy pliki konfiguracyjne na
> ftpserwerze i mam problem z funkcja FtpSetUser z FTP API.

Oto dokladnie przeniesiona funkcja z dzialajacego skryptu.
Wyprobuj czy Twoj skrypt dziala lokalnie.
(BTW RTFM = view rxftp)

rcp:
  na_host="199.199.199.199"
  userid="prawie"
  password="dokladnie"

  rc=FtpSetUser(na_host,userid,password)
  if rc\=1 then do;say 'bad FtpSetUser';return 1;end

  localFile=file'.ftp'
  remoteFile="c:\spool\ftp\"||localFile
  say 'FtpPut' localfile "c:\spool\ftp\"||localFile
  rc=FtpPut(localFile,remoteFile,"Binary")
  if rc\=0 then do;say bad FtpPut;return 2;end

  rc=FtpLogoff()
return 0 

-- 
    |              |
 \  | |  |  _| -_) | /
\__/ \_,_|_| \___|_\_\

To archiwum zostało wygenerowane przez hypermail 2.1.7 : Tue 18 May 2004 - 15:11:22 MET DST