从 VB.net 将文件上传到大型机

Question

我正在尝试将文件从我的电脑上传到大型机。我正在尝试使用 Chilkat FTP2 上传它。下面是代码。

我要上传的文件是 2009102600000

Dim ftp As New Chilkat.Ftp2()

Dim success As Boolean

' Any string unlocks the component for the 1st 30-days.'
success = ftp.UnlockComponent("Anything for 30-day trial")
If (success <> true) Then
    MsgBox(ftp.LastErrorText)
    Exit Sub
End If


ftp.Hostname = "www.myside.com"
ftp.Username = "****"
ftp.Password = "****"

' The default data transfer mode is "Active" as opposed to "Passive".'
' Change it to Passive by setting the Passive property:'
ftp.Passive = true

' Connect and login to the FTP server.'
success = ftp.Connect()
If (success <> true) Then
    MsgBox(ftp.LastErrorText)
    Exit Sub
End If


' Change to the remote directory where the file will be uploaded.'
success = ftp.ChangeRemoteDir("ABC.SITEUPLOAD.UPLOAD")
If (success <> true) Then
    MsgBox(ftp.LastErrorText)
    Exit Sub
End If


' Upload a file.'
Dim localFilename As String
localFilename = "c:\2009102600000"
Dim remoteFilename As String
remoteFilename = "2009102600000"

success = ftp.PutFile(localFilename,remoteFilename)
If (success <> true) Then
    MsgBox(ftp.LastErrorText)
    Exit Sub
End If


ftp.Disconnect()

MsgBox("File Uploaded!")

我得到的错误是未找到使用 MVS dsn 名称或类似名称的数据集。

如果您能帮我解决这个问题，我将不胜感激。

Answer 1

我完全不确定您是否可以将数据集前缀视为目录。当我使用 ftp 上传到大型机时，我总是只指定完整的目标名称。我会摆脱

ftp.ChangeRemoteDir("ABC.SITEUPLOAD.UPLOAD")

完全和只是改变部分：

remoteFilename = "2009102600000"

到：

remoteFilename = "'ABC.SITEUPLOAD.UPLOAD.2009102600000'"

如果是顺序数据集，或者：

remoteFilename = "'ABC.SITEUPLOAD.UPLOAD(2009102600000)'"

如果它是成员（在这种情况下，数据集必须首先存在）。

如果您更改了MsgBox 语句，以便它们包含关于是什么 实际导致错误的指示，这也会有所帮助。大致如下：

MsgBox("Connect error: " & ftp.LastErrorText)
MsgBox("ChangeRemoteDir error: " & ftp.LastErrorText)
MsgBox("PutFile error: " & ftp.LastErrorText)

而不是通用的：

MsgBox(ftp.LastErrorText)

另外一点：你会注意到我在上面的目标周围加上了单引号。那是因为 z/OS 有一个习惯，即（有时）将您的登录名作为成员的前缀。可能是这样的：

put xyz.txt upload(xyz)

实际上是在尝试将其放入yourname.upload(xyz)。引用它可以防止这种情况发生。

更新：你知道，我刚刚注意到一些在我第一次阅读这个问题时完全逃脱的东西。错误信息一目了然。

分区数据集中的数据集名称段和成员名称限制为 8 个字符。因此，您的'ABC.SITEUPLOAD.UPLOAD(2009102600000)' 在两个 计数上无效，即SITEUPLOAD 和2009102600000。尝试缩短名称并重新传输。

这是证据：

C:\Documents and Settings\Pax> ftp bigiron
Connected to bigiron.box.com.
220-FTPD1 IBM FTP CS V1R9 at BIGIRON.BOX.COM, 02:15:23 on 2009-11-06.
220 Connection will close if idle for more than 5 minutes.
User (bigiron.box.com:(none)): pax
331 Send password please.
Password:
230 PAX is logged on.  Working directory is "PAX.".

ftp> put test.txt 'pax.siteupload'
200 Port request OK.
501 Invalid data set name "'pax.siteupload'".  Use MVS Dsname conventions.

ftp> put test.txt 'pax.siteupld'
200 Port request OK.
125 Storing data set PAX.SITEUPLD
250 Transfer completed successfully.
ftp: 177 bytes sent in 0.00Seconds 177000.00Kbytes/sec.

ftp> put test.txt 'pax.jcl(abcdefghi)'
200 Port request OK.
501 Invalid data set name "'pax.jcl(abcdefghi)'".  Use MVS Dsname conventions.

ftp> put test.txt 'pax.jcl(abcdefgh)'
200 Port request OK.
125 Storing data set PAX.JCL(ABCDEFGH)
250 Transfer completed successfully.
ftp: 177 bytes sent in 0.00Seconds 177000.00Kbytes/sec.

ftp> bye
221 Quit command received. Goodbye.

Answer 2

您确定不需要将其存储为根目录中的世代数据集吗？像这样：

'ABC.SITEUPLOAD.UPLOAD.2009102600000(+1)'