Great, it's nice know, that re-dimming the field bigger is not an issue...
Also, do you trust the FTPAPI? I have seen a lot of the code, that Scott K. has posted over the years, and I treat his comments and code with the same respect, as Jon Paris, or Barbara Morris. So I have no doubt, that his code works, I'm just checking to see if anyone has noticed any bugs, or random issues.
Thanks, tim
-----Original Message-----
From: Scott Mildenberger [SMTP:scottmildenberger@xxxxxxxxx]
Sent: Thursday, July 03, 2003 11:31 AM
To: ftpapi@xxxxxxxxxxxxx
Subject: Re: New user.
Sender: Scott Mildenberger <scottmildenberger@xxxxxxxxx>
Tim,
I have just recently done this for edi for some railroads. I
used the ftp_list procedure to get the list of files and then
ftp_get to download them (see code excerpt below). Depending on
the ftp server the rename function may move the files to another
directory if you specify it on the rename. If it doesn't you
may be able to use the remote command procedure to do the move.
Scott Mildenberger
d Incoming S 256A dim(1000)
c if ftp_list(Sess : ' ' : 1000 :
c %addr(incoming) :
num_files) < 0
c callp ftp_error(ErrNum)
c if ErrNum = FTP_NOFILE
c eval num_files = 0
c else
c callp ftp_quit(Sess)
c return
c endif
c endif
** download all the files to the Ifs.
c eval got_files = 0
c callp ftp_binary(*on)
c 1 do num_files fileno
c eval IfsDir = IfsRoot + %trim(FtpUser)
+
c '/incoming/'
c eval InFile = %subst(incoming(fileno) :
23 : 11)
* download the rest of the files
c if ftp_get(Sess :
c '#' + InFile :
c %trim(IfsDir) +
%trim(InFile))>=0
c eval got_files = got_files + 1
This e-mail message, including any attachments, is for the sole use of the intended recipient(s) and may contain confidential or privileged information. Any unauthorized review, use, disclosure or distribution is prohibited. If you are not the intended recipient, please contact the sender by reply e-mail and destroy the message.