Date:         Sat, 1 Nov 1997 19:42:00 +0100
Reply-To:     REXX Programming discussion list <REXXLIST@UGA.CC.UGA.EDU>
Sender:       REXX Programming discussion list <REXXLIST@UGA.CC.UGA.EDU>
From:         Lueko Willms <L.WILLMS@LINK-F.RHEIN-MAIN.DE>
Subject:      Re: FTP Code Assistance
Content-Type: text/plain; charset=ISO-8859-1

     Am  31.10.97
schrieb  bmcgill@primenet.com (Barney McGill)
    auf  /COMP/LANG/REXX
     in  63dqlk$5ft@nntp02.primenet.com
  ueber  FTP Code Assistance
 
BM>   If someone would be gracious enough to provide the basic code I
BM> would be very grateful.
 
   Well, the following does not solve your problems, but it might help to
understand the basics:
 
/* REXX */
 
/* Die Routinge holt einen RFC von DS.INTERNIC.NET   */
 
ARG RFCnr .
 
 IF RFCnr =  "" Then
    DO
      Say "Welchen RFC holen? Gib Nr: "
      pull RFCnr
    END
 
 RFCnr4 = RIGHT(RFCNr,4,0)
 Zielverzeichnis = "F:\DOWNLOAD"
 
 rc = RxFuncAdd("FtpLoadFuncs","rxFtp","FtpLoadFuncs")
 rc = FtpLoadFuncs()
 
 MeinFile = Zielverzeichnis || "\RFC" || RFCnr4 || ".TXT"
 SeinFile = "/rfc/rfc" || RFCnr || ".txt"
 
 Say "Mein File =" MeinFile "Sein File =" SeinFile
 
 rc = FTPsetuser("ds.internic.net","anonymous","user@host.domain")
 If FTPget(MeinFile,SeinFile,"Ascii") <> 0 Then
    Say "Download ging schief: " FTPERRNO
 
 rc = FTPlogoff()
 
 rc = FtpDropFuncs()
EXIT
 
 
Yours,
L|ko Willms
/------------ L.WILLMS@LINK-F.rhein-main.de -- Willms_L@compuserve.com
/------------ Lueko.Willms@T-Online.de      -- "Get PGP Key" im Betreff
 
"Ohne Pressefreiheit, Vereins- und Versammlungsrecht ist keine
Arbeiterbewegung mvglich"        - Friedrich Engels      (Februar 1865)