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

by mcurtis5484, Saturday, February 14, 2009, 07:02 (5762 days ago)

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,