SSL Protocol Error 60000 - Using GetFile to Downlo (wodFtpDLX / wodFtpDLX.NET)

I am getting a SSL protocol error when I try to use GetFile to download a MVS partitioned dataset. I was able to successfully upload a file using PutFile.

I receive the SSL protocol when the code below tries to execute the GetFile statement. Any ideas on what could be causing this?

Thanks,

Mark Curtis

Private Function CafrD780Files_Download() As Boolean

On Error GoTo CafrD780Files_Download_Err

Const cstrProcName As String = CafrD780Files_Download
Const cstrNetworkPathIni As String = C:DataSabhrsNetworkPathsNetworkPaths.ini
Const cstrNetworkShare = share
Const cstrServer As String = Server
Const cstrServerPath As String = Path
Const cstrTblPrefixDL As String = tlkpDL_
Const cstrTblPrefixUL As String = tlkpUL_
Const cstrHost As String = hlnctrd.state.mt.us
Const cstrServerNode As String = 'F01.D780.TABLE
Const cstrLocalFileType As String = .txt
Const cstrImportSpec As String = Import Specification
Const cstrDownloadDir As String = ApfrsCafrfnstCafr_TablesFund_Financial
Const cstrExcelFileType As String = .xls

Dim varRetval As Variant
Dim bytErrAction As Byte
Dim iaintIndex As Integer
Dim strBaseName As String
Dim strTableDL As String
Dim strTableUL As String
Dim strLocalFile As String
Dim strServerFile As String
Dim strImportSpec As String
Dim strSQL As String
Dim dbs As DAO.Database
Dim strServer As String
Dim strServerPath As String
Dim strExcelFileDL As String
Dim strExcelFileUL As String
Dim xlsapp As Excel.Application
Dim xlswb As Excel.Workbook
Dim xlssht As Excel.Worksheet
Dim evarItem As Variant
Dim varTable As Variant
Dim lngRetVal As Long
Dim lngLastRow As Long
Dim xlsshtFndF As Excel.Worksheet
Dim xlsrngLoSabhrsFund As Excel.Range
Dim xlsrngHiSabhrsFund As Excel.Range
Dim xlsrngCafrFund As Excel.Range

Set dbs = CurrentDb
Set ftpDLX = New wodFtpDLXCom
Set xlsapp = New Excel.Application
xlsapp.DisplayAlerts = False

With ftpDLX
.Blocking = True
.Authentication = authPassword
.Hostname = cstrHost
.Protocol = FTPSwithdata
.Login = mstrUserID
.Password = mstrPassword
.Connect
.TransferMode = AscII
End With

strServer = GetPrivateProfileString32(cstrNetworkPathIni, cstrNetworkShare, cstrServer)
strServerPath = GetPrivateProfileString32(cstrNetworkPathIni, cstrNetworkShare, _
cstrServerPath)

For iaintIndex = 0 To UBound(mastrTables)
strBaseName = mastrTables(iaintIndex)
strTableDL = cstrTblPrefixDL & strBaseName
strTableUL = cstrTblPrefixUL & strBaseName
varRetval = SysCmd(acSysCmdSetStatus, cstrProcName & _ & strBaseName)
strLocalFile = mcstrUploadDir & strBaseName & cstrLocalFileType
strServerFile = cstrServerNode & ( & strBaseName & )'
strImportSpec = strBaseName & & cstrImportSpec
strExcelFileDL = strServer & strServerPath & cstrDownloadDir & strTableDL & _
cstrExcelFileType
strExcelFileUL = mcstrUploadDir & strTableUL & cstrExcelFileType

strSQL = DELETE & _
FROM & strTableDL & ;
dbs.Execute strSQL, dbFailOnError

ftpDLX.GetFile strLocalFile, strServerFile

DoCmd.TransferText _
acImportFixed, strImportSpec, strTableDL, strLocalFile, False,

varTable = Array(strExcelFileDL, strExcelFileUL)
For Each evarItem In varTable
If FileExists(evarItem) Then
lngRetVal = SetFileAttributes(evarItem, FILE_ATTRIBUTE_NORMAL)
If lngRetVal = 0 Then
Err.Raise vbObjectError + 513, , _
SetFileAttributes(NORMAL) not successful...program ended.
End If
Kill evarItem
End If

DoCmd.TransferSpreadsheet _
acExport,

Hi Mark,


Did you try maybe with other FTPS protocol value in Protocol Property? Maybe that will help.

Also please try by setting Passive Property to True or False, StrictHost Property to True/False when Passive Property is True.

If problem persist and you aren't using latest 2.8.8.446 version of wodFtpDLX. Can you please download latest version and try it again? wodFtpDLX VErsion Property hold version number.

in order to get update for our product, please go to:

http://www.weonlydo.com/index.asp?update=1

This is automated process. Make sure you use same email address that is registered with our system, one you used when you have purchased the product.

Let us know how it goes.


Regards,
Drazen

I'm still having the same problems after trying all your suggestions.

I tried all the other FTPS protocols, but a connection can only be established using FTPSwithdata.

I also tried the different settings with the Passive and StrictHost Properties.

I am using the latest software version, but I went ahead and reinstalled the software.

Do you have more ideas?

Thanks,

Mark

Hi Mark,


Did you try maybe with other FTPS protocol value in Protocol Property? Maybe that will help.

Also please try by setting Passive Property to True or False, StrictHost Property to True/False when Passive Property is True.

If problem persist and you aren't using latest 2.8.8.446 version of wodFtpDLX. Can you please download latest version and try it again? wodFtpDLX VErsion Property hold version number.

in order to get update for our product, please go to:

http://www.weonlydo.com/index.asp?update=1

This is automated process. Make sure you use same email address that is registered with our system, one you used when you have purchased the product.

Let us know how it goes.


Regards,
Drazen

Mark,

Which server are you using?

Is there any chance that we could connect there and duplicate your problem? We will just connect few times duplicate it and immediately disconnect.

You can send you private information to techsupport@weonlydo.com

Drazen

I am connecting to a mainframe FTP server (IBM 390).

Somehow, my user id was suspended due to password violations. Once I get the password reset, I'll contact you (probably Tuesday). I then have you login using my id and password. Before I accidentally got my id suspended, I successfuly uploaded to the server using PutFile.

Thanks,

Mark

Mark,

Which server are you using?

Is there any chance that we could connect there and duplicate your problem? We will just connect few times duplicate it and immediately disconnect.

You can send you private information to techsupport@weonlydo.com

Drazen

I just sent you login information so that you can connect to the server in order to determine the software problem.

Thanks,

Mark

I am connecting to a mainframe FTP server (IBM 390).

Somehow, my user id was suspended due to password violations. Once I get the password reset, I'll contact you (probably Tuesday). I then have you login using my id and password. Before I accidentally got my id suspended, I successfuly uploaded to the server using PutFile.

Thanks,

Mark

Mark,

Which server are you using?

Is there any chance that we could connect there and duplicate your problem? We will just connect few times duplicate it and immediately disconnect.

You can send you private information to techsupport@weonlydo.com

Drazen